Discussion :

[jouf]

bonjour, je retranscrit ma base de données de 2003 à 2000. ( oui, je sais... , c'est plus logique dans l'autre sens...mais j'en suis obligé maintenant...). j'ai donc modifié certaine partie des codes existants pour que cela fonctionne sous access 2000...Mais

voila, j'ai, dans mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
If BoutonRenseigner.Caption = "Nouvelle Donnée" Then
                        maj = MsgBox("la donnée existe déjà dans la base" & Chr(10) & "voulez vous mettre à jour cette donnée?", vbInformation + vbYesNo, "mise à jour")
                        If maj = vbYes Then
                            Call Lancer_Mise_à_jour
                        End If
                    ElseIf BoutonRenseigner.Caption = "Mise à jour" Then
                        Call Renseigner
                    End If

mais, ce qui marche très bien en Access 2000, ne fonctionne pas quand je le test en runtime .
j'essaye donc de trouver une parade...

Rq: j'ai eu plusieur cas du même genre: c a dire, qui fonctionne sous l'access 2000 (que je me suis réinstaller pour faire ma conversion de 2003 vers 2000).

[Shansson]

Bonjour,

Personnellement j'ai opté pour cette syntaxe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If MsgBox("la donnée existe déjà dans la base" & vbCrLf & _
         "voulez vous mettre à jour cette donnée?", vbInformation + vbYesNo, "mise à jour") = vbYes Then
         Call Lancer_Mise_à_jour
End If

[mcdotta]

Oui, mais, où plante-il ? A quelle instruction ?