Objekt an Prozedur übergeben
16.03.2007 10:06:00
Bertram
isch hätt gern mal a Problem:-)
Wenn ich ein UF (FdatenErfassen) mit einem ToggleButton (tglKundeBearbeiten) habe und schreibe schreibe:
FDatenErfassen.tglKundeBearbeiten = True
dann funktioniert das einwandfrei.
Möchte ich den TB allerdings als Object an eine andere Prozedur übergeben, dann funktioniert das nicht mehr:-(
Im Bsp. funktioniert alles bis auf diesen TG. Kann mir einer sagen, was ich falsch mache?
Sub PrepareForNeuerDatensatz(obj As Object, cb As Object, tb As Object)
For Each ctrl In obj.Controls
If TypeOf ctrl Is MSForms.TextBox Then ctrl.Value = ""
Next ctrl
cb.MatchRequired = False
With FDatenErfassen
.cmdSpeichern.Enabled = True
.tglKundeBearbeiten = True'DAS FUNKTIONIERT NICHT:-(
End With
End Sub
Sub Neu_Click()
Do
warning = InputBox("Bite wählen Sie:" & vbCrLf & vbCrLf & "Kunde, Rechnungsempfänger:" & vbTab & "K" & _
vbCrLf & "Patient, Kassenmitglied:" & vbTab & vbTab & "P", "Neuen Datensatz anlegen")
Loop Until UCase(warning) = "K" Or UCase(warning) = "P"
If UCase(warning) = "K" Then
Call PrepareForNeuerDatensatz(FDatenErfassen.frmKunde, FDatenErfassen.cboKName, FDatenErfassen.tglKundeBearbeiten)
Else
Call PrepareForNeuerDatensatz(FDatenErfassen.frmPatient, FDatenErfassen.cboPName, FDatenErfassen.tglPatientBearbeiten)
End If
End Sub
Danke für jeden Tip
Gruß
Bertram