If then Bedingung wird nicht ausgeführt

06/05/2009 - 11:53 von Jürgen Großmann | Report spam
Hallo Leute

Ich möchte ein Feld überprüfen ob etwas in im darin steht wenn ja dann usw.
Ich benutz unten aufgeführten Code dazu.
Egal ob im Feld txt_cover etwas steht oder nicht es wird immer der code nach
else asugeführt.
Hier der komplette code


********************************
Private Sub Read(IngId As Long)
On Error GoTo Err_Read
Dim csql As String
Dim oRst As DAO.Recordset

If IngId = 0 Then
Else
csql = "select * from tbl_Buch where Buchid=" & IngId
Set oRst = CurrentDb.OpenRecordset(csql, dbOpenSnapshot)
If Not oRst.EOF Then
End If

With oRst
If !txt_Cover = Null Then
Me.BuchId = IngId
Me.txt_Buchname = !txt_Buchname
Me.txt_Buchformat = !zhl_format
Me.txt_BuchKategorie = !zhl_Kategorie
Me.txt_Schriftsteller = !zhl_Schriftsteller
Me.mem_Bemerkung = !mem_Bemerkung
Me.txt_ISBN = !txt_ISBN
Me.txt_Verlag = !zhl_Verlag
Else
Me.BuchId = IngId
Me.txt_Buchname = !txt_Buchname
Me.txt_Buchformat = !zhl_format
Me.txt_BuchKategorie = !zhl_Kategorie
Me.txt_Schriftsteller = !zhl_Schriftsteller
Me.mem_Bemerkung = !mem_Bemerkung
Me.txt_ISBN = !txt_ISBN
Me.txt_Verlag = !zhl_Verlag
Me.bld_Cover.Picture = !txt_Cover
.Close
End If
End With
End If

Read_Exit:
Exit Sub
Err_Read:
MsgBox Err.Number & " " & Err.Description, , "Buchaufstellung: Read"
Resume Read_Exit

End Sub
 

Lesen sie die antworten

#1 Jürgen Volke
06/05/2009 - 12:02 | Warnen spam
Hallo Jürgen

Ich möchte ein Feld überprüfen ob etwas in im darin steht wenn ja dann
usw.
Ich benutz unten aufgeführten Code dazu.
Egal ob im Feld txt_cover etwas steht oder nicht es wird immer der code
nach else asugeführt.
Hier der komplette code


********************************
Private Sub Read(IngId As Long)
On Error GoTo Err_Read
Dim csql As String
Dim oRst As DAO.Recordset

If IngId = 0 Then
Else
csql = "select * from tbl_Buch where Buchid=" & IngId
Set oRst = CurrentDb.OpenRecordset(csql, dbOpenSnapshot)
If Not oRst.EOF Then
End If

With oRst
If !txt_Cover = Null Then



if isnull(!txt_Cove) Then

Me.BuchId = IngId
Me.txt_Buchname = !txt_Buchname
Me.txt_Buchformat = !zhl_format
Me.txt_BuchKategorie = !zhl_Kategorie
Me.txt_Schriftsteller = !zhl_Schriftsteller
Me.mem_Bemerkung = !mem_Bemerkung
Me.txt_ISBN = !txt_ISBN
Me.txt_Verlag = !zhl_Verlag
Else
Me.BuchId = IngId
Me.txt_Buchname = !txt_Buchname
Me.txt_Buchformat = !zhl_format
Me.txt_BuchKategorie = !zhl_Kategorie
Me.txt_Schriftsteller = !zhl_Schriftsteller
Me.mem_Bemerkung = !mem_Bemerkung
Me.txt_ISBN = !txt_ISBN
Me.txt_Verlag = !zhl_Verlag
Me.bld_Cover.Picture = !txt_Cover
.Close
End If
End With
End If

Read_Exit:
Exit Sub
Err_Read:
MsgBox Err.Number & " " & Err.Description, , "Buchaufstellung: Read"
Resume Read_Exit

End Sub




Gruß Jürgen

Ähnliche fragen