code DAO: 1 parametre attendu.
Bonjour,
je séche lamentablement
Une base acces 97, une table [ILOTS], 4 Champs
_NoIlot champs numerique entier long
_NomIlot champs texte
_Surface Champs numerique entier long
_Culture Champs texte
Voila pour la base
Je cree un projet sous vb 4 pro avec
1 form Form1
1 combo CmbNonIlot
1 text box Text1
Dans le formload je tape
Code:
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
| Private Sub Form_Load()
Dim base As String
base = "INTRANTS.mdb"
Dim a As Variant
'remplir la liste des ilots
Dim db As Database
Dim rsc As Recordset
Dim SQLC As String
SQLC = "SELECT [NomIlot] FROM [ILOTS]"
Set db = Workspaces(0).OpenDatabase(base)
Set rsc = db.OpenRecordset(SQLC, dbOpenDynaset)
If rsc.RecordCount = 0 Then
MsgBox " Vous devez remplir la Fiche des Ilots"
Exit Sub
End If
rsc.MoveFirst
a = rsc![NomIlot]
Do Until rsc.EOF
a = rsc![NomIlot]
CmbNonIlot.AddItem a
rsc.MoveNext
Loop
rsc.MoveFirst
rsc.Close
db.Close
End Sub |
Dans clic du combo je tape
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Private Sub CmbNonIlot_Click()
Dim base As String
base = "INTRANTS.mdb"
Dim db As Database
Dim critere As String
critere = CmbNonIlot
Dim rsSurf As Recordset
Dim SQLSurf As String
SQLSurf = " SELECT [Surface] FROM [ILOTS] " _
& " WHERE [NomIlot] = " & CmbNonIlot & ";"
Set db = Workspaces(0).OpenDatabase("INTRANTS.mdb")
Set rsSurf = db.OpenRecordset(SQLSurf, dbOpenDynaset)
rsSurf![Surface] = Text1.Text
rsSurf.Close
End Sub |
Si je lance, le combo se rempli mais au premier clic qui doit m'afficher dans
Text1 la surface de l'ilot que j'ai selectionne dans le combo, j'ai droit a "Trop peu
de parametre.1 parametre manquant"
La base est bonne, la sql est bien sur le nom de l'ilot du combo,les noms de champs
dans la base et le prog sont correct et le compil s'arrete sur le set rsSurf.
Qu'est-ce que j'oublie????
Merci d'avance pour vos réponses.
jpp
