Discussion :

[gravia]

bonjour,

en sortie de contrôle d'un formulaire j'ai mis ce code

Code :

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

1
2
3
4
5
6
7
8
Private Sub N°_risque_AfterUpdate()
Dim strSql As String
 
strSql = "SELECT [Risques SMR].[N° risque], [Risques SMR].[Périodicité des visites] FROM [Risques SMR] WHERE ((([Risques SMR].[N° risque])=[Formulaires]![Salariés]![Expositions sous-formulaire].[Form]![N° risque]));"
 
Forms.Salariés.Rythmicité = strSql
 
End Sub

malheureusement il bloque sur

Code :

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

Forms.Salariés.Rythmicité = strSql

n'ayant aucune connaissance en VBA, je viens demander un petit coup de main. MERCI

[gravia]

rebonjour,

je viens de m'apercevoir que le type de mon champ rythmicité était numérique pour une variable strsql de type string.

j'ai donc corrigé cela en faisant

Code :

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

Forms.Salariés.Rythmicité = Val(strSql)

mais maintenant je m'aperçois que la valeur retournée par ma requête n'était pas bonne, j'aurai foiré semble-t'il.
un petit coup de main.

[Siguillaume]

Bonjour!
Et quel problème rencontres-tu présentement?
Si tout est ok, tu as oublié