title image


Smiley Re: Recordset als Rückgabewert einer funktion?
Hallo Jacques!Ich mach es anders ;-), ich übergebe einen Recordset, öffne diesen in der Funktion und schwups, habe ich einen "gesetzten" Recordset, mit dem ich weiter arbeiten kann:Die Funktion:Public Function mRst_OpenRecordInCurrentDB(strTblName As String, lCursorType As Long, _ lLockType As Long, objRst As ADODB.Recordset) As Boolean On Error GoTo Err_mRst_OpenRecordInCurrentDB With objRst .Open Source:=strTblName, _ ActiveConnection:=CurrentProject.Connection, _ CursorType:=lCursorType, _ LockType:=lLockType, _ Options:=adCmdTableDirect End WithExit_mRst_OpenRecordInCurrentDB: mRst_OpenRecordInCurrentDB = True Exit FunctionErr_mRst_OpenRecordInCurrentDB: mRst_OpenRecordInCurrentDB = FalseEnd FunctionDer Aufruf:Dim rstChild As New ADODB.Recordset... If mRst_OpenRecordInCurrentDB("qlkpTreeViewChild", adOpenForwardOnly, adLockReadOnly, rstChild) Then ... Do While Not rstChild.EOF ... rstChild.MoveNext Loop End IfIch hoffe, du kannst was damit anfangen!GrussManuelaDa könnte man auch was finden ;-)Karl Donaubauers Access-FAQ: http://www.donkarl.comDev Ashish FAQ (The Access Web): http://www.mvps.org/access/Access Archive: http://www.accessarchive.com/Microsoft Acces Knowledge-Base: http://www.microsoft.com/intlkb/germany/support/kb/B_WACCESS.HTMMicrosoft Online-Suche: http://support.microsoft.com/support/search/Microsoft dt. Online-KB: http://search.microsoft.com/germany/supportkb/Beiträge von verschiedenen Access-NGs: http://home.t-online.de/home/Heinrich.Schramm/deja.htmlWinSite Archive - Microsoft Access Files (Demos & Freeware): http://www.winsite.com/win95/access/index.html
VBA & Acces Tipps & Tricks - Tutorials - Downloads uvm.
Mathematische Definition des allgemeinen Dringlichkeitsaxioms:
D = (PZ/K) * (C + A + N) - Fazit: Alle Dinge werden unter Druck schlimmer


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: