Discussion :

[joe370]

bonjour
je dispose d'un formulaire recherche, qui m'ouvre un autre formulaire "client" à l'aide d'un boutonles clients ont un "mode de reglement" (MDR) et de differente données....
le probleme est que si dans la table client celui si n'a pas de MDR le formulaire s'ouvre en etant vierge
je dois presenter mon projet a 13h et je ne vois vraiment pas comment gérer ce probleme
si quelqu'un a une solution sa serait GENIAL
merci d'avance

[lola06]

Salut,
Comment ouvre tu ton formulaire (code) ?
Il faudrait peut être changer le mode d'ouverture du formulaire.

[joe370]

mon code est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
'ouverture du formulaire Client a partir du CodeClient entré
    If Len(Me.Client) > 0 Then
        Dim X As Variant 'verifie si le champ saisie est valide
        X = DLookup("[CodeClient]", "Client", "[CodeClient] = '" & Me.Client.Value & "'")
        If Len(X) > 0 Then
            DoCmd.OpenForm "Client", , , "[CodeClient]='" & Client.Value & "'"
        Else
            MsgBox ("entrer un code client valide")
        End If
    Else

mais le problème ne vient pas de la a mon avis....
le code du MDR pointe sur une table "mode de reglement" ou le MDR est la clé primaire, c'est plutot la ke se trouve le pb mais ou exactement????

[totofe]

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
'ouverture du formulaire Client a partir du CodeClient entré
    If Len(Me.Client) > 0 Then
        Dim X As Variant 'verifie si le champ saisie est valide
        X = DLookup("[CodeClient]", "Client", "[CodeClient] = '" & Me.Client.Value & "'")
        If Len(X) > 0 Then
             'désactivé les message
             DoCmd.SetWarnings False
             'création du numéro N de projet dans la table plan qualité si ce n'est pa fait
            DoCmd.RunSQL  "INSERT INTO [ta_table] ([CodeClient]) VALUE(" & Me.Client & ")"
            DoCmd.SetWarnings True
            DoCmd.OpenForm "Client", , , "[CodeClient]='" & Client.Value & "'"
        Else
            MsgBox ("entrer un code client valide")
        End If

je pense que ca devrait résoudre ton problème. oubli pas de changer le nom de la table
Mais la meilleurs solution je pense serait de trouvé le bon mode d'ouverture.