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
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