SQL String wird abgeschnitten

28/12/2014 - 19:11 von Wolfgang Weitzel | Report spam
Hallo,

ich möchte über VBA die Datenquelle eines Unterformulars (UFO)àndern.
Hierzu àndere ich den RecordSource des UFo.
Beil ausführen des Befehls erhalte ich eine Fehlermeldung, in der angegeben wird, dass die From Bedingung unvollstàndig ist.
Gebeich den SQL String mit debup.print aus, so ist dieser vollstàndig.
Nachfolgend der Code.

Mfg
Wolfgang Weitzel

Code:

Private Sub Form_Open(Cancel As Integer)

Set v_Form2 = Forms!F_VA_Auswahl_Daten!UF_VA_Auswahl_Daten.Form

SelectSQL = "SELECT Ansprechpartner.ASP_ID_AD, Ansprechpartner.ID_ASP, AdressDaten.Firma1, AdressDaten.Firma2, AdressDaten.Strasse, AdressDaten.PLZ, AdressDaten.Ort, AdressDaten.Land, AdressDaten.AD_eMail, Ansprechpartner.Briefanrede, Ansprechpartner.Anrede_ASP, Ansprechpartner.Titel,
Ansprechpartner.Vorname, Ansprechpartner.Nachname, Ansprechpartner.Email1, [ASP_ID_AD] & [ID_ASP] AS Code_Nr, Ansprechpartner.Eng_Deutsch,
Selection.Ausland, Selection.authorisierterFachbesucher, Selection.Bank, Selection.Berater_Agentur, Selection.Bildjournalist,
Selection.Blogger, Selection.Arbeitskreise, Selection.Catering, Selection.Cafet_Kantine, Selection.Divers, Selection.Diplomatie,
Selection.Einladungskandidat, Selection.Einzelhandel, Selection.EV, Selection.ext_Weingut, Selection.FH, Selection.[FZ allgemein],
Selection.Fernsehen, Selection.[freier Journalist], Selection.[FZ Essen & Trinken], Selection.[FZ Hotel & Gastronomie],
Selection.[FZ Wein & Getrànke], Selection.Fotograph, Selection.[General Interest], Selection.GG_Wi, Selection.Grosshandel,
Selection.Hotel, Selection.Import_Export, Selection.Infozeitschrift, Selection.Jahrespartner, Selection.[Junge Generation],
Selection.[Junge Talente], Selection.Kellerei, Selection.Kommissionàr, Selection.Kultur, Selection.Lehrinstitut, Selection.Lieferant,
Selection.Medienpartner, Selection.Mitglied, Selection.[Mitglied Sommelierunion], Selection.nicht_anschreiben, Selection.online,
Selection.Onlineshop, Selection.Outlook, Selection.Partner, Selection.Patenkind, Selection.Pràsidium, Selection.Presse,
Selection.Presseagentur, Selection.[Politik reg], Selection.[Politik überreg], Selection.Regionalbüro, Selection.Restaurant,
Selection.Rundfunk, Selection.Sommelier, Selection.[Schwarze Schafe], Selection.Sommeliervereinigung, Selection.Student,
Selection.Tageszeitung, Selection.Termin, Selection.Tourismus, Selection.Veranstaltungspartner, Selection.Weinakademiker,
Selection.Weinwerbungen, Selection.Regierung, Selection.Weinbaupolitik, Selection.Weinwirtschaft, Selection.Wochenzeitung,
Selection.Wirtschaft, Selection.VDPBotschafter, Selection.Verlag, Selection.Vorstand, Selection.VIP, Selection.[Zielgruppen Magazin],
Ansprechpartner.Seriendruck_ASP, Ansprechpartner.Sperrung_VAs, Ansprechpartner.Kategorie , Prowein.Prowein, Prowein.Prowein_Jahr "

FromSQL = "FROM AdressDaten RIGHT JOIN (Ansprechpartner LEFT JOIN Selection ON Ansprechpartner.ID_ASP = Selection.Selection_ASP_ID) ON
AdressDaten.ID_AD = Ansprechpartner.ASP_ID_AD LEFT JOIN Prowein ON Ansprechpartner.ID_ASP = Prowein.Prowein_ID_ASP "

WhereSQL = "WHERE (((Ansprechpartner.Seriendruck_ASP)=[Forms]![F_Übersicht]![v_Memo]) AND ((Ansprechpartner.Sperrung_VAs)=False) AND
((Ansprechpartner.Kategorie)=[Forms]![F_VA_Einladung]![kategorie]) AND ((IIf(IsNull([email1]),'Nein',
IIf(InStr([email1],'@')=0,'Nein','Ja')))=[Forms]![F_VA_Einladung]![v_email_name]))
ORDER BY Ansprechpartner.ID_ASP, AdressDaten.Firma2 "

Debug.Print StrSQL
v_Form2.RecordSource = SelectSQL & FromSQL & WhereSQL

End Sub
 

Lesen sie die antworten

#1 Peter Doering
28/12/2014 - 20:41 | Warnen spam
Hallo,

Wolfgang Weitzel wrote:

ich möchte über VBA die Datenquelle eines Unterformulars (UFO)àndern.
Hierzu àndere ich den RecordSource des UFo.
Beil ausführen des Befehls erhalte ich eine Fehlermeldung, in der angegeben wird, dass die From Bedingung unvollstàndig ist.
Gebeich den SQL String mit debup.print aus, so ist dieser vollstàndig.
Nachfolgend der Code. [...]

Debug.Print StrSQL



Du gibst etwas anderes aus. Aendere die Zeile mal auf:

Debug.Print SelectSQL & FromSQL & WhereSQL

Ansonsten, welche Access-Version? Sind die 3 SQL-Variablen mit fester
Groesse deklariert? Zeig mal die Dim-Statements.

Gruss - Peter

Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com

Ähnliche fragen