Private Sub btn_bj_bearbeiten_Click(sender As Object, e As EventArgs) Handles btn_bj_bearbeiten.Click
If lb_jahr_status.SelectedItem Is Nothing Then
MsgBox("Bitte wählen Sie ein Berichtsjahr aus!", MsgBoxStyle.Information, "Warnung")
Else
Formulrauswahl.setBerichtsjahr(lb_jahr_status.SelectedItem)
Formulrauswahl.setStatus(lb_jahr_status.SelectedItem)
Formulrauswahl.Show()
Me.Hide()
End If
End Sub
' If lb_jahr_status.SelectedItem Is Nothing Then
' MsgBox("Bitte wählen Sie den Benutzer aus, der gelöscht werden soll!", MsgBoxStyle.Information, "Information")
' ElseIf Formulrauswahl.getStatus2() = ("versendet am " & Now()) Then
' Login.Show()
' Formulrauswahl.setStatus(lb_jahr_status.SelectedItem)
' BerichtsjahreAktualisieren()
' MsgBox("Sie können das Berichtsjahr nun wieder bearbeiten", MsgBoxStyle.Information, "Information")
' End If
'End Sub
Ich habe folgende aufgabenstellung erhalten, mein bisherigen quellcode habe ich angehängt, ich habe es hinbekommen, dass er den status in bearbeitung ersellt und ihn auch in versendet am ... umändert, allerdings bekomme ich die If schleife nicht hin die ich benötige um den status versendet in bearbeitun wieder zu ändern =( hoffe ihr könnt mir Helfen:
Für jedes Berichtsjahr werden Statusinfo
rmationen angezeigt. Gültige Status sind „In
Bearbeitung“, „Versendet am: xx.yy.20zz“, Hat
der Berichtsverantwortliche die Berichte
versendet, erhalten sie einen entsprechenden St
atus „Versendet am: xx.yy.20zz“ mit dem Datum
der Versendung. In der Liste der Berichtsjahre aus
Pkt. 3 wird der Status eingeblendet. Um einen
bereits versendeten Bericht erneut bearbeiten zu
können, muss der „Versendet“-Status aktiv auf
„In Bearbeitung“ geändert werden können. Hierzu
ist eine erneute Passwort-Eingabe erforderlich.
If lb_jahr_status.SelectedItem Is Nothing Then
MsgBox("Bitte wählen Sie ein Berichtsjahr aus!", MsgBoxStyle.Information, "Warnung")
Else
Formulrauswahl.setBerichtsjahr(lb_jahr_status.SelectedItem)
Formulrauswahl.setStatus(lb_jahr_status.SelectedItem)
Formulrauswahl.Show()
Me.Hide()
End If
End Sub
' If lb_jahr_status.SelectedItem Is Nothing Then
' MsgBox("Bitte wählen Sie den Benutzer aus, der gelöscht werden soll!", MsgBoxStyle.Information, "Information")
' ElseIf Formulrauswahl.getStatus2() = ("versendet am " & Now()) Then
' Login.Show()
' Formulrauswahl.setStatus(lb_jahr_status.SelectedItem)
' BerichtsjahreAktualisieren()
' MsgBox("Sie können das Berichtsjahr nun wieder bearbeiten", MsgBoxStyle.Information, "Information")
' End If
'End Sub
Ich habe folgende aufgabenstellung erhalten, mein bisherigen quellcode habe ich angehängt, ich habe es hinbekommen, dass er den status in bearbeitung ersellt und ihn auch in versendet am ... umändert, allerdings bekomme ich die If schleife nicht hin die ich benötige um den status versendet in bearbeitun wieder zu ändern =( hoffe ihr könnt mir Helfen:
Für jedes Berichtsjahr werden Statusinfo
rmationen angezeigt. Gültige Status sind „In
Bearbeitung“, „Versendet am: xx.yy.20zz“, Hat
der Berichtsverantwortliche die Berichte
versendet, erhalten sie einen entsprechenden St
atus „Versendet am: xx.yy.20zz“ mit dem Datum
der Versendung. In der Liste der Berichtsjahre aus
Pkt. 3 wird der Status eingeblendet. Um einen
bereits versendeten Bericht erneut bearbeiten zu
können, muss der „Versendet“-Status aktiv auf
„In Bearbeitung“ geändert werden können. Hierzu
ist eine erneute Passwort-Eingabe erforderlich.