Impossible à l'ouverture Form d'aller à une nvl entree

**Salsaboy60** · 24/02/2013, 09h37

Bonjour,

Dans l'évènement Form_Current j'ai placé le code suivente :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub Form_Current()
 
  Select Case ChoixClient
 
    Case "1"
     Me.Nom.SetFocus
     Me.Nom.Locked = True
     Me.Prénom.Locked = True
     Me.Adresse.Locked = True
     Me.Code_Postale.Locked = True
     Me.Localité.Locked = True
     Me.Pays.Locked = True
     Me.Téléphone.Locked = True
     Me.Fax.Locked = True
     Me.GSM.Locked = True
     Me.e_mail.Locked = True
     Me.CatClient.Locked = True
     Me.nr_ZIN.Locked = True
     Me.nomEcole.Locked = True
     Me.divers.Locked = True
     Me.N°TVA.Locked = True
     Me.factHTVA.Locked = True
 
   Case "2"
    Me.Titre.Caption = "Modifications Clients / Fournisseurs"
    Me.btnNext.SetFocus
 
   Case "3"
     Me.Titre.Caption = "Ajouter Clients / Fournisseurs"
     Me.IdClient.SetFocus
     Me.IdClient.Locked = False
     Me.CodeIdentifient.Locked = False
     Me.Nom.Locked = False
     Me.Prénom.Locked = False
     Me.Adresse.Locked = False
     Me.Code_Postale.Locked = False
     Me.Localité.Locked = Falsee
     Me.Pays.Locked = False
     Me.Téléphone.Locked = False
     Me.Fax.Locked = False
     Me.GSM.Locked = False
     Me.e_mail.Locked = False
     Me.CatClient.Locked = False
     Me.nr_ZIN.Locked = False
     Me.nomEcole.Locked = False
     Me.divers.Locked = False
     Me.N°TVA.Locked = False
     Me.factHTVA.Locked = False
     DoCmd.GoToRecord , , acNewRec
 
 End Select
End

C'est la dernière ligne de l'option 3 : DoCmd.GoToRecord , , acNewRec
qui me pose un problème. J'ai déjà essayé de placer le code dans le Form_OnLoad, mais ça ne change rien.

Qqn sais me dire pourquoi ceci pose problème?

Merci d'avance

Hans