Fout 13

[groenenbb]

Hoi Allemaal,

Heeft iemand enig idee waarom ik een foutcode 3464 krijg (typen komen niet overeen)

De code is:

Private Sub lstNamen_AfterUpdate()
    ' De record zoeken die overeenkomt met het besturingselement
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    [COLOR="Red"]rs.FindFirst "[Naam] = " & Str(Nz(Me![lstNamen], 0))[/COLOR]
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    
    Me.AB_Sub.Visible = True

End Sub

6 juni heb ik de bovenstaande code gewijzigd naar de code vanuit het voorbeeld db. Ivm de informatie en grote van de db heb ik een kleinere db gemaakt.


Gr. Stefan

 

[Bakk4318]

Ik denk dat de kolom van je lstNamen waarnaar je verwijst een numeriek veld is.

mvg
Charles

 

[groenenbb]

Heb even gekeken Charles, credits voor deze vab gaan naar jou,
maar de lstNamen is een keuzelijst zonder invoervak. Heb eigenlijk geen idee
hoe dat ik deze op tekst moet zetten.

Achter deze keuzelijst hangt een query waarin 2 velden zijn opgenomen. De velden komen weer uit de standaard tabel.

gr. Stefan

 

[Bakk4318]

Kan je van je veld "Klantnummer" geen numeriek veld maken?

mvg
Charles

 

[groenenbb]

Charles,

Zou juist heb ik het klantnummer veld aangepast van Autonumering naar Numering, echter zonder het gewenste resultaat.

Heb op dit moment geen idee waar ik het probleem zoeken moet. Misschien iemand anders nog met een suggestie?

gr. Stefan

 

[Bakk4318]

In je 1e posting heb je "Klantnummer is een tekstveld" aangepast naar "Klantnummer is een autonummer veld. Dat is wel erg verwarrend. Een autonummering veld is ook numeriek. Dus daar zit je probleem nu niet meer. Kun je misschien een voorbeeldje plaatsen zonder gevoelige informatie?

mvg
Charles

 

[groenenbb]

Zal eens kijken of ik het kan posten de db is 1,3 mb groot en te groot voor hier te uploaden.


Zal even een kleinere nieuwe db opzetten om te laten zien wat ik had.
Pfff gaat lekker nu krijg ik fout 91 Objectvariable of blokvariable With niet ingesteld.

 

[groenenbb]

Oef tot nu toe zover goed.
Ben weer aanbeland bij een foutcode.
Deze keer is het 3464 Gegevenstypen komen niet overeen in criteriumexpressie

Heb een blijage in rar toegevoegd met zip kreeg ik dit niet klein genoeg om te uploaden.

 

[Bakk4318]

Onderstaande code aanpassen:

Private Sub lstNamen_AfterUpdate()
' De record zoeken die overeenkomt met het besturingselement
Dim rst As Recordset

Set rst = Me.Recordset.Clone
rst.FindFirst "[Naam] = " & Str(Nz(Me![lstNamen], 0))
If Not rst.EOF Then Me.Bookmark = rst.Bookmark

Me.AB_sub.Visible = True

End Sub

Vervang de vette tekst "Naam" met "Nummer"

Koppel het hoofd- en subformulier met het veld nummer in plaats van naam. Het nummer is uniek, de namen hoeven niet uniek te zijn.

Zie bijlage:

mvg
Charles

 

[groenenbb]

Charles je bent super.
Dit was inderdaad de oplossing.

Alleen even kijken of ik het ook begrijp.

Findfirst is het 1e criterium binnen de query?