title image


Smiley Wie kann ich folgende VAB-Anweisungen vereinfachen?
Hallo zusammen,



ich habe ein Formular mit ungebundenen Textfeldern (absichtlich) diese Felder möchte ich per VBA-Code beim event OnLoad des Formulars mit Inhalten aus einer Tabelle füllen.



Bisher mache ich das so:



Me.Kundenname = [CurrentDb].[OpenRecordset]("SELECT Max([tbl_Kunden].[Kundenname]) AS Kundenname FROM tbl_Kunden where Kundennummer = " & Forms.frm_Uebersicht.txtKundennummer)(0)

Me.Zusatzname = [CurrentDb].[OpenRecordset]("SELECT Max([tbl_Kunden].[Zusatzname]) AS Zusatzname FROM tbl_Kunden where Kundennummer = " & Forms.frm_Uebersicht.txtKundennummer)(0)

Me.PostfachPlz = [CurrentDb].[OpenRecordset]("SELECT Max([tbl_Kunden].[PostfachPlz]) AS PostfachPlz FROM tbl_Kunden where Kundennummer = " & Forms.frm_Uebersicht.txtKundennummer)(0)

Me.Postfach = [CurrentDb].[OpenRecordset]("SELECT Max([tbl_Kunden].[Postfach]) AS Postfach FROM tbl_Kunden where Kundennummer = " & Forms.frm_Uebersicht.txtKundennummer)(0)

Me.PostfachOrt = [CurrentDb].[OpenRecordset]("SELECT Max([tbl_Kunden].[PostfachOrt]) AS PostfachOrt FROM tbl_Kunden where Kundennummer = " & Forms.frm_Uebersicht.txtKundennummer)(0)

Me.Plz = [CurrentDb].[OpenRecordset]("SELECT Max([tbl_Kunden].[Plz]) AS Plz FROM tbl_Kunden where Kundennummer = " & Forms.frm_Uebersicht.txtKundennummer)(0)

Me.Strasse = [CurrentDb].[OpenRecordset]("SELECT Max([tbl_Kunden].[Strasse]) AS Strasse FROM tbl_Kunden where Kundennummer = " & Forms.frm_Uebersicht.txtKundennummer)(0)

Me.Ort = [CurrentDb].[OpenRecordset]("SELECT Max([tbl_Kunden].[Ort]) AS Ort FROM tbl_Kunden where Kundennummer = " & Forms.frm_Uebersicht.txtKundennummer)(0)



Das erscheint mir doch aber nicht nur sehr kompliziert und umständlich, sondern auch mit Sicherheit falsch!!!... Das geht doch auch mit nur einer Abfrage oder?



Gruß Truelli
Grüße aus Hamburg Truelli

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: