Ho creato una maschera M e 2 sottomaschere a e b. Con un pulsante eseguo un istruzione "insert into". L'istruzione sql funziona ma vorrei che i risultati di tale istruzione fossero visualizzate nelle sottomaschere a e b (che hanno come origine record, rispettivamente, 1 query della tabella a e 1 query della tabella b). Ho usato questo codice:

Private Sub Comando28_Click()
Dim CONN As New ADODB.Connection
Dim CMD1 As ADODB.Command

Me.CasellaCombinata0.SetFocus
COINT = Me.CasellaCombinata0.Value
CONN.Open CurrentProject.Connection
Set CMD1 = New ADODB.Command

With CMD1
.ActiveConnection = CONN
If FUINT <> 0 Then
.CommandText = "INSERT INTO FunCol ( Id_Fun, Id_Col ) VALUES (" & FUINT & ", " & COINT & ");" 'inserimento dati a
Else
.CommandText = "INSERT INTO InsCol ( Id_Ins, Id_Col ) VALUES (" & ININT & ", " & COINT & ");" 'inserimento dati b
End If
.CommandType = adCmdText
.Execute
End With
CONN.Close
If FUINT <> 0 Then
Me.FUMA.Requery 'Requery Sottomaschera x i dati a
Else
Me.INCO.Requery 'Requery Sottomaschera x i dati b
End If
End Sub

La cosa anomala è che il tutto funziona a partire dalla seconda volta che faccio l'inserimento. Al primo inserimento i dati nelle sottomaschere non si aggiornano.

Se avete qualche indizio vi sarò grato. Ciao a tutti.