Bonjour,
J’essai de créer une base de données pour la gestion d’une association.
Afin d’enregistrer la présence et les pouvoirs détenus lors des assemblées générales, j’ai créer une liste d’adhérents (Table AG-Pouvoir), filtré par une requête (Req_AG-Pouvoir) et modifiable dans un formulaire (AG-Pouvoir).
Dans ce formulaire, je coches la présence d’un adhérent et note l’ID de la personne lui ayant donné son pouvoir. (Voir Capture d’écran1 ci-jointe)
Après cette saisie manuelle et après perte focus de la cellule “Pouvoir1”, je souhaite une mise à jour automatique de la ligne de la personne ayant donné son pouvoir comme sur l’image 2 de la capture d’écran.
Malheureusement ma macro ne fonctionne pas, alors que mon Sql fonctionné.
Adresse Macro : (Biblio Standard; Module Secretariat; Macro Pouvoir1)
Auriez-vous l’amabilité, dis jeter un œil.
Avec tout mes remerciements par avance.
Cordialement.
Capture.odt (155.1 KB)
MilPat_V1_Partielle.odb (104.7 KB)
Voici la macro:
Sub Pouvoir1(oEvent As object)
Dim oSourceDonnees As Object
Dim oConnexion As Object
Dim ochamp As object 'pour la valeur du champ N° de pouvoir
Dim oFormulaire As Object 'pour le nom du formulaire
Dim stSql As String
Dim stSql1 As String
Dim oSQL_Commande As Object
Dim oSQL1_Commande As Object
Dim ochamp3 As Object ’ Pour valeur du champ “Nom-prénom”
ochamp = oEvent.Source.Model
oFormulaire = ochamp.Parent
ochamp3 = oFormulaire.getByName( “Nom Prénom” )
If ochamp.getCurrentValue >= 1 Then
'MsgBox (ochamp.getCurrentValue,64) ’ affichage pour tester la valeur
MsgBox (ochamp3.getCurrentValue,64) ’ affichage pour tester la valeur
stSql = “UPDATE oFormulaire SET ““Pouvoir_Donné_à”” = ochamp3.getCurrentValue WHERE ““id_adhérents”” = ochamp.getCurrentValue”
stSql1 = “UPDATE oFormulaire SET ““Selection1"” = True WHERE ““id_adhérents”” = ochamp.getCurrentValue”
oSourceDonnees = ThisComponent.Parent.DataSource
oConnexion = oSourceDonnees.GetConnection(”","")
'MsgBox stSql
oSQL_Commande = oConnexion.createStatement()
'MsgBox stSql1
oSQL1_Commande = oConnexion.createStatement()
Else
Exit Sub
End If
End sub