Ik heb een vreemde fout waar ik niet uit kan komen. Het gaat om een (ogenschijnlijk) simpele fout. Namelijk de fout Type Mismatch (3464) die ik krijg op de laatste regel. Het vreemde is dat dit volgens mij wel klopt. De velden die vergleken moeten worden zijn namelijk allebei numeriek. Ik heb de variabele strzoekk ook al als long, double, etc gedeclareerd, maar hij blijft dezelfde foutmelding geven. Iemand een id?
Ik heb al gezocht op got en google, maar daar vind ik alleen dat ik de variabele anders moet declareren, maar dat helpt dus niet
Ik heb al gezocht op got en google, maar daar vind ik alleen dat ik de variabele anders moet declareren, maar dat helpt dus niet
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Dim dbs As Database
Dim strzoek As String
Dim strzoekK As Integer
Dim strLCK As String
Dim strDCK As String
Dim progress As Long
Set dbs = CurrentDb
Set rstLK = dbs.OpenRecordset("SELECT * FROM tmp_Klant")
Set rstDK = dbs.OpenRecordset("SELECT * FROM [Klant NAW]")
rstLK.MoveLast
rstLK.MoveFirst
rstDK.MoveLast
rstDK.MoveFirst
progress = 250
Do While Not rstLK.EOF
Debug.Print "Bezig met klant " & rstLK.klt_nummer & " " & rstLK.klt_naam
strzoekK = rstLK!klt_nummer
rstDK.FindFirst "Klantnummer = '" & strzoekK & "'" |
(\__/) Ik wist totaal niet wat hier neer te zetten....
(='.'=) Dus het werd....
("")("") Een konijn!!