Discussion :

[Invité]

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.

[LedZeppII]

Bonjour,

OpenArgs étant de type String je verrai plutôt

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)
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+

[Invité]

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

Code :

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

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 !