Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Elseif erwartet end of-Anweisung ??

Frage Entwicklung Batch & Shell

Mitglied: Mit.ohne.Ahnung

Mit.ohne.Ahnung (Level 1) - Jetzt verbinden

14.06.2014, aktualisiert 18:24 Uhr, 877 Aufrufe, 2 Kommentare

Ein freundliches Hallo Zusammen,

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

01.
Private Sub Cmdauswahl_Click(sender As Object, e As EventArgs) Handles Cmdauswahl.Click 
02.
        If CheckboxIntDasi.Checked = True Then 
03.
            Dim proc As New Process() 
04.
            proc.StartInfo.FileName = "C:\solutio\client\charly\solutio.app\dbbackup.exe" 
05.
            proc.StartInfo.WindowStyle = ProcessWindowStyle.Hidden 
06.
            proc.Start() 
07.
            proc.CloseMainWindow() 
08.
        Elseif CheckBoxExtDasi.CheckState = True Then MsgBox("Ist in Arbeit", 64, "Hinweis !") 
09.
        Elseif CheckBoxDBdump.CheckState = True Then MsgBox("Ist in Arbeit", 64, "Hinweis !") 
10.
        Elseif CheckBoxMail.CheckState = True Then MsgBox("Ist in Arbeit", 64, "Hinweis !") 
11.
        ElseIf CheckBoxSMS.CheckState = True Then MsgBox("Ist in Arbeit", 64, "Hinweis !") 
12.
        Elseif CheckboxIntDasi.CheckState = True Then MsgBox("Ist in Arbeit", 64, "Hinweis !") 
13.
        End If 
14.
 
15.
    End Sub
Danke schon mal im voraus..

Gruß Frank
Mitglied: emeriks
LÖSUNG 14.06.2014, aktualisiert um 18:24 Uhr
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.

01.
if .... then 
02.
  .... 
03.
elseif .... then 
04.
 .... 
05.
elseif ... then 
06.
   .... 
07.
end if
E.
Bitte warten ..
Mitglied: Mit.ohne.Ahnung
14.06.2014 um 18:24 Uhr
Hallo Emeriks,

Danke, danke ..... und danke.

Suche schon nach stunden nach dem Fehler ....

Grüße aus Limburg

Frank
Bitte warten ..
Ähnliche Inhalte
Microsoft
Microsoft Live Essentials 2012: End of life am 10.01.2017 (2)

Tipp von DerWoWusste zum Thema Microsoft ...

Windows Update
Windows Update - WSUS und kein Ende (12)

Frage von the-buccaneer zum Thema Windows Update ...

Microsoft
Support Ende von Servern (13)

Frage von HeinrichM zum Thema Microsoft ...

Microsoft
Microsofts Surface PC Event: Was uns erwartet (2)

Link von Frank zum Thema Microsoft ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Router & Routing
Allnet - VDSL2 Modem - SFP (mini-GBIC) (20)

Frage von Dobby zum Thema Router & Routing ...

Windows 10
Windows 10 Ordnerfreigabe (18)

Frage von Xaero1982 zum Thema Windows 10 ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (17)

Frage von liquidbase zum Thema Voice over IP ...

Monitoring
Netzwerk-Monitoring Software (17)

Frage von Ghost108 zum Thema Monitoring ...