Supportnet Computer
Planet of Tech

Supportnet / Forum / Datenbanken

VBA Hilfestellung





Frage

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]

Antwort 1 von Event

Hallo

Versuch´s mal so:

-> so funktioniert es vielleicht
 Krit = Cstr(Kundnr) & "=´" & Cstr(XID) & "´"


Antwort 2 von SAMA-0012

NE funktioniert so nicht..



Meldung. Datentypen in Kriterienausdruck unverträglich


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

Antwort 3 von Event

Hallo

Wie sind die Variablen denn deklariert?

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

Gruß

Antwort 4 von Springmaus

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

Antwort 5 von SAMA-0012

Heyy SUper es funktioniert

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

THX

Antwort 6 von Springmaus

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

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: