Discussion :

[ahoure]

bonjour à tous

J'ai un petit soucis de syntaxe avec un code dans le contexte suivant :

Formulaire continu basé sur la table appelée maTable qui comporte un champ NumAuto en clé primaire appelé monID et un champs booléen appelé monChampBooleen. Dans ce formulaire continu, nous y plaçons une case à cocher que l'on appellera chk_maCaseAcocher basé sur le champ monChampBooleen.

L’événement Après Maj de la case à cocher (qui s'appelle chk_maCaseAcocher), dois décocher tous autres cases :
Voici le code que m'a gracieusement donné un membre.

Code :

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

1
2
3
4
5
6
 
Private Sub chk_maCaseAcocher_AfterUpdate()
    If Me.chk_maCaseAcocher Then
        CurrentDb.Execute ("UPDATE maTable SET monChampBooleen=0 WHERE [monID]<>" & Me.monID)
    End If
End Sub

Erreur de syntaxe lors de l'exécution du code UPDATE.
Pouvez-vous m'aider ...merci...

[Smoky184]

Bonjour Ahoure,

Essayes avec :

Code VBA :

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

1
2
3
4
5
MonId_Index = Me.monID
 
Dim Coche As String 
SqlCoche = "UPDATE [MaTable] SET MaTable.[monChampBooleen] = 0 Where MaTable.[MonId] <>" & MonId_index & ";"
DoCmd.RunSQL SqlCoche

Et tu serais sympa de ne pas ouvrir Plusieurs discussions sur le même sujet !


Très cordialement, Nicolas

[Smoky184]

Mille fois merci, pour le code sql sur le sujet (erreur de syntaxe dans l'exécution UPDATE) et il marche à merveille sauf qu'il y a une boîte de dialogue préalable qui s'affiche que j'aimerais bien empêcher ...
Cordialement !
Dr Ahoure

Merci de poser vos question sur le forum pour les prochaines fois :

Code VBA :

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

1
2
3
4
5
6
7
MonId_Index = Me.monID
 
Dim Coche As String 
SqlCoche = "UPDATE [MaTable] SET MaTable.[monChampBooleen] = 0 Where MaTable.[MonId] <>" & MonId_index & ";"
DoCmd.SetWarnings False 'On empêche les les notiications
DoCmd.RunSQL SqlCoche 'On execute le code SQL
DoCmd.SetWarnings True 'On remet les notifications

Je ne répondrais pu au question par MP,

Cordialement, Nicolas