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 !!
Le NewRec ne fonctionne pas, le reste Parfait mais ça :
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
NONMe.SF_PriseDeLigne.Form.Recordset.AddNew
Et pourtant sur Open du SF j'ai aussiEt 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 !!
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
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
Partager