Salve a tutti, scusate in anticipo se essendo nuovo sto facendo degli errori nell'utilizzo di questo forum...ringrazio in anticipo chi mi potrà dare una dritta
Cerco di spiegare il problema...
Ho due tabelle:
Sistematicamediterranea
Collezionemediterranea
Le due tabelle hanno in comune i seguenti campi:
specie (tipo carattere)
codicesistematico1 (tipo carattere)
codicesistematico2 (tipo intero)
Ho costruito una maschera per inserire nuovi record nella seconda tabella (Collezionemediterranea).
Il mio obiettivo è, dopo aver riempito con un nome il campo specie nella maschera, riempire automaticamente i campi "codicesistematico1" e "codicesistematico2" copiandone i valori dalla tabella "sistematicamediterranea" per il record corrispondente al campo specie appena inserito nella maschera.
Ho scritto il seguente codice da far partire dopo l'inserimento del campo specie (after update).
Ottengo però il msg di errore che riporto nel titolo, ed il codice si interrompe alla linea che sottolineo sotto:
Private Sub Specie_AfterUpdate()
'Crea variabili per contenere Codice 1 e Codice 2
Dim sSpecie As String
Dim sCod1 As String
Dim sCod2 As Integer
' Assegna il nome della Specie alla variabile sSpecie
sSpecie = Forms!Collezionemediterranea.Specie
Dim MioSQL As String, MiaOrigineRecord As String
' Inizializza l'istruzione SELECT.
MioSQL = "SELECT * FROM [Sistematicamediterranea] WHERE [Specie]=sSpecie"
' Crea l'istruzione SELECT.
MiaOrigineRecord = MioSQL
sCod1 = Table!Sistematicamediterranea.Codicesistematico1
sCod2 = Table!Sistematicamediterranea.Codicesistematico2
Forms!Collezionemediterranea.Cod1 = sCod1
Forms!Collezionemediterranea.Cod2 = sCod2
End Sub