Modifier recordsource via des openargs

Version imprimable

bonjour à tous,
je voudrais modifier le recordsource d'un formulaire via des openargs avec ce code :
Code:

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.

Bonjour,

OpenArgs étant de type String je verrai plutôt

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Open(Cancel As Integer)
Dim sql As String
Select Case Nz(OpenArgs, "")
  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+

bonsoir LedZepp,
Merci pour ta réponse, je me sens ridicule d'avoir oublié les " " pour encadrer les OpenArgs....:oops:
le nz ne me sert pas dans mon cas j'ai donc corrigé comme suit.
Code:

1 2 3 4 5 6 7 8 9 10 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));" End Select Me.Form.RecordSource = sql End Sub
pas de probleme, ça fonctionne bien... désolé pour cette étourderie !