Discussion :

[monphp]

Bonjour tt le monde

je voulais savoir comment on fait pour passer d'une boite de dialogue à formulaire

Code :

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

1
2
3
4
  If Me.LstResultat.ListCount = 0 Then
       MsgBox "Le patient est introuvable, Souhaitez vous créer un nouveau Dossier", vbYesNo
 
    End If

merci d'avance de votre aide

[Invité]

Bonjour

Il faut que tu fasses un test sur le retour de ta boite

Code :

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

1
2
3
4
5
If Me.LstResultat.ListCount = 0 Then
     If MsgBox ("Le patient est introuvable, Souhaitez vous créer un nouveau Dossier", vbYesNo) = vbYes then
          DoCmd.OpenForm "lenomdelaformdecréation"
     End If
 End If

Je n'ai pas testé, mais cela devrait convenir.

Starec

[Lou Pitchoun]

Salut,

Fait simplement ceci :

Code :

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

1
2
3
4
5
6
7
8
    Dim Reponse As Integer
 
    If Me.LstResultat.ListCount = 0 Then
        Reponse = MsgBox("Le patient est introuvable, Souhaitez vous créer un nouveau Dossier", vbYesNo)
        if Reponse = vbYes Then
            Docmd.OpenFrom "Nom", , , , acFormAdd
        End If
    End If

[Philippe PONS]

Code :

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

1
2
3
4
5
6
7
 
 If Me.LstResultat.ListCount = 0 Then
   reponse=MsgBox ("Le patient est introuvable, Souhaitez vous créer un nouveau Dossier", vbYesNo)
 If reponse=vbYes Then
     DoCmd.OpenForm "frmNouveauDossier", acNormal, , , , acDialog
 End If
   End If

Philippe

[monphp]

Merci beacoup de m'avoir aidé , ça marche.