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 |
