Visual Basic Forum

Elrohir_ · Tutorial Leser Anmeldedatum: 10.09.2007 Beiträge: 59

Guten Abend.
Ich habe folgendes Problem.
Sobald ich auf den Button "fertigstellen" klicke, beendet sich das Programm, jedoch ohne eine Fehlermeldung auszugeben.
Hier der Code von dem Button:

[vb:1:837652e13e]Private Sub cmd_Fertigstellen_Click()
Nummer = frm_Create.lbl_newnumber.Caption
nick = frm_Create.txt_newnick.Text
Passwort = frm_Create.txt_newPassword.Text
If AssignedIP.Request() Then
IP = AssignedIP.Address
End If
If InetListExists = True Then
Kill "InetList.mdb"
InetListExists = False
End If
returnvalue = URLDownloadtoFile(0, <UrlzuDatei>, <SpeichernamederDatei>, 0, 0)
InetListExists = True
Set DBon = OpenDatabase(...)
Set TBon = DBon.OpenRecordset(..., dbOpenTable)
With TBon
.Index = "NummerIndex"
.Seek Chr(61), Nummer
If .NoMatch Then
.AddNew
!name = nick
!Nummer = Nummer
!Passwort = Passwort
!IP = IP
Shell (<BatchdateizumUploadderDatenbank>), vbHide
frm_Client.Show
frm_Client.txt_Nick.Text = nick
frm_Client.lbl_StaticIP.Caption = IP
Me.Hide
Else
MsgBox "An Error occurred", vbCritical & vbOKOnly, "Error"
Me.Hide
frm_Login.Show
End If
End With[/vb:1:837652e13e]
_________________