mit.ohne.ahnung
Goto Top

Elseif erwartet end of-Anweisung ??

Ein freundliches Hallo Zusammen,

steh auf der Leitung .... was mache ich falsch ?

Private Sub Cmdauswahl_Click(sender As Object, e As EventArgs) Handles Cmdauswahl.Click
        If CheckboxIntDasi.Checked = True Then
            Dim proc As New Process()
            proc.StartInfo.FileName = "C:\solutio\client\charly\solutio.app\dbbackup.exe"  
            proc.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            proc.Start()
            proc.CloseMainWindow()
        Elseif CheckBoxExtDasi.CheckState = True Then MsgBox("Ist in Arbeit", 64, "Hinweis !")  
        Elseif CheckBoxDBdump.CheckState = True Then MsgBox("Ist in Arbeit", 64, "Hinweis !")  
        Elseif CheckBoxMail.CheckState = True Then MsgBox("Ist in Arbeit", 64, "Hinweis !")  
        ElseIf CheckBoxSMS.CheckState = True Then MsgBox("Ist in Arbeit", 64, "Hinweis !")  
        Elseif CheckboxIntDasi.CheckState = True Then MsgBox("Ist in Arbeit", 64, "Hinweis !")  
        End If

    End Sub

Danke schon mal im voraus..

Gruß Frank

Content-ID: 240928

Url: https://administrator.de/forum/elseif-erwartet-end-of-anweisung-240928.html

Ausgedruckt am: 13.04.2025 um 19:04 Uhr

emeriks
Lösung emeriks 14.06.2014 aktualisiert um 18:24:53 Uhr
Goto Top
Hi,
wenn man hinter dem "Then" ohne Zeilenumbruch gleich weiterschreibt, dann ist das quasi ein "End If". Und das heißt, dass Du nicht gleich die nächste "ElseIf" anhängen kannst.
Setzte die Kommandos für "ElseIf" in einen Block.

if .... then
  ....
elseif .... then
 ....
elseif ... then
   ....
end if

E.
Mit.ohne.Ahnung
Mit.ohne.Ahnung 14.06.2014 um 18:24:56 Uhr
Goto Top
Hallo Emeriks,

Danke, danke ..... und danke. face-smile

Suche schon nach stunden nach dem Fehler ....

Grüße aus Limburg

Frank