Menu

Macro de recherche

- - Dernière réponse : yg_be
Messages postés
7680
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 avril 2019
- 8 avril 2019 à 19:21
Bonjour,

j'essaye de créer une macro très simple de recherche, similaire à la macro de la loupe mais lorsque je l'exécute, le curseur cherche sur un autre champs que celui que j'ai normalement programmé.

Comment faire ?

Configuration: Windows / Chrome 62.0.3202.94
Afficher la suite 

Votre réponse

1 réponse

Messages postés
7680
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 avril 2019
457
0
Merci
bonjour, difficile de t'aider sans que tu ne nous montres ton code.
ok, je ne m'y connais vraiment pas. voici le code du formulaire et la macro qui ne fonctionne pas comme je voudrais c'est quand on double clic sur Nom

Option Compare Database

Private Sub Commande25_Click()
On Error GoTo Err_Commande25_Click


DoCmd.GoToRecord , , acLast

Exit_Commande25_Click:
Exit Sub

Err_Commande25_Click:
MsgBox Err.Description
Resume Exit_Commande25_Click

End Sub
Private Sub Commande26_Click()
On Error GoTo Err_Commande26_Click


DoCmd.GoToRecord , , acPrevious

Exit_Commande26_Click:
Exit Sub

Err_Commande26_Click:
MsgBox Err.Description
Resume Exit_Commande26_Click

End Sub
Private Sub Commande27_Click()
On Error GoTo Err_Commande27_Click


DoCmd.GoToRecord , , acNext

Exit_Commande27_Click:
Exit Sub

Err_Commande27_Click:
MsgBox Err.Description
Resume Exit_Commande27_Click

End Sub
Private Sub Commande28_Click()
On Error GoTo Err_Commande28_Click


DoCmd.GoToRecord , , acFirst

Exit_Commande28_Click:
Exit Sub

Err_Commande28_Click:
MsgBox Err.Description
Resume Exit_Commande28_Click

End Sub
Private Sub Commande29_Click()
On Error GoTo Err_Commande29_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Commande29_Click:
Exit Sub

Err_Commande29_Click:
MsgBox Err.Description
Resume Exit_Commande29_Click

End Sub
Private Sub Commande30_Click()
On Error GoTo Err_Commande30_Click


DoCmd.GoToRecord , , acNewRec

Exit_Commande30_Click:
Exit Sub

Err_Commande30_Click:
MsgBox Err.Description
Resume Exit_Commande30_Click

End Sub
Private Sub Commande31_Click()
On Error GoTo Err_Commande31_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.PrintOut acSelection

Exit_Commande31_Click:
Exit Sub

Err_Commande31_Click:
MsgBox Err.Description
Resume Exit_Commande31_Click

End Sub
Private Sub Commande33_Click()
On Error GoTo Err_Commande33_Click


DoCmd.GoToRecord , , acNewRec

Exit_Commande33_Click:
Exit Sub

Err_Commande33_Click:
MsgBox Err.Description
Resume Exit_Commande33_Click

End Sub
Private Sub Commande199_Click()
On Error GoTo Err_Commande199_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Commande199_Click:
Exit Sub

Err_Commande199_Click:
MsgBox Err.Description
Resume Exit_Commande199_Click

End Sub
Private Sub Commande212_Click()
On Error GoTo Err_Commande212_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Commande212_Click:
Exit Sub

Err_Commande212_Click:
MsgBox Err.Description
Resume Exit_Commande212_Click

End Sub
Private Sub Commande220_Click()
On Error GoTo Err_Commande220_Click


DoCmd.Close

Exit_Commande220_Click:
Exit Sub

Err_Commande220_Click:
MsgBox Err.Description
Resume Exit_Commande220_Click

End Sub
Private Sub Commande251_Click()
On Error GoTo Err_Commande251_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Commande251_Click:
Exit Sub

Err_Commande251_Click:
MsgBox Err.Description
Resume Exit_Commande251_Click

End Sub
Private Sub Commande256_Click()
On Error GoTo Err_Commande256_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Commande256_Click:
Exit Sub

Err_Commande256_Click:
MsgBox Err.Description
Resume Exit_Commande256_Click

End Sub
Private Sub Commande298_Click()
On Error GoTo Err_Commande298_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Commande298_Click:
Exit Sub

Err_Commande298_Click:
MsgBox Err.Description
Resume Exit_Commande298_Click

End Sub
Private Sub Commande347_Click()
On Error GoTo Err_Commande347_Click


DoCmd.Close

Exit_Commande347_Click:
Exit Sub

Err_Commande347_Click:
MsgBox Err.Description
Resume Exit_Commande347_Click

End Sub

Private Sub Nom_DblClick(Cancel As Integer)

End Sub
Private Sub Commande403_Click()
On Error GoTo Err_Commande403_Click


DoCmd.GoToRecord , , acFirst

Exit_Commande403_Click:
Exit Sub

Err_Commande403_Click:
MsgBox Err.Description
Resume Exit_Commande403_Click

End Sub
Private Sub Commande404_Click()
On Error GoTo Err_Commande404_Click


DoCmd.GoToRecord , , acPrevious

Exit_Commande404_Click:
Exit Sub

Err_Commande404_Click:
MsgBox Err.Description
Resume Exit_Commande404_Click

End Sub
Private Sub Commande405_Click()
On Error GoTo Err_Commande405_Click


DoCmd.GoToRecord , , acNext

Exit_Commande405_Click:
Exit Sub

Err_Commande405_Click:
MsgBox Err.Description
Resume Exit_Commande405_Click

End Sub
Private Sub Commande406_Click()
On Error GoTo Err_Commande406_Click


DoCmd.GoToRecord , , acLast

Exit_Commande406_Click:
Exit Sub

Err_Commande406_Click:
MsgBox Err.Description
Resume Exit_Commande406_Click

End Sub
Private Sub Commande408_Click()
On Error GoTo Err_Commande408_Click


DoCmd.GoToRecord , , acNewRec

Exit_Commande408_Click:
Exit Sub

Err_Commande408_Click:
MsgBox Err.Description
Resume Exit_Commande408_Click

End Sub

Private Sub Texte446_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub Texte446_DblClick(Cancel As Integer)

End Sub
yg_be
Messages postés
7680
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 avril 2019
457 -
tu veux dire qu'il se passe autre chose quand tu double-cliques sur le champ "Nom"?
peux-tu choisir le type "basic" quand tu partages ton code, et indiquer à quelle ligne se trouve le code que tu as ajouté pour faire la recherche?
est-ce que c'est mieux comme ça ?

Option Compare Database

'------------------------------------------------------------
' M_recherche_client
'
'------------------------------------------------------------
Function M_recherche_client()
On Error GoTo M_recherche_client_Err

With CodeContextObject
On Error Resume Next
DoCmd.GoToControl Screen.PreviousControl.Name
Err.Clear
DoCmd.RunCommand acCmdFind
If (.MacroError <> 0) Then
Beep
MsgBox .MacroError.Description, vbOKOnly, ""
End If
End With


M_recherche_client_Exit:
Exit Function

M_recherche_client_Err:
MsgBox Error$
Resume M_recherche_client_Exit

End Function
lorsque je double clic sur "Nom", au lieu de proposer de chercher un nom, il propose de cherche un prénom !
yg_be
Messages postés
7680
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 avril 2019
457 -
peux-tu choisir le type "basic" quand tu partages ton code?
où se fait l'appel de M_recherche_client()?
pourquoi utilises-tu
Screen.PreviousControl.Name
au lieu du nom du contrôle dans lequel tu veux faire la recherche?
Commenter la réponse de yg_be