Supportnet / Forum / Datenbanken

Set db = CurrentDb() Set rs = db.OpenRecordset("Kunden",dbOpenSnapshot) [b] Krit = "Kundname=´" & XID & "´"[/b] [i]//// Hier ist das Problem. Wie bekomme ich anstatt eine Zeichenkette eine Feld mit einer Zahl in das Kriterium?? Name Kundnr -> so funktioniert es nicht Krit = str(Kundnr) & XID ich hoffe jemand kann mir helfen DANKE SCHONMAL [/i] rs.FindFirst Krit If rs.NoMatch Then Else xKundnr = rs!Kundnr xAnrede = rs!Anrede xKundname = rs!Kundname xKundvorname = rs!Kundvorname xKundstraße = rs!Kundstraße xKundplz = rs!Kundplz xKundort = rs!Kundort xKundtele = rs!Kundtele xGeburtsD = rs!GeburtsD xVers = rs!Vers_Nr xDebitNr = rs!DebitNr xtest = rs!PfegestufeNr End If[b]

Hallo

Versuch´s mal so:

-> so funktioniert es vielleicht

 Krit = Cstr(Kundnr) & "=´" & Cstr(XID) & "´"

NE funktioniert so nicht..



Meldung. Datentypen in Kriterienausdruck unverträglich


hast du noch einen vorschlag oder sonst wer bitte um rat.

Hallo

Wie sind die Variablen denn deklariert?

Was steht in XID?
Und funktioniert das Krit = "Kundname=´" & XID & "´"

Gruß

vielleicht so???
Krit = "[Kundnr] = " & str(XID)

Heyy SUper es funktioniert

-> das war die Lösung Krit = "[Kundnr] = " & str(XID)

THX

Bitte bitte, gern geschehen. Freut mich, dasss es Jetzt klappt.

• Handbuch zur Einführung in die VBA Programmierung in EXCEL
• VBA Skript für Farbumstellung an Powerpointfolien
• mehre Excel Arbeitsblaetter in PowerPoint via VBA ansprechen