[VBA/Access] RS.Seek kan index niet maken fout 3250

[jordan2k]

Ben bezig met een module die data inleest.
en nu is er een klein probleempje op de controle of data al voorkomt.

Nu wilt de RS.Seek iedere keer een foutmelding geven dat hij geen sleutel kan maken.

Heb het betrefende stukje code plus tabel maar toegevoegd. komt er zo niet uit. ben er nu all de ochtend mee bezig om hier een antwoord voor te vinden en tot aan nu is er nog niet iets wat het probleem opgelost heeft.
heb de data type's al anders gehad. op een enkele string laten zoeken.
de indexen in de tabel veranderd.

code:

Dim myDB As Database

====== Table ======
Het uniekenr is momenteel de sleutel
Dim GidsKlantnr As String
Dim Vestiging As Long
Dim Jaar As Long
Dim Maand As Long
Dim Bedrijfsnaam As String
Dim Straat As String
Dim Huisnummer As String
Dim Postcode As String
Dim Plaats As String
Dim BrutoOmzet As Currency
Dim Korting As Currency
Dim Kortingpercentage As Long
Dim FactuurBedrag As Currency
Dim Brutowinst As Currency
Dim Brutowinstpercentage As Long
Dim Categorie As Long

=================

-
'zoek opnieuw de afnemer om het afnemernummer te bepalen
 rsAfn.Seek "=", Format(Vestiging, "000"), GidsKlantnr

If rsAfn!Actief Then ' Alleen omzet registreren bij actieve afnemers
            
                'zoek een aanvraag voor  deze dealer/ kwartaal
                rsAvr.Seek "=", Format(Vestiging, "000"), CStr(Maand), CStr(Jaar)
-

[BertS]

http://office.webforums.n...php?t=5206&highlight=seek