Hallo,
erbitte Hilfe mit diesem Problem, für das ich hoffentlich genügend Info liefere:
1) eine userform übergibt mit cmd1 bis zu 5 order items, cleart die Eingabefelder für erneute Eingaben.
2) ein cmd2 übergibt die restlichen order items und schreibt die Bestellung
3) Nach einer Änderung der userform funktioniert nur noch die finale, nicht jedoch die temporäre Datenübergabe
4) Das Problem entstand, als ich zwei Radio buttons (Discount Yes or NO) gegen ein Kontrollkästchen (Discount Yes) tauschte. Benutze ich cmd2 (weil ich nur ingesamt 5 items habe) gibt es keinen Laufzeitfehler. Benutze ich cmd1 , erhalte ich Fehler 13 (Typen unverträglich)
VORHER (keine Probleme):
Private Sub txtOrdersDisc1_Change()
Dim q
Dim u
Dim d
q = txtOrdersQty1.Value 'dieser Wert wird vom Anwender eingetragen
u = txtOrdersUnitPrice1.Value ' dieser Wert wird automatisch eingetragen
d = txtOrdersDisc1.Value 'dieser Wert wird vom Anwender eingetragen
If txtOrdersDisc1.Value = "" Then
txtOrdersItemSum1.Value = Format(q * u, "#,0.00")
Else
txtOrdersItemSum1.Value = Format(q * (u - ((u / 100) * d)), "#,0.00")
End If
End Sub
NACHHER (mit Fehlermeldung bei cmd1 Benutzung):
Da das Kontrollkästchen nur optional gecheckt wird, habe ich die Berechnung der Summe zusätzlich in die txtOrdersQty1 gelegt:
Private Sub txtOrdersQty1_Change()
txtOrdersQty1.BackColor = rgbWhite
Dim q
Dim u
q = txtOrdersQty1.Value
u = txtOrdersUnitPrice1.Value
txtOrdersQty1.BackColor = rgbWhite
txtOrdersQty1.ForeColor = Me.ForeColor
txtOrdersItemSum1.Value = Format(q * u, "#,0.00")
txtOrdersItemSum1.BackColor = RGB(233, 250, 195)
End Sub
Nur der Vollständigkeit halber: Hier ist der Code zum Clearen der Form nach cmd1 Click:
Dim X As Integer
For X = 1 To 5
Me.Controls("cboOrdersChoose" & X).Value = ""
Me.Controls("txtOrdersQty" & X).Value = ""
Me.Controls("txtOrdersUnitPrice" & X).Value = ""
Me.Controls("txtOrdersDisc" & X).Value = ""
Me.Controls("txtOrdersItemSum" & X).Value = ""
Next X
OrdersDiscYes1.Value = False
Für Hilfestellung (bitte auch meinen name handle beachten...) wäre ich sehr dankbar!
|