Supportnet Computer
Planet of Tech

Supportnet / Forum / Datenbanken

wert aus inputbox nach sql_access übernehmen





Frage

Hi, ich fage über eine InputBox den User nach einen Wert, welcher dann in einer SQL Anweisung in der Where Klausel verwendet werden soll. Wieübergebe oder übenehme ich den Wert? ------------------------------------------------- Dim Mldg, Titel, Wert1 As String Mldg = "Bitte Wert eingeben" 'Aufforderung festlegen. Titel = "Eingabefenster" 'Titel festlegen. Wert1 = InputBox(Mldg, Titel) 'Meldung und Titel anzeigen. Debug.Print Wert1 Dim db As Database, rs As Recordset, anz As Integer, x As Integer, bcc_string As String Set db = CurrentDb DoCmd.RunSQL ("SELECT * INTO temp_table FROM Kontaktpersonen where [Anrede] = 'Wert1';") Set rs = db.OpenRecordset("temp_table") anz = DCount("[Email]", "temp_table") Dim myMail As Outlook.MailItem Dim myOutlApp As Outlook.Application Set myOutlApp = New Outlook.Application ------------------------------------------------- MfG Uwe

Antwort 1 von MajorTom

Hi Uwe,

also, überschaubarer wird es wenn du dir denn SQL-String vorher zusammensetzt.
Bsp:
Dim sQry as String

sQry = ""
sQry = sQry & "SELECT * INTO temp_table FROM "
sQry = sQry & "Kontaktpersonen where [Anrede] = '"
sQry = sQry & Wert1 & "';"


Ich hoffe ich bin nicht mit den Anführungszeichen durcheinander gekommen.
Auf jeden Fall muss du den Wert der Inputbox mit dem &-Zeichen verknüpfen.

Hoffe ich konnte dir helfen?

Gruß Tom

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


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: