Option Compare Database
Option Explicit

Private Sub Kombinationsfeld39_Change()

TBlz = TBank

End Sub

Private Sub Form_Close()

If Not IsNull(TName1) Then SetParameter "MANDANTENNAME1", TName1
If Not IsNull(TName2) Then SetParameter "MANDANTENNAME2", TName2
If Not IsNull(TStrasse) Then SetParameter "MANDANTENSTRASSE", TStrasse
If Not IsNull(TPLZ) Then SetParameter "MANDANTENPLZ", TPLZ
If Not IsNull(TOrt) Then SetParameter "MANDANTENORT", TOrt
If Not IsNull(TTelefon) Then SetParameter "MANDANTENTELEFON", TTelefon
If Not IsNull(TTelefax) Then SetParameter "MANDANTENTELEFAX", TTelefax
If Not IsNull(TDvr) Then SetParameter "MANDANTENDVR", TDvr
If Not IsNull(TBetriebsnummer) Then SetParameter "MANDANTENBETRIEBSNUMMER", TBetriebsnummer
If Not IsNull(TBlz) Then SetParameter "MANDANTENBLZ", TBlz
If Not IsNull(TKontonummer) Then SetParameter "MANDANTENKONTONUMMER", TKontonummer
If Not IsNull(TUID) Then SetParameter "MANDANTENUID", TUID
If Not IsNull(TEMail) Then SetParameter "MANDANTENEMAIL", TEMail
If Not IsNull(THomepage) Then SetParameter "MANDANTENHOMEPAGE", THomepage

End Sub

Private Sub Form_Open(Cancel As Integer)


If Not IsNull(GetParameter("MANDANTENNAME1")) Then TName1 = GetParameter("MANDANTENNAME1")
If Not IsNull(GetParameter("MANDANTENNAME2")) Then TName2 = GetParameter("MANDANTENNAME2")
If Not IsNull(GetParameter("MANDANTENSTRASSE")) Then TStrasse = GetParameter("MANDANTENSTRASSE")
If Not IsNull(GetParameter("MANDANTENPLZ")) Then TPLZ = GetParameter("MANDANTENPLZ")
If Not IsNull(GetParameter("MANDANTENORT")) Then TOrt = GetParameter("MANDANTENORT")
If Not IsNull(GetParameter("MANDANTENTELEFON")) Then TTelefon = GetParameter("MANDANTENTELEFON")
If Not IsNull(GetParameter("MANDANTENTELEFAX")) Then TTelefax = GetParameter("MANDANTENTELEFAX")
If Not IsNull(GetParameter("MANDANTENDVR")) Then TDvr = GetParameter("MANDANTENDVR")
If Not IsNull(GetParameter("MANDANTENBETRIEBSNUMMER")) Then TBetriebsnummer = GetParameter("MANDANTENBETRIEBSNUMMER")
If Not IsNull(GetParameter("MANDANTENBLZ")) Then TBlz = GetParameter("MANDANTENBLZ")
If Not IsNull(GetParameter("MANDANTENBLZ")) Then TBank = GetParameter("MANDANTENBLZ")
If Not IsNull(GetParameter("MANDANTENKONTONUMMER")) Then TKontonummer = GetParameter("MANDANTENKONTONUMMER")
If Not IsNull(GetParameter("MANDANTENUID")) Then TUID = GetParameter("MANDANTENUID")
If Not IsNull(GetParameter("MANDANTENEMAIL")) Then TEMail = GetParameter("MANDANTENEMAIL")
If Not IsNull(GetParameter("MANDANTENHOMEPAGE")) Then THomepage = GetParameter("MANDANTENHOMEPAGE")


End Sub

Private Sub TBank_Change()

TBlz = TBank

End Sub

Private Sub TBlz_Exit(Cancel As Integer)

TBank = TBlz

End Sub