OVH Cloud OVH Cloud

récupération de variable

2 réponses
Avatar
Guy BRUSSON
Bonjour a tous,

Voila mon Probleme sur un champ (NomContact) je fait un doubleclic
pour ouvrir un formulaire (Frm Clients)

au double clic une boite de dialogue souvre avec le titre de mon
(NomContact) dans lequel si je saisie le nom récolté ouvriras bien mon
formulaire au nom clients désiré

Je veux que cela soit automatique

Que me manque t-il ou est l'erreur

Private Sub NomContact_DblClick(Cancel As Integer)

On Error GoTo NomContact_DblClick_Err
Dim lngNomContactID As Long

If IsNull(Me![NomContact]) Then
' DoCmd.OpenForm "Frm Articles Armes Munitions Optiques", , , ,
acFormAdd, acDialog
DoCmd.OpenForm "Frm Clients", , , , acFormAdd, acDialog

Exit Sub
Else

DoCmd.OpenForm "Frm Clients", , , "[NomContact] = " & Me![NomContact],
acFormEdit, acDialog

End If
Me![NomContact].Requery
Exit Sub
NomContact_DblClick_Err:
MsgBox Err.Description

End Sub



--
Amicalement et merci

2 réponses

Avatar
Jessy Sempere [MVP]
Bonjour

Je pense que NomContact est une donnée de type texte...
Si c'est le cas, remplaces la ligne :
DoCmd.OpenForm "Frm Clients", , , "[NomContact] = " & Me![NomContact],
acFormEdit, acDialog

par :
DoCmd.OpenForm "Frm Clients", , , "[NomContact] = '" & Me![NomContact] &
"'",
acFormEdit, acDialog

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Guy BRUSSON" <BGUY> a écrit dans le message de news:

Bonjour a tous,

Voila mon Probleme sur un champ (NomContact) je fait un doubleclic
pour ouvrir un formulaire (Frm Clients)

au double clic une boite de dialogue souvre avec le titre de mon
(NomContact) dans lequel si je saisie le nom récolté ouvriras bien mon
formulaire au nom clients désiré

Je veux que cela soit automatique

Que me manque t-il ou est l'erreur

Private Sub NomContact_DblClick(Cancel As Integer)

On Error GoTo NomContact_DblClick_Err
Dim lngNomContactID As Long

If IsNull(Me![NomContact]) Then
' DoCmd.OpenForm "Frm Articles Armes Munitions Optiques", , , ,
acFormAdd, acDialog
DoCmd.OpenForm "Frm Clients", , , , acFormAdd, acDialog

Exit Sub
Else

DoCmd.OpenForm "Frm Clients", , , "[NomContact] = " & Me![NomContact],
acFormEdit, acDialog

End If
Me![NomContact].Requery
Exit Sub
NomContact_DblClick_Err:
MsgBox Err.Description

End Sub



--
Amicalement et merci


Avatar
Guy BRUSSON
Merci a vous cela fonctionne
--
Amicalement et merci



Bonjour

Je pense que NomContact est une donnée de type texte...
Si c'est le cas, remplaces la ligne :
DoCmd.OpenForm "Frm Clients", , , "[NomContact] = " & Me![NomContact],
acFormEdit, acDialog

par :
DoCmd.OpenForm "Frm Clients", , , "[NomContact] = '" & Me![NomContact] &
"'",
acFormEdit, acDialog

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Guy BRUSSON" <BGUY> a écrit dans le message de news:

Bonjour a tous,

Voila mon Probleme sur un champ (NomContact) je fait un doubleclic
pour ouvrir un formulaire (Frm Clients)

au double clic une boite de dialogue souvre avec le titre de mon
(NomContact) dans lequel si je saisie le nom récolté ouvriras bien mon
formulaire au nom clients désiré

Je veux que cela soit automatique

Que me manque t-il ou est l'erreur

Private Sub NomContact_DblClick(Cancel As Integer)

On Error GoTo NomContact_DblClick_Err
Dim lngNomContactID As Long

If IsNull(Me![NomContact]) Then
' DoCmd.OpenForm "Frm Articles Armes Munitions Optiques", , , ,
acFormAdd, acDialog
DoCmd.OpenForm "Frm Clients", , , , acFormAdd, acDialog

Exit Sub
Else

DoCmd.OpenForm "Frm Clients", , , "[NomContact] = " & Me![NomContact],
acFormEdit, acDialog

End If
Me![NomContact].Requery
Exit Sub
NomContact_DblClick_Err:
MsgBox Err.Description

End Sub



--
Amicalement et merci