Ouverture formmulaire access
Résolu
stepy02
Messages postés
12
Date d'inscription
Statut
Membre
Dernière intervention
-
petite info Messages postés 54 Date d'inscription Statut Membre Dernière intervention -
petite info Messages postés 54 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Ouverture formmulaire access
- Page d'ouverture google - Guide
- Acer quick access - Forum logiciel systeme
- Quick Access service ✓ - Forum PC portable
- Désinstaller ACER QUICK ACCESS - Forum Logiciels
- Access appdata - Guide
5 réponses
je v te donnez la réponse mais un peu tard parceke je suis précé aujord'hui
promis
promis
stepy02
Messages postés
12
Date d'inscription
Statut
Membre
Dernière intervention
merci c gentil j'atendrai la reponse
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+.
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+.
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+.
requete = "select * from demande where ((dem_id) =" & Me.OpenArgs & ")"
requete = "select * from demande where (dem_id =" & Me.OpenArgs & ")"
A+.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question