[VBA/ACCESS] Requery che non va

[dasvidania]

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.

[alka]

Di quale linguaggio si parla? Se si tratta di VB, quale versione?

Ricorda che è obbligatorio indicare queste informazioni anche nel titolo della discussione, come da Regolamento.

Ciao!

[dasvidania]

Scusate, ieri sera ero stanco. Si tratta di codice VBA di un programma ACCESS.

[dasvidania]

Ho ovviato il problema utilizzando il timer a 1 secondo e sull'evento timer effettuo la requery sulla maschera(che è in modalità "foglio dati". Ho notato che i risultati vengono visualizzati dopo 2 cicli, cioè dopo 2 secondi. Non so se è normale, ma se qualcuno sa darmi 1 spiegazione o 1 metodo alternativo gli sarò grato. CIAO