Es ist sicher nicht so gerne gesehen, aber aufgrund der Dringlichkeit und der Struktur des Forums, wage ich es den Thread noch einmal nach oben zu "schieben" Ich bitte um Nachsicht
Hallo,
wie kann ich folgenden SQL Code in VBA einfügen, damit ich "VERPACK_10.A_KDNR Like 79572" variabel halten kann und eventuell per Userform abfragen kann?
Hintergrund: MS- query zogt mit dem Skript Daten von der AS/400 für eine Kundennummer. Ich möchte die Kundennummer variabel per Userform übergeben.
SELECT date(concat(concat(concat(TTX,'.'),concat(MMX,'.')),JJJJX)), '', VERPACK_10.E_NAME,
VERPACK_10.E_STR2,
'leer2',
Ltrim(VERPACK_10.E_PLZ),
VERPACK_10.E_ORT,
VERPACK_10.E_LAND,
VERPACK_10.E_KDNR,
case when VERPACK_10.KD_SP_KZ = 'L' Then VERPACK_10.KD_SP else 0 end, case when VERPACK_10.KD_SP_KZ = 'C' Then VERPACK_10.KD_SP else 0 end, VERPACK_10.KG_TATS,
case when VERPACK_10.KAT_R10101 = 0 Then '' else VERPACK_10.KAT_R10101 end,
case when VERPACK_10.KAT_R10101 = 0 Then '' else 'FP' end ,
case when VERPACK_10.KAT_R10101 = 0 Then '' else 120 end,
case when VERPACK_10.KAT_R10101 = 0 Then '' else 80 end,
case when VERPACK_10.KAT_R10101 = 0 Then '' else 100 end,
case when VERPACK_10.KAT_R10101 = 0 Then '' else 2 end,
case when VERPACK_10.KAT_R20101 = 0 Then '' else VERPACK_10.KAT_R20101 end,
case when VERPACK_10.KAT_R20101 = 0 then '' else 'HP' end ,
case when VERPACK_10.KAT_R20101 = 0 Then '' else 80 end,
case when VERPACK_10.KAT_R20101 = 0 Then '' else 60 end,
case when VERPACK_10.KAT_R20101 = 0 Then '' else 60 end,
case when VERPACK_10.KAT_R20101 = 0 Then '' else 2 end,
case when VERPACK_10.KAT_R30101 = 0 Then '' else VERPACK_10.KAT_R30101 end,
case when VERPACK_10.KAT_R30101 = 0 Then '' else 'KT' end ,
case when VERPACK_10.KAT_R20101 = 0 Then '' else 40 end,
case when VERPACK_10.KAT_R20101 = 0 Then '' else 30 end,
case when VERPACK_10.KAT_R20101 = 0 Then '' else 40 end,
case when VERPACK_10.KAT_R20101 = 0 Then '' else 2 end,
'NEIN','NEIN','NEIN'
FROM S653DA02.CTRL_LWIS.VERPACK_10 VERPACK_10 WHERE (VERPACK_10.A_KDNR Like 79572 AND VERPACK_10.E_LAND = 'CH')
Danke und Gruß
tor