Problem mit Userform
25.05.2005 09:32:34
Gregor
In einer Prozedur rufe ich mit dem Befehl "usrAngabenBahnhof.Show" eine UserForm aus. Der Code des UserForm ist wie folgt programmiert:
Private Sub cmdDrucken_Click()
AngabenBahnhof.PrintForm
End Sub
Private Sub cmdDruckenSchliessen_Click()
AngabenBahnhof.PrintForm
Unload Me
End Sub
Private Sub cmdSchliessen_Click()
Unload Me
'usrAngabenBahnhof.Hide
End Sub
Private Sub UserForm_Initialize()
txtBahnhofname_füllen
lblTitel_füllen
txtAuszug_füllen
End Sub
Sub txtBahnhofname_füllen()
txtBahnhofname.Text = "Zusammenfassende Angaben für den Bahnhof " & Bahnhof
End Sub
Sub lblTitel_füllen()
lblTitel.Caption = vbNewLine & " " & Bahnhof & " hat folgende Perronanlage:"
End Sub
Sub txtAuszug_füllen()
txtAuszug.Text = _
WorksheetFunction.Substitute(StWerte, Chr(32), " ") _
& vbNewLine _
& vbNewLine & "Höchste Perronkante" & vbTab & "P" & PerronhöheMax _
& vbNewLine & "Tiefste Perronkante" & vbTab & vbTab & "P" & PerronhöheMin _
& vbNewLine & vbNewLine & "Ein-/Aus-/Umsteiger" & vbTab & Format(Frequenzen, "#'###") _
& vbNewLine & vbNewLine _
& "Zuständigkeiten:" _
& vbNewLine & "P-RV-IK" & vbTab & vbTab & vbTab & P_RV_IK _
& vbNewLine & "P-RL Region" & vbTab & vbTab & P_RL_Region _
& vbNewLine & "P-KS Region" & vbTab & vbTab & P_KS_Region _
& vbNewLine & "I-PM Filiale" & vbTab & vbTab & I_PM_Filiale _
& vbNewLine & "LKM Bezirk" & vbTab & vbTab & WorksheetFunction.Substitute(LKM, Chr(95), "") _
& vbNewLine & vbNewLine & "Bemerkung:" & vbTab & vbTab & Bemerkung _
& vbNewLine & vbNewLine & "Aktualisiert:" & vbTab & vbTab & Datum
End Sub
Bei erneuten Abfragen übermimmt es mir im Textfeld "txtAuszug.Text" Angaben aus der vorherigen Abfrage. Ich versuchte es statt mit Unload Me mit usrAngabenBahnhof.Hide, aber dann zeigt es mir die kompletten Angaben der vorherigen Abfrage an.
Was tickt da falsch?
Vielen Dank für Hinweise und Gruss
Gregor