Fehlermelddung beim öffen eines Berichts

11/12/2008 - 11:50 von Jürgen Großmann | Report spam
Hallo Leute
Ich möchte folgende Code beim öffnen eines Berichts ausführen und bekomme
aber folgenden Fehlermeldung
" - 2147352567 Sie können diesem Objekt keinen Wert zuweisen."
und zwar tritt der Fehler auf im Bereich Private Sub Read nach With oRST
was mache ich falsch bzw. worin liegt der Fehler.
Der Bericht wird aus einem Formular aufgerufen.
Gruß Jürgen


######### Code#################
Private Sub Read(lngID As Long)
Dim csql As String
Dim oRst As DAO.Recordset
If lngID = 0 Then
Else
csql = "SELECT tbl_Schriftsteller.txt_Schriftsteller,
tbl_Buch.txt_Buchname"
csql = csql & " FROM tbl_Schriftsteller INNER JOIN tbl_Buch ON
tbl_Schriftsteller.Schriftstellerid = tbl_Buch.zhl_Schriftsteller"
csql = csql & " ORDER BY tbl_Schriftsteller.txt_Schriftsteller,
tbl_Buch.txt_Buchname"
Set oRst = CurrentDb.OpenRecordset(csql, dbOpenSnapshot)
If oRst.EOF Then
GoTo Read_NODATA
End If
With oRst
Me.txt_Buchname = !txt_Buchname
.Close
End With

End If

Read_Exit:
Exit Sub

Read_NODATA:
oRst.Close
GoTo Read_Exit

Read_Err:
MsgBox Err.Description, , "Personen: READ"
Resume Read_Exit

End Sub
-
Private Sub Report_Open(Cancel As Integer)
On Error GoTo myerror

If Nz(Me.OpenArgs, "") = "" Then
Exit Sub
End If
Read CLng(Me.OpenArgs)

my_err_exit:
Exit Sub

myerror:
MsgBox Err.Number & " " & Err.Description, , "Buch Aufstellung anzeigen"
Resume my_err_exit

End Sub
 

Lesen sie die antworten

#1 Jens Schilling
11/12/2008 - 12:40 | Warnen spam
Hallo, Jürgen

Jürgen Großmann wrote:
-
Private Sub Report_Open(Cancel As Integer)


[.]
Read CLng(Me.OpenArgs)



Ich hab' mir den Code jetzt nicht im Detail angesehen, da ich vermute, dass
Du lediglich ein anderes Event brauchst.
Probier's doch mal im Event "Beim Formatieren" des Bereiches, in dem Dein
Feld liegt, anstatt im "Open"-Event.

Gruss
Jens
______________________________
FAQ: http://www.donkarl.com

Ähnliche fragen