Migration difficile Access97 vers 2002
Bonjour,
Après avoir converti ma base access97 en access 2002, presque tout fonctionne sauf une procédure evenementielle qui est ci-dessous:
et sur la troisième ligne, Access réponds "operation non autorisée pour ce type d'objet"
Private Sub Choisir_le_Client_GotFocus()
Set bd = CurrentDb()
Set B_L_Tempo = bd.OpenTable("B L Tempo")
Set Détail_B_L_Tempo = bd.OpenTable("Détail B L Tempo")
Do Until B_L_Tempo.EOF
B_L_Tempo.Delete
B_L_Tempo.MoveNext
Loop
Do Until Détail_B_L_Tempo.EOF
Détail_B_L_Tempo.Delete
Détail_B_L_Tempo.MoveNext
Loop
DoCmd.SetWarnings False
DoCmd.OpenQuery "CREER T B L Tempo", acNormal, acEdit
DoCmd.OpenQuery "CREER T Détail B L Tempo", acNormal, acEdit
Me![Choisir le Client].Dropdown
End Sub
Merci d'avance
MJ
Après avoir converti ma base access97 en access 2002, presque tout fonctionne sauf une procédure evenementielle qui est ci-dessous:
et sur la troisième ligne, Access réponds "operation non autorisée pour ce type d'objet"
Private Sub Choisir_le_Client_GotFocus()
Set bd = CurrentDb()
Set B_L_Tempo = bd.OpenTable("B L Tempo")
Set Détail_B_L_Tempo = bd.OpenTable("Détail B L Tempo")
Do Until B_L_Tempo.EOF
B_L_Tempo.Delete
B_L_Tempo.MoveNext
Loop
Do Until Détail_B_L_Tempo.EOF
Détail_B_L_Tempo.Delete
Détail_B_L_Tempo.MoveNext
Loop
DoCmd.SetWarnings False
DoCmd.OpenQuery "CREER T B L Tempo", acNormal, acEdit
DoCmd.OpenQuery "CREER T Détail B L Tempo", acNormal, acEdit
Me![Choisir le Client].Dropdown
End Sub
Merci d'avance
MJ
