Dunque, ho una maschera che chiamerò "Form1" al cui interno c'è un campo non associato dove ho inserito il codice per recuperare i dati di due campi appartenenti ad un'altra maschera "Form2". In pratica il codice recupera i valori (testo) dei due campi in "Form2" e li separa da un trattino. Fino qui, tutto bene e tutto semplice.
Ora, vorrei che il valore così ottenuto nel campo non associato venga inserito nel relativo campo (campo1) della tabella che sta alla base della "Form1". Per fare questo ho creato un evento sul campo non associato con il codice seguente:
- Codice: Seleziona tutto
Private Sub Testo80_AfterUpdate()
On Error GoTo Err_Testo80_AfterUpdate
Dim myDB As DAO.Database
Dim valore As String
textfield.SetFocus
valore = textfield.Text
Set myDB = Forms.Application.CurrentDb
myDB.Execute ("INSERT INTO Form1([campo1]) VALUES(" & valore & ")")
Exit_Testo80_AfterUpdate:
Exit Sub
Err_Testo80_AfterUpdate:
MsgBox Err.Description
Resume Exit_Testo80_AfterUpdate
End Sub
Ebbene, questo codice oltre a non fare il lavoro che vorrei che facesse, nemmeno mi restituisce un errore...
Sapreste aiutarmi?
Mi chiederete: Perchè vuoi passare per un campo non associato? Non puoi prendere i valori dei due campi di "Form2" e inserirli direttamente nel campo di "Form1"?
Ecco... se avete anche questa soluzione, allora sarebbe meglio
Grazie a chi mi dedica del tempo!