Discussion :

[lucas-18]

Bonjour,

J'ai un fromulaire "frm_customers" sur lequel un bouton de commande m'ouvre un formulaire "frm_contact".

Le code de mon bouton de commande est :

Code :

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

1
2
3
Private Sub btn_contact_Click()
DoCmd.OpenForm "frm_contact", acNormal, , "[Customer]=" & "'" & Me![Customernumber] & "'"
End Sub

La source contrôle de mon formulaire "frm_contact" une requête reprenant tous les champs de ma table source et dans la requête, j'ai lié la table customers par un champ commun ; customernumber sur ma table cutomer et customer sur ma table contact.

Le problème, c'est que lorsque j'ouvre mon formulaire "frm_contact" et que je veux créer un nouvel enregistrement, il ne me met pas la valeur repris dans le champ customernumber de mon formulaire "frm_customers" ...

PS : en créeant un sous formulaire cela aurait été plus simple mais je dois m'en passer ...

Aidez-moi svp

[loufab]

Bonjour,

C'est normal il s'agit d'une condition de filtrage, la création n'y est pas sensible.

Mon conseil est de mettre dans la propriété Valeur par défaut du champ Customernumber le n°, juste après ta commande d'ouverture.

Code :

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

1
2
docmd.openform.....
forms.frm_contact.Customer.defaultvalue = me.customernumber

Cordialement,

[lucas-18]

Bonjour,

C'est normal il s'agit d'une condition de filtrage, la création n'y est pas sensible.

Mon conseil est de mettre dans la propriété Valeur par défaut du champ Customernumber le n°, juste après ta commande d'ouverture.

Code :

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

1
2
docmd.openform.....
forms.frm_contact.Customer.defaultvalue = me.customernumber

Cordialement,

Merci Loufab, tu m'as sauvé la vie

[lucas-18]

En fait il y a un truc qui ne va pas ...

Lorsque je supprime un enregistrement sur le formulaire ouvert frm_contact à partir du formulaire principal et que je ferme ce formulaire frm_contact, tous mes contrôles ont disparu sur mon formulaire principal ; j'ai un fond vierge en fait ...

En réalité le problème vient du code suivant sur mon code sur le bouton supprimer de mon formulaire frm_contact :
Je n'ai aucun problème avec ce code :

Code :

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

1
2
3
4
5
6
7
Private Sub Command21_Click()
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDelete
DoCmd.SetWarnings True
Me.NomClef.Requery
End Sub

Mais le problème arrive avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Command21_Click()
If MsgBox("Do you really want to delete this contact ?" & vbCrLf & vbCrLf & "Be careful ! This action is irreversible !", _
vbYesNo + vbExclamation + vbDefaultButton2, "CTX") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDelete
DoCmd.SetWarnings True
Me.NomClef.Requery
End If
End Sub

Une idée ?

[Tofalu]

Le formulaire est vide parce que le jeu d'enregistrement qui le compose est vide. C'est logique : avec ton filtre tu fais en sorte qu'il n'y ait qu'un seul enregistrement dans la source du formulaire, si tu le supprimes, il n'y en a donc plus.

[lucas-18]

Le formulaire est vide parce que le jeu d'enregistrement qui le compose est vide. C'est logique : avec ton filtre tu fais en sorte qu'il n'y ait qu'un seul enregistrement dans la source du formulaire, si tu le supprimes, il n'y en a donc plus.

Tofalu, je pense que cela n'a rien à voir ; comment expliques tu alors qu'avec mon code sans mesg d'avertissement le formulaire principal reste rempli et sans ce mesg il est vierge ....