Ouverture formmulaire access
Résolu
Bonjour,
alors j'ai un formulaire demande avec le quel je veux ouvrir un autre formulaire
donc j'ai fais le code sur le clic du bouton :
Private Sub fiche_w_Click()
If IsNull(numId) Then
MsgBox ("Veuillez selectionner une demande dans le sous formulaire")
Else
DoCmd.OpenForm "fm_fiche_w", acNormal, , , , , numId
End If
End Sub
numid est donné avant mais g pa mi tout le code c trop long et sa sa marche c le suivant qui marche pas
et voila le code sur ouverture du formulaire :
Private Sub Form_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
Me.Filter = "fw_id_dem=" & Me.OpenArgs
Me.FilterOn = True
Dim requete As String
requete = ("select * from demande where dem_id =" & Me.OpenArgs)
Dim source As ADODB.Recordset
Set source = CurrentDb.OpenRecordset(requete, DB_OPEN_DYNASET)
Me.fw_id_dem = source("dem_id")
Me.destination = source("dem_des")
Me.nature = source("dem_nat")
Else
Me.Filter = ""
Me.FilterOn = False
End If
End Sub
si quelqu'un peut m'aider
alors j'ai un formulaire demande avec le quel je veux ouvrir un autre formulaire
donc j'ai fais le code sur le clic du bouton :
Private Sub fiche_w_Click()
If IsNull(numId) Then
MsgBox ("Veuillez selectionner une demande dans le sous formulaire")
Else
DoCmd.OpenForm "fm_fiche_w", acNormal, , , , , numId
End If
End Sub
numid est donné avant mais g pa mi tout le code c trop long et sa sa marche c le suivant qui marche pas
et voila le code sur ouverture du formulaire :
Private Sub Form_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
Me.Filter = "fw_id_dem=" & Me.OpenArgs
Me.FilterOn = True
Dim requete As String
requete = ("select * from demande where dem_id =" & Me.OpenArgs)
Dim source As ADODB.Recordset
Set source = CurrentDb.OpenRecordset(requete, DB_OPEN_DYNASET)
Me.fw_id_dem = source("dem_id")
Me.destination = source("dem_des")
Me.nature = source("dem_nat")
Else
Me.Filter = ""
Me.FilterOn = False
End If
End Sub
si quelqu'un peut m'aider
Configuration: Windows XP Firefox 2.0.0.14
5 réponses
-
je v te donnez la réponse mais un peu tard parceke je suis précé aujord'hui
promis -
bonjour,
Erreur de syntaxe, il n'y a pas de parenthèses:
requete = ("select * from demande where dem_id =" & Me.OpenArgs) <-------- faux
requete = "select * from demande where dem_id =" & Me.OpenArgs ' <------- juste
Essaie déjà ça.
A+. -
Sur quelle ligne il s'arrête?
-
Peux tu essayer ces deux syntaxes
requete = "select * from demande where ((dem_id) =" & Me.OpenArgs & ")"
requete = "select * from demande where (dem_id =" & Me.OpenArgs & ")"
A+. -
slt
j'allez dire la meme chose mais je vois que je suis arrivé un peu trop tard
l'éssentiel j'éspere ke t'a trouvé la réponse de ton prblm
