ich möchte über ein Listenfeld Textfelder ein -und ausblenden abhängig vom jeweiligen Status. Das Listenfeld hat vier Status "Started", "Solved", "Refused" und "Hold"
Aktuell greif der Code nur, wenn ich Refused auswähle, dann aktiviert er:
Me.Comment.Visible = False
Me.Bezeichnungsfeld88.Visible = False
Me.C_Refused.Visible = True
Me.Bezeichnungsfeld194.Visible = True
Bei allen anderen Selektionen des Status, passiert nichts, das C_Refused bleibt Visible und auch das Bezeichnungsfeld
Harmonisiert eine With Struktur nicht mit einer Select case Abfrage?
Vielen Dank für euren Support
Beste Grüße
Christian
Private Sub Befehl150_Click()
Dim ReqID As Integer
Dim krt As String
ReqID = Me.Liste33.Column(0)
krt = "ReqID= " & ReqID & ""
Dim db As Database
Set db = CurrentDb
Dim rs As Recordset
Set rs = db.OpenRecordset("tblMain", dbOpenDynaset)
With rs
.FindFirst krt
.Edit
Select Case Me.StrReq.Value
Case "Solved"
rs!Confirm_DBS = True
rs!Comment = Me.Comment.Value
rs!Startdate = Me.Startdate.Value
rs!Starttime = Me.Starttime.Value
rs!Endtime = Me.Endtime.Value
rs!Enddate = Me.Enddate.Value
rs!Req = Me.Req.Value
rs!StrReq = Me.StrReq.Value
rs!Editor = Me.Editor.Value
Me.Comment.Visible = True
Me.Bezeichnungsfeld88.Visible = True
Me.C_Refused.Visible = False
Me.Bezeichnungsfeld194.Visible = False
Case "Started"
rs!Confirm_DBS = False
rs!Comment = Me.Comment.Value
rs!Startdate = Me.Startdate.Value
rs!Starttime = Me.Starttime.Value
rs!Endtime = Me.Endtime.Value
rs!Enddate = Me.Enddate.Value
rs!Req = Me.Req.Value
rs!StrReq = Me.StrReq.Value
rs!Editor = Me.Editor.Value
Me.Comment.Visible = True
Me.Bezeichnungsfeld88.Visible = True
Me.C_Refused.Visible = False
Me.Bezeichnungsfeld194.Visible = False
Case "Reopen"
rs!Endtime = 0
rs!Enddate = 0
rs!StrReq.Value = "Started"
Me.Comment.Visible = True
Me.Bezeichnungsfeld88.Visible = True
Me.C_Refused.Visible = False
Me.Bezeichnungsfeld194.Visible = False
Case "Refused"
rs!C_Refused = Me.C_Refused.Value
rs!Startdate = Me.Startdate.Value
rs!Starttime = Me.Starttime.Value
rs!Endtime = Me.Endtime.Value
rs!Enddate = Me.Enddate.Value
rs!Req = Me.Req.Value
rs!StrReq = Me.StrReq.Value
rs!Editor = Me.Editor.Value
Me.Comment.Visible = False
Me.Bezeichnungsfeld88.Visible = False
Me.C_Refused.Visible = True
Me.Bezeichnungsfeld194.Visible = True
End Select
Me.Liste33.RowSource = "Select ReqID, Area, SOP,Prio, IPOITEM, WO, InCluster, Confirm, _
ValDate, ValTime, StrReq, Editor, Close_CT, Confirm_DBS from qry_Inbound_DBS Where Area = ' _
Inbound' and Confirm = True and Close_CT =False and Confirm_DBS=false Order by Prio ='1 DOM', Prio"
.Update
.Close
End With
Liste33.Requery
Me.Befehl150.Enabled = False
Set db = Nothing
Set rs = Nothing
'Cleanen
Me.Req.Value = ""
Me.Startdate.Value = ""
Me.Starttime.Value = ""
Me.Endtime.Value = ""
Me.Enddate.Value = ""
Me.Comment.Value = ""
Me.StrReq.Value = ""
Me.Editor.Value = ""
Me.Enddate.Value = ""
Me.Endtime.Value = ""
Me.C_Refused.Value = ""
Me.IPOITEM.Value = ""
Me.KIT.Value = ""
Me.WO.Value = ""
End Sub