PDA

Vollständige Version anzeigen : Laufzeitfehler ....


uemit
27.03.2006, 14:46
Hallo an Alle,

ich bekommen einen Laufzeitfehler aufgrud das in der Formular das Feld nicht
gefüllt wurde. D.h. Ich habe eine Tabelle von da aus ich die Export/Import Verzeichnisse angebe. Ich möchte den Fehler abfangen falls das Feld nicht
gefüllt wurde. Wenn das Feld nicht gefüllt wurde bekomme ich NULL wert
zurück. Dadurch bekomme ich den Fehlermeldung unten siehe JPEG.

Danke Vorraus :

Ümit

*************************************************
Code

Private Sub cmdDBImport_Click()
Dim fSearch As Office.FileSearch
Dim fNr As Long
Dim anzDateien As Long, strPfad As String, strSavePfad As String, strSaveFileTyp As String
Dim Mldg, Mldg2, Stil, Titel, Antwort, Antwort2, Text1 As String
Dim strQuellFileTyp As String, strQuellPfad As String
Dim NetzLaufwerk As String, NetWorkPfad As String, NetWorkUser As String, NetWorkPwd As String
Dim DB As DAO.Database, rs As DAO.Recordset, strSQL3 As String
Dim DB2 As Database
Set DB2 = CurrentDb
Dim s$(0)
Dim s1$

If rs!Import


' Parameter auslesen
Set DB = CurrentDb
Set rs = DB.OpenRecordset("Select * from ExpImpTbl Where lfdnr=1")
If rs.EOF Then Exit Sub
strPfad = rs!Import & rs!ImportTyp
strSavePfad = rs!Sicherungsort
strSaveFileTyp = rs!ImportTyp
strQuellPfad = rs!Import
strQuellFileTyp = rs!ImportTyp
rs.Close
DB.Close
..
..
..
..
..



*************************************************

DaniAndr
27.03.2006, 15:40
In welcher Zeile tritt der Fehler genau auf?

uemit
27.03.2006, 15:42
Hallo,

tut mir leid habe vergessen es mitzuteilen, der DB Feld heist import
und wenn es aus der Tabelle ausgelesen wird ist der Wert NULL.


strQuellPfad = rs!Import

Locutus
27.03.2006, 16:10
Hallo Uemit,
Du kannst das abfangen durch strQuellPfad = nz(rs!Import,"")
Gruß
Jörn

uemit
27.03.2006, 16:15
Danke dir,

es klappt sehr gut

vielen dank noch mals

ümit