Dim MyAccess As Access.Application
Set MyAccess = CreateObject("Access.Application")
MyAccess.OpenCurrentDatabase "C:\Documents\DB\SomeDB.mdb", False
MyAccess.DoCmd.OpenForm "f1"
MsgBox MyAccess.Forms.Item("f1").GetSomeNumber
Υποθέτω πως στο αρχείο "C:\Documents\DB\SomeDB.mdb" υπάρχει μία
φόρμα f1 και πως στον κώδικα της έχεις ορίσει μία συνάρτηση
GetSomeNumber(). Η φόρμα f1 θα ανοίξει και θα κάνεις ότι θέλεις στη
φόρμα. Η κλήση της GetSomeNumber() είναι για να δεις πως μπορείς να
πάρεις δεδομένα από την Access.
Ελπίζω να βοήθησα
Τάσος Καραγιάννης
Baby debugging steps...