Aufruf eines Objekts vom anderen Formular

15/01/2010 - 15:56 von Andreas Jändl | Report spam
Hallo NG,

ich habe mir den "Treeview-konfigurator" aus der Zeitschrift "Access im
Unternehmen" auf meine SQLS2k-Access2k-adp umgeàndert und möchte ein
Treeview-Objekt von einem anderen Formular aus aufrufen und einen neuen
Knoten dazufügen. Das gelingt mir nicht.
Ich habe ein Frm_TV, auf dem das Treeviewsteuerelement "ctlTreeview" liegt.
Das wird beim Laden des Frm_TV folgendermassen eingebunden:

Klassenmodul Frm_TV:
Private WithEvents objtreeviewhandler As clsTreeViewHandler
Private Sub Form_Load()
Set objtreeviewhandler = New clsTreeViewHandler
With objtreeviewhandler
Set .TreeViewInst = Me.ctlTreeView.Object
Set .ImageListInst = Me.ctlImageList.Object
.InitTreeView (6)
.FillTree
End With

Von einem Knoten aus rufe ich ein anderes Formular "Frm_Add" auf, in dem ich
einen neuen Datensatz eingebe und speichere. Nun soll von Frm_Add aus der
Treeview von Frm_TV aufgerufen werden und dort für den neu eingegebenen DS
ein neuer Knoten eingefügt werden (Methode "NewChildNode" der Klasse
TreeViewHandler). Probiert habe ich es so:

Klassenmodul Frm_Add:
Private WithEvents objtreeviewhandler As clsTreeViewHandler
private sub form_load()
Set frm = Forms("frm_tv")
Set objtreeviewhandler.TreeViewInst = frm.ctlTreeView.Object
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim sql As String, rs As New ADODB.Recordset, frm As Form
Dim cnn As New ADODB.Connection
Set cnn = CurrentProject.Connection

rs.Open "SELECT @@Identity", cnn
lngPKNeu = rs(0)
rs.Close

objtreeviewhandler.NewChildNode "s_lnk_station_warengru", lngPKNeu
end sub

Da kommt aber die Fehlermeldung "Objektvariable nicht festgelegt". Wie kann
ich Methoden des objtreeviewhandlers auf dem Frm_TV aufrufen?

Vielen Dank im voraus und herzliche Grüße,
Andreas
 

Lesen sie die antworten

#1 Joerg Ackermann
15/01/2010 - 17:35 | Warnen spam
Hallo Andreas,

Andreas Jàndl meinte:

ich habe mir den "Treeview-konfigurator" aus der Zeitschrift "Access
im Unternehmen" auf meine SQLS2k-Access2k-adp umgeàndert ...
Da kommt aber die Fehlermeldung "Objektvariable nicht festgelegt".



Da fehlt.

Set objtreeviewhandler = New clsTreeViewHandler

Gruß

Mitglied im DBDEV http://www.dbdev.org
Access-FAQ: http://www.donkarl.com

Ähnliche fragen