bonjour à tous,
je voudrais modifier le recordsource d'un formulaire via des openargs avec ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Open(Cancel As Integer)
Select Case OpenArgs
Dim sql As String
Case Astreinte1
sql = "select * FROM InfosAstreintes WHERE (((InfosAstreintes .Numero)=1));"
Case Astreinte2
sql = "select * FROM InfosAstreintes WHERE (((InfosAstreintes .Numero)=2));"
' il y a neuf cas de figure
End Select
Me.Form.RecordSource = sql
End Sub
ça ne fonctionne pas... quelqu'un aurait-il une idée ?
merci d'avance.