BOnjour les gens !
Voila, j'ai créer un formulaire, et je voudrais que lorsqu'on lance le formulaire, une fenêtre s'affiche, où l'utilisateur entre le numéro du salarié, et que ca lance sa fiche avec numéro, nom et prenom.
J'ai donc créé le code si dessous : ....

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
Option Explicit
Dim rstSalarie As Recordset
 
Sub charge()
    NumSalarie = rstSalarie("NumSalarie")
    PrenomSalarie = rstSalarie("PrenomSalarie")
    NomSalarie = rstSalarie("NomSalarie")
End Sub
 
Private Sub Form_Load()
 
Dim req As String
 
Set rstSalarie = New Recordset
 
 rstSalarie.Open "Salarie"
 
Num = InputBox("Saisir le numéro du Salarié.")
 
req = "SELECT NumSalarie, NomSalarie, PrenomSalarie FROM TSALARIE WHERE NumSalarie = " & Num
 
rstSalarie.Open req
 
Set rstSalarie = Execute(req)
 
charge
 
End Sub
... qui évidemment ne fonctionne pas...
Si je pouvais bénéficier de vos lumières...
Bon aprèm