Bonjour,

Au lancement de mon code VBA, j'ai une erreur : la commande ou l'action "" n'est pas disponible pour l'instant. J'aimerais trouver pourquoi elle n'est pas disponible pour pouvoir l’exécuter en la "rendant disponible".
De plus si je place mes commandes en début de fonction, elles marchent sans problème. Le problème est donc lié aux traitements que je fait par la suite.

Voici mon code :

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
Private Sub Form_Load()
Dim db As DAO.Database: Set db = CurrentDb
Dim str As String
 
DoCmd.Close acForm, "F_Stagiaire"
 
heuresql = "SELECT Id_Tp FROM T_Tp WHERE Id_Tp = " & Me.Id_Tp_Stag.Caption
'On Error GoTo nouvTp
Set rst = db.OpenRecordset(heuresql)
 
    Me.Id_Tp.SetFocus
    str = Me.Id_Tp_Stag.Caption
    DoCmd.FindRecord str, acAnywhere, , acSearchAll, , acCurrent
    etat = False
    Exit Sub
 
nouvTp:
    etat = True
    DoCmd.RunCommand acCmdRecordsGoToNew
End Sub
Ce sont les commandes : DoCmd.RunCommand acCmdRecordsGoToNew et DoCmd.FindRecord str, acAnywhere, , acSearchAll, , acCurrent qui posent problème.

Merci d'avance