Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fehler im Code - Select case

Fehler im Code - Select case
26.09.2018 09:40:42
Christian
Moin alle zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Problem gelöst sorry
26.09.2018 09:47:20
Christian
Ist gelöst, ich habe meinen Fehler gerade entdeckt :D
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige