[AC-2003] Modif ou Nouveau

[Trimatelo]

Bonjour à tous,

J'ai coder ce petit machin:

Code :

1
2
3
4
5
6
7
If IsNull(Me.Commande.OldValue) Then
     DoCmd.OpenForm "mon_form"
     DoCmd.GoToRecord acdataform, "mon_form", acNewRec
     Forms.mon_form.Commande = me.Commande
Else
     DoCmd.OpenForm "mon_form", , ,stLinkCriteria
End if

Le stLinkCriteria fonctionne bien.

Mais lorsque j'ajoute un nouveau numéro de commande dans mon formulaire et que je clic sur mon bouton pour faire un nouvelle enregistrement, le numéro de commande n'apparait pas automatiquement :s
quelqu'un pour m'aider ?

Bien cordialement

[Philippe JOCHMANS]

Bonjour

stLinkCriteria est une variable, il faut la déclarer et lui affecter une valeur.

Philippe

[Trimatelo]

Bonjour,

Je l'ai déjà déclarer et lui ai donné une valeur.

En gros, ce que je cherche à faire:

Form1 a une commande dans un champ
Form2 a la même commande dans un champ

on rentre commande dans form1 et lorsque j'appuie sur un bouton, ça check si dans la table de form2 la commande existe déjà, si elle existe aller sur form2 avec le numéro de commande indiqué, sinon créer un nouvel enregistrement avec le numéro de commande pré écrit.

Bien cordialement
Trimatelo!

[helas]

Bonjour,

Vérifier la présence de la commande avec DLookUp par exemple puis en fonction du résultat, créer ou ouvrir la commande

[paidge]

Bonjour,

Helas a raison. Un code comme ceci devrait correspondre à ce que tu veux faire:

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub btn_valider_Click()
 
    If IsNull(DLookup("IDcommande", "T_commandes", "IDcommande ='" & Me.txt_commande & "'")) Then
        DoCmd.OpenForm "F_commandes", acNormal, , , acFormAdd
        Forms("F_commandes").txt_IDcommande = Me.txt_commande
    Else
        DoCmd.OpenForm "F_commandes", acNormal, , "IDcommande='" & Me.txt_commande & "'", acFormEdit
    End If
 
End Sub

NB : Si tu as laissé les noms de contrôle par défaut, tes contrôles ont le même nom que les champs de la table sur laquelle est basé ton formulaire. Dans ce cas Access ne sait pas si tu parles du champs de la table ou du contrôle...C'est peut-être la source de ton problème.