Discussion :

[morinxav]

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

[User]

Salut,

Tu as mis ton code sur chargement de ton formulaire, pourquoi ne pas le mettre sur le clic d'un bouton de commande par exemple ?

A+

[morinxav]

En fait je voudrais que au chargement du formulaire l'enregistrement soit placer directement au bon endroit, c'est à dire, si cet enregistrement existe : aller le chercher, si il n'existe pas , faire un nouvel enregistrement.

[morinxav]

Est ce qu quelqu'un pourrait me dire pourquoi je ne peut pas exécuter ces commandes s'il vous plait.

[User]

Peux.-tu un peu préciser le contexte :

Je vois que tu ferme un formulaire "F_Stagiaire" avant dans le code et que tu ouvre un recordset ???

Quelle est l'utilité de cette partie de code ?

Merci !

[BornToBe]

Je dis peut-être une bêtise, mais "Caption" ce n'est pas un libellé?
Faudrait pas mettre "Value", à la place?

[morinxav]

Le recordset est la pour tester l'existence de l'enregistrement, si il renvoie une erreur il n'existe pas je fait une chose et si il existe j'en fait une autre.

[morinxav]

Pour le Caption, c'est parce que je manipule des labels car j'ai eu des problèmes avec les zones de textes.

[morinxav]

J'ai trouvé d'où venait le problème. C'est la fermeture du formulaire qui empêchait le code de s’exécuter. Par contre je ne comprend pas pourquoi.

[BornToBe]

Je ne sais pas pourquoi non-plus, mais tu peux appeler la fonction de fermeture du formulaire depuis ce même formulaire, donc je te conseille de faire plutôt ça.

En l'occurrence, depuis l'endroit où tu quittes le formulaire pour en ouvrir un autre (par exemple dans le code d'un bouton), tu peux mettre:

Code :

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

1
2
DoCmd.Close acForm, Me.Name, acSavePrompt
DoCmd.OpenForm "FORMULAIRE_APPELÉ"