Discussion :

[samlepiratepaddy]

Slt,
Je me retroune vers vous car je suis là dessus depuis deux jours et un coup ça marche un coup pas alors ça rame !!

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
Private Sub Commande8_Click()
On Error GoTo Err_Commande8_Click
    Dim stDialStr As String
    Dim PrevCtl As Control
    Const ERR_OBJNOTEXIST = 2467
    Const ERR_OBJNOTSET = 91
    Const ERR_CANTMOVE = 2483
    Set PrevCtl = Screen.PreviousControl
    If TypeOf PrevCtl Is TextBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    ElseIf TypeOf PrevCtl Is ListBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    ElseIf TypeOf PrevCtl Is ComboBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    Else
      stDialStr = ""
    End If
    Application.Run "utility.wlib_AutoDial", stDialStr
    Me.ClickNumérotation = Now
    Form.Refresh
    If Not IsNull(Me.ClickNumérotation) Then
     Me.SF_PriseDeLigne.Visible = True
     Me.SF_PriseDeLigne.Form.Recordset.AddNew
    Else
     Me.SF_PriseDeLigne.Visible = False
    End If
Exit_Commande8_Click:
    Exit Sub
Err_Commande8_Click:
    If (Err = ERR_OBJNOTEXIST) Or (Err = ERR_OBJNOTSET) Or (Err = ERR_CANTMOVE) Then
      Resume Next
    End If
    DoCmd.GoToControl "SF_PriseDeLigne"
    MsgBox Err.Description
    Resume Exit_Commande8_Click
End Sub

Le NewRec ne fonctionne pas, le reste Parfait mais ça :

Me.SF_PriseDeLigne.Form.Recordset.AddNew

NON
Et pourtant sur Open du SF j'ai aussi

Code :

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

1
2
3
4
5
Private Sub Form_Open(Cancel As Integer)
Me.FermerSiPasLeBonInterlocuteur.Enabled = False
Me.ClickNumérotation.Enabled = True
DoCmd.GoToRecord , SF_PriseDeLigne, acNewRec
End Sub

Et malgré cela, je ne sais pas si c'est champPère/fils (NumProspect), mais quand l'enregsitrement du from principal a un enregistrement lié avce le sous form, celui-ci en tiens compte et s'ouvre dessus !!
Ce n'est PAS ce que je veux !
Je veux que ce P....n de SF s'ouvre TOUJOURS sur NewRec !
Je vois pas ce qui cloche???
Quelqu'un y voit clair???
Merci d'avance

[samlepiratepaddy]

Bon j'ai contourné le problème en ajoutant un bouton pour diviser les conditions qui doivre etre mal enchainées dans mon code !
J'ai repris

Code :

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

1
2
3
4
5
6
If Not IsNull(Me.ClickNumérotation) Then 
     Me.SF_PriseDeLigne.Visible = True 
     Me.SF_PriseDeLigne.Form.Recordset.AddNew 
    Else 
     Me.SF_PriseDeLigne.Visible = False 
    End If

sur un bouton qui s'opère après le numéroteur et ça fonctionne je suis toujours sur NewRec !
Dommage, je voulais tout automatiser sans passer par un click bouton queje ne trouve très "pro" !
c'est pas grave...
@+