LÖSUNG: Prozedur (Sub/Function) in Access über VB6 starten

[ToonyTin]

Habe eine Lösung für mein Problem wie ich es vor kurzem hier geschildert habe gefunden. Jetzt ist es mir möglich eine Sub in ACCESS unter VB6 aufzurufen.

'Der Code wie er in VB6 steht
sub dingenskirchen ()
Dim accAnw As Object
Dim accap As access.Application
'PFAD = Pfad und Name der Datenbank
'wert1 = Übergabe eines Wertes an Access es können weitere Werte (, wert2 ...) angefügt werden
Set accap = GetObject(PFAD, "Access.Application")
Set accAnw = accap.Parent
accAnw.Run "INSERTUNLOAD", wert1
Set accAnw = Nothing
Set accap = Nothing
------------------------------------------
'Ein bisschen Code wie er in der MDB stehen könnte
Option Compare Database
Sub INSERTUNLOAD(wert1)
On Error GoTo INSERTUNLOAD_Err
MsgBox wert1
INSERTUNLOAD_Exit:
	Exit Sub
INSERTUNLOAD_Err:
	MsgBox Error$
	Resume INSERTUNLOAD_Exit
End Sub

Verweise:
Visual Basic For Applications
Visual Basic runtime objects and procedures
Visual Basic objects and procedures
Microsoft DAO 3.6 Object Library
Microsoft Access 9.0 Object Library
OLE Automation
Microsoft ActiveX Data Objects Recordset 2.7 Library
Microsoft ActiveX Data Objects 2.7 Library

Jetzt benötige ich noch ein MAKRO bzw. MODUL(Prozedur) in ACCESS, damit die Datenbank vor dem Schliessen mit einem Kennwort versehen wird.

Wäre schön wenn mir auch mal einer helfen könnte.

Gruß TT