Code optimieren
10.04.2008 17:06:08
Herbert
ich habe mir den Code gebastelt, aber ich würde gern wissen ob man den nicht noch optimieren kann.
Es werden zwei textboxen addiert in einem Formular (access) aber ist ja eig. auch vba
deshalb könnt ihr das besitmmt auch!
'Wohneinheiten Privat & Gewerbe werden addiert
Dim WE, WEGewerbe, AnzahlWE As Integer
If IsNull(Me.Objekt_WE) Or Me.Objekt_WE = "" Then
WE = 0
Else
WE = Me.Objekt_WE
End If
If IsNull(Me.Objekt_WEGewerbe) Or Me.Objekt_WEGewerbe = "" Then
WEGewerbe = 0
Else
WEGewerbe = Me.Objekt_WEGewerbe
End If
AnzahlWE = CDbl(WE) + CDbl(WEGewerbe)