Hallo
folgendes problem habe ich:
Private Sub Cmd_Liczyc_Click()
Dim osob As String, metraz As String, vczynsz As String
metraz = CStr(Me.Txt_Metraz)
osob = CStr(Me.Txt_Osob)
vczynsz = czynsz((osob), (metraz))
If vczynsz = "" Then
Me.Txt_Czynsz = 0
Else
Me.Txt_Czynsz = vczynsz
End If
End Sub
ich habe einen button löschen und da setze ich alle TextFelder auf leren String so :
Me.Txt_Osob = ""
wenn ich jetz die Funktion Löschen abrufe und dann will ich die Funktin Private Sub Cmd_Liczyc_Click() abrufen ( sie sollte rechnen ) kriege ich ein laufzeit fehler glaube ich 113
Die Funktion czynsz seht so aus:
Public Function czynsz(osoby As Double, metraz As Double)
Dim vczynsz As Double
vczynsz = osoby / metraz
' Rückgabe der Funkton
czynsz = vczynsz
End Function
Ich denke da ich ein problem habe mit Datentyp umwandlung, habe alle aber versucht leider ohne Erfolg ;-((
Bitte Hilllllllllfe