Macro de recherche
Fermé
Ccile
-
8 avril 2019 à 11:25
yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 8 avril 2019 à 19:21
yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 8 avril 2019 à 19:21
A voir également:
- Macro de recherche
- Recherche musique - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Google recherche par image - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
1 réponse
yg_be
Messages postés
22730
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
1 477
8 avril 2019 à 12:28
8 avril 2019 à 12:28
bonjour, difficile de t'aider sans que tu ne nous montres ton code.
8 avril 2019 à 13:04
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
8 avril 2019 à 13:25
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?
8 avril 2019 à 13:44
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
8 avril 2019 à 13:45
8 avril 2019 à 19:21
où se fait l'appel de M_recherche_client()?
pourquoi utilises-tu au lieu du nom du contrôle dans lequel tu veux faire la recherche?