Discussion :

[Marcopololo]

Bonjour,

Dans un formulaire F1 à case d'option je veux interdire l'ouverture du formulaire F2 si un code client n'est pas choisi avec éventuellement une messagbox

Voici mon code actuel :

Code :

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

1
2
Case 1 
            DoCmd.OpenForm "boite suppression test", acViewNormal, "", "[Code Client]like '" & Nz(Me.SélectionClientCode, "*") & "'", , , Me.Name

Merci d'avance

MArcopololo

[FreeAccess]

Bonjour.....

Il faut être plus précis......

..formulaire F1 à case d'option

Ici je pense qu'en fonction de la case cochée, tu ouvre tel ou tel formulaire...
..et tu ne voudrais ouvrir ce formulaire que si une valeur a été sélectionné ou saisie dans ton contrôle [SélectionClientCode]...

Donc en tout premier, pose un test sur la valeur de ce contrôle....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'En premier je vérifie qu'une valeur existe
If Me.SélectionClientCode="" then
'Si aucune valeur, je sors directement de la procédure
Exit Sub
'Sinon, en fonction de la case cochée, j'ouvre un formulaire
Else
Select case ........
     Case 1
         DoCmd.Openform "Formualire 1".....
     Case 2
         DoCmd.Openform "Formulaire 2"......
End Select

...voici en gros le principe....

[Marcopololo]

Effectivement le code fonctionne.

Mais je n'avais pas vu que mon problème ne vient pas de là.
En fait lorsque mon formulaire apparait la zone de liste Code Client est vierge. Et là si je clique sur mon bouton supprimer j'accède à un formulaire avec zone texte qui affiche le premier code de la table.
Si je choisi un code pas de problème.

Donc existe il une instruction pour vérifier qu'une valeur de ma zone de liste est choisie ?

Merci d'avance

Marcopololo

[francishop]

Bonsoir,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub cmd_OuvreForms_Click()
On Error GoTo Err_cmd_OuvreForms_Click
 If Nz(Me.lst_Client, "") = "" Then
    MsgBox "Veuillez sélectionner un client"
 Else
  DoCmd.OpenForm "frm_aOuvrir", , , "[PK]=" & Me![lst_Client]
 End If
Exit_cmd_OuvreForms_Click:
    Exit Sub  
 
Err_cmd_OuvreForms_Click:
    MsgBox Err.Description
    Resume Exit_cmd_OuvreForms_Click
 
End Sub

Ou :

Code :

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

1
2
3
Private Sub Form_Load()
Me.lst_Client.Selected(0) = True
End Sub

Cordialement.