Hallo,
ich bins nochmal...
Kurz zu meinem Problem:
Vorhanden ist eine Klasse "Task", die wie folgt ausschaut:Option Compare Database
Option Explicit
Dim mTaskID As Integer
Public Property Let taskID(ByVal newValue As Integer)
mTaskID = newValue
End Property
Public Property Get taskID() As Integer
taskID = mTaskID
End Property
Public Property Get responsiblePersonsFormatString() As String
Dim result As Recordset
Set result = CurrentDb.OpenRecordset("SELECT Task.responsiblePersonsFormatString " _
& "FROM Task WHERE taskID = " & CStr(Me.taskID))
responsiblePersonsFormatString = result!responsiblePersonsFormatString
End Property
Public Property Get subject() As String
Dim result As Recordset
Set result = CurrentDb.OpenRecordset("SELECT Task.subject " _
& "FROM Task WHERE taskID = " & CStr(Me.taskID))
subject = result!subject
End Property
Zusätzlich habe ich eine Klasse "SendTaskDialog", welche eine eine Eigenschaft "TaskID" hat. Beim "Setzen" der TaskID soll die Klasse ein Textfeld eines Dialoges mit Text füllen...Option Compare Database
Option Explicit
Dim mTaskID As Integer
Public Property Get Task() As Task
Dim result As Task
Set result = New Task
result.taskID = Me.taskID
Task = result
End Property
Public Property Let taskID(ByVal newValue As Integer)
mTaskID = newValue
Form_SendTaskDialog.subjectTextField.Value = Me.Task.subject
End Property
Public Property Get taskID() As Integer
taskID = mTaskID
End Property
Ich teste den Sachverhalt wie folgt: Dim result As Recordset
Set result = CurrentDb.OpenRecordset("SELECT Task.taskID FROM Task;")
Dim currentSendTaskDialog As SendTaskDialog
Set currentSendTaskDialog = New SendTaskDialog
currentSendTaskDialog.taskID = result!taskID
Die letzte Zeile produziert einen Laufzeitfehler 91. "Objektvariable oder with-blockvariable nicht festgelegt". Ich habe schon gegoogled und nichts passendes gefunden. :(