Discussion :

[challe1976]

Bonjour,

J'ai un formulaire que quand j'écris un numéro dans l'espace blanc, ensuite, j'exécute la requête avec ce numéro, il me donne un erreur, j'aimerais à la place qu'il m'ouvre une fiche avec l'information concernant ce numéro.

Voici le formulaire:


Et le 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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
 
Private Sub btnExecuterRequetes_Click()
On Error GoTo Catch
 
    If validerParametres Then
 
 
        obtenirDonneesACTE_OPTO_DT
 
        MsgBox "Exécution terminé"
 
    End If
 
 
    GoTo Finally
 
Catch:
 
    'Faire afficher le message d'erreur
    MsgBox Err.Description, vbCritical, "Erreur " & Err.Number
    JournaliserErreur Err.Number, Err.Source, Err.Description, "OP2008-003"
 
Finally:
 
 
End Sub
 
 
Private Sub obtenirDonneesACTE_OPTO_DT()
 
    Dim qdf As QueryDef
    Set qdf = CurrentDb.QueryDefs("ACTE_OPTO_DT")
 
    'Paramètres
    qdf.Parameters("DEBUT").Value = pDateDebut
 
    'Exécuter la requête
    qdf.Execute
 
End Sub

[PipoWIL]

bonjour,

Puis-je vous suggérer de jetter un coup d'oeil dans les tutoriels ? http://access.developpez.com/cours/?...#interfaceform
Les tutoriels à propos des formulaires de recherche sont assez intéressants.