Discussion :

[jeo13]

Bonjour,

J'ai un souci sur un formulaire (dont un apercu se trouve ici)

Mon but est le suivant:
- lorsque l'utilisateur clique sur la case standard alors la valeur dans Value vaut Null. (voir l'image). Ca c'est ok j'y arrive.
- par contre, la ou je bloque, c'est que si l'utilisateur reclique de nouveau sur standard, alors la valeur doit prendre une valeur provenant d'une autre table (Table des valeurs standard) pour l'enregistrement ayant le meme ID.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Standard_AfterUpdate()
   If Standard.Value = False Then
 
        ConditionValue.Value = Null
 
    Else
 
'        ?!
'        DoCmd.RunMacro "mcr_upd_StandardClientConditionsbyID"
'
    End If
End Sub

C'est sur le deuxieme point sur lequel je bloque.
J'ai essayé de créer une requete de mise a jour de valeur par ID puis une macro (mcr_upd_StandardClientConditionsbyID), mais ca ne fonctionne pas.

Je bloque donc sur la construction requete de mise a jour de valeur.
Et la je ne sais pas comment faire. Ou dois-je plutot passé par du sql imbriqué dans le meme code plutot qu'une requete et macro ?

Merci d'avance pour votre aide !

[jeo13]

En fait dans les criteres de la requete de mise a jour je ne sais pas comment générer l'expression permettant de dire en gros:
On met a jour la valeur de l'enregistrement ou l'ID est celui de la case Standard qui a été recochée...

[mayekeul]

Bonjour,

a chaud, tu pourrais par exemple baser ton formulaire sur une requete prenant déjà en compte la table externe avec une jointure sur l'ID, non?
et ainsi rajouter sur ton code

Code :

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

me.ChampsX=me.ChampsY

mayekeul

[jeo13]

Bonjour Maykeul et merci pour l'idée !!

Avant de chambouler toutes les sources de mes sous formulaires, est-il possible de retranscrire en code ton idée de jointure sur l'ID et d'affectation de valeur?

Merci

[mayekeul]

je dirais en ajoutant un sous-formulaire caché lié sur l'id

si l'Id est unique dans la table externe, cela devrias aller sans problemes

genre

Code :

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

me.Champx=me.Sousformulaire.champsy

mayekeuk

[jeo13]

Merci !

J'ai fait avec ta méthode mais le formulaire est passé en formulaire avec 1 seul enregistrement a la fois ... et la mise a jour de valeur ne marche pas.

Meme le passage en valeur Null ne fonctionne plus...
Ca me rend fou lol!

Je continue mes recherches au niveau du code VBA, je pense qu'il y a possibilité de faire de cette maniere.

[mayekeul]

on peux aussi faire avec dao par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
dim strSql as String
strSql = "SELECT Id FROM table WHERE Id ="
strSQL = strSql & me.ChampsId& ";"
 
dim rs as dao.recordset
set rs =currentdb.openrecordset(strSql)
 
me.ChampsValeur = rs.Fields(0)
 
rs.close

[jeo13]

Merci beaucoup pour ta rapidité !

Donc en reprenant mon code initial j''obtiens:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Standard_AfterUpdate()
 
   If Standard.Value = False Then
 
        ConditionValue.Value = Null
        Forms!frm_Clients.Standard.Value = False
 
    Else
 
        Dim strSql As String
        strSql = "SELECT IDCondition FROM tbl_Standard_Conditions WHERE IDCondition = Me.IDCondition;"
 
        Dim rs As dao.Recordset
        Set rs = CurrentDb.OpenRecordset(strSql)
 
        Me.ConditionValue = rs.Fields(0)
 
        rs.Close
 
    End If
 
End Sub

Et l'erreur provient au niveau Set rs = CurrentDb.OpenRecordset(strSql) - Erreur 3061, trop peu de parametres... Et je vois pas ou ca bloque.

J'ai essayé de mettre la requete hors boucle If mais idem ca passe pas...

[mayekeul]

a mon avis, il viens de ton string sql

Code :

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

1
2
 
strSql = "SELECT IDCondition FROM tbl_Standard_Conditions WHERE IDCondition = Me.IDCondition;"

je mettrai plutot ça

Code :

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

strSql = "SELECT IDCondition FROM tbl_Standard_Conditions WHERE IDCondition = " &  Me.IDCondition & ";"

[jeo13]

Merci !
D'une part car tu résouds mon souci et d'autre part tu m'as appris a passer par DAO !

ps: dans ma requete c'est la valeur qu'il fallait selectionner comme champ a ajouter.

La c'est l'ID qui était ajouté.

Merci encore

[mayekeul]

de rien, avec plaisir!

:o)

allez, champagne