Hallo,
ich erstelle gerade ein Raumbuchungsformular in Outlook dabei habe ich ein Probleme (Bin Anfänger in VB/VBS, habe nur erfahrung mit Java und C++):
Ich kann irgendwie nicht auf die gebuchten Ressourcen zugreifen, dass müsste ich aber, weil ich den Benutzern die Räume buchen möchten verschiedenen Dinge zur Auswahl stellen möchte. Der Benutzer kann Technik und Bewirtungswünsche äußern, aber auch die Sitzordnung Regeln und diese ist eben von den Räumen abhängig.
Hier mein Quellcode:
ich erstelle gerade ein Raumbuchungsformular in Outlook dabei habe ich ein Probleme (Bin Anfänger in VB/VBS, habe nur erfahrung mit Java und C++):
Ich kann irgendwie nicht auf die gebuchten Ressourcen zugreifen, dass müsste ich aber, weil ich den Benutzern die Räume buchen möchten verschiedenen Dinge zur Auswahl stellen möchte. Der Benutzer kann Technik und Bewirtungswünsche äußern, aber auch die Sitzordnung Regeln und diese ist eben von den Räumen abhängig.
Hier mein Quellcode:
Code:
Dim raum, m1, m2, m3 'Variablen (m1 = Medienraum 1 usw.)
Sub Item_CustomPropertyChange(ByVal FieldName)' Standart
Set MyPage = Item.GetInspector.ModifiedFormPages("Buchungs-Informationen")
raum = ""
m1 = Item.UserProperties("m1")
m2 = Item.UserProperties("m2")
m3 = Item.UserProperties("m3")
IF m1 = TRUE AND m2 = FALSE AND m3 = FALSE THEN
raum = "m1"
ELSEIF m1 = FALSE AND m2 = TRUE AND m3 = FALSE THEN
raum = "m2"
ELSEIF m1 = FALSE AND m2 = FALSE AND m3 = TRUE THEN
raum = "m3"
ELSEIF m1 = TRUE AND m2 = TRUE AND m3 = TRUE THEN
raum = "m1m2m3"
ELSEIF m1 = TRUE AND m2 = TRUE AND m3 = FALSE THEN
raum = "m1m2"
ELSEIF m1 = TRUE AND m2 = FALSE AND m3 = TRUE THEN
raum = "m1m3"
ELSE
raum = "m2m3"
END IF
SELECT CASE raum
CASE "m1"
MyPage.Controls("zw12").enabled = false
MyPage.Controls("zw13").enabled = false
MyPage.Controls("zw23").enabled = false
CASE "m2"
MyPage.Controls("zw12").enabled = false
MyPage.Controls("zw13").enabled = false
MyPage.Controls("zw23").enabled = false
CASE "m3"
MyPage.Controls("zw12").enabled = false
MyPage.Controls("zw13").enabled = false
MyPage.Controls("zw23").enabled = false
CASE "m1m2m3"
MyPage.Controls("zw12").enabled = true
MyPage.Controls("zw13").enabled = true
MyPage.Controls("zw23").enabled = true
CASE "m1m2"
MyPage.Controls("zw12").enabled = true
MyPage.Controls("zw13").enabled = false
MyPage.Controls("zw23").enabled = false
CASE "m1m3"
MyPage.Controls("zw12").enabled = false
MyPage.Controls("zw13").enabled = true
MyPage.Controls("zw23").enabled = false
CASE "m2m3"
MyPage.Controls("zw12").enabled = false
MyPage.Controls("zw13").enabled = false
MyPage.Controls("zw23").enabled = true
END SELECT
End Sub
End Sub
Zuletzt bearbeitet: