Pb ouverture Frm

3 réponses

tonio

03/02/2006 à 02:01

En cette heure matinale, bonjour,

J'ai un formuliare que je n'arrive plus à ouvrir même directement depuis la
fenêtre de la base de donnée.

Qu'est-ce qui peut provoquer cela?

Merci

--
Tonio
Me.[Débutant]=Null
;-);-);-)

3 réponses

The_Team

03/02/2006 à 12:22

Bonjour,

Peut être tout simplement une erreur ds le code à l'ouverture qui provoque
un plantage.

Ouvre ce formulaire en modification et enlève tout le code pouvant
inter-agir, puis essaie de l'ouvrir à nouveau.

--
Lucky_Team

http://www.access-developpement.com

"tonio" a écrit dans le message
de news:

En cette heure matinale, bonjour,

J'ai un formuliare que je n'arrive plus à ouvrir même directement depuis
la fenêtre de la base de donnée.

Qu'est-ce qui peut provoquer cela?

Merci

--
Tonio
Me.[Débutant]=Null
;-);-);-)

tonio

08/02/2006 à 13:51

The_Team a écrit dans son message <43e33d01$0$21286$ :

Bonjour,

Peut être tout simplement une erreur ds le code à l'ouverture qui provoque un
plantage.

Ouvre ce formulaire en modification et enlève tout le code pouvant
inter-agir, puis essaie de l'ouvrir à nouveau.

--
Lucky_Team

http://www.access-developpement.com

"tonio" a écrit dans le message
de news:
En cette heure matinale, bonjour,

J'ai un formuliare que je n'arrive plus à ouvrir même directement depuis la
fenêtre de la base de donnée.

Qu'est-ce qui peut provoquer cela?

Merci

-- Tonio
Me.[Débutant]=Null
;-);-);-)

Bonjour,

Voici le code du bouton qui appelle le formulaire

Private Sub Btn_New_Contrat_Click()
On Error GoTo Err_Btn_New_Contrat_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Frm_New_Contrat"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Btn_New_Contrat_Click:
Exit Sub

Err_Btn_New_Contrat_Click:
MsgBox Err.Description
Resume Exit_Btn_New_Contrat_Click

End Sub

et voici le code du formulaire destination à l'ouverture

Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
Me.Dossier = [Forms]![Frm_Client]![Dossier_Client]
Me.Titre = [Forms]![Frm_Client]![Titre_Client]
Me.Nom = [Forms]![Frm_Client]![Nom_Client]
Me.Prenom = [Forms]![Frm_Client]![Prenom_Client]
End Sub

qu'est-ce qui cloche?

Merci

--
Tonio
Me.[Débutant]=Null
;-);-);-)

tonio

10/02/2006 à 10:03

The_Team a écrit dans son message <43e33d01$0$21286$
:
Bonjour,

Peut être tout simplement une erreur ds le code à l'ouverture qui provoque
un plantage.

Ouvre ce formulaire en modification et enlève tout le code pouvant
inter-agir, puis essaie de l'ouvrir à nouveau.

--
Lucky_Team

http://www.access-developpement.com

"tonio" a écrit dans le message
de news:
En cette heure matinale, bonjour,

J'ai un formuliare que je n'arrive plus à ouvrir même directement depuis
la fenêtre de la base de donnée.

Qu'est-ce qui peut provoquer cela?

Merci

-- Tonio
Me.[Débutant]=Null
;-);-);-)

Bonjour,

Voici le code du bouton qui appelle le formulaire

Private Sub Btn_New_Contrat_Click()
On Error GoTo Err_Btn_New_Contrat_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Frm_New_Contrat"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Btn_New_Contrat_Click:
Exit Sub

Err_Btn_New_Contrat_Click:
MsgBox Err.Description
Resume Exit_Btn_New_Contrat_Click

End Sub

et voici le code du formulaire destination à l'ouverture

Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
Me.Dossier = [Forms]![Frm_Client]![Dossier_Client]
Me.Titre = [Forms]![Frm_Client]![Titre_Client]
Me.Nom = [Forms]![Frm_Client]![Nom_Client]
Me.Prenom = [Forms]![Frm_Client]![Prenom_Client]
End Sub

qu'est-ce qui cloche?

Merci

pas de solution ???

--
Tonio
Débutant mais volontaire ;-)

Pb ouverture Frm

3 réponses

Veuillez sélectionner un problème