Winbatch OLE Access Save Record RunCommand DoCmd

In Knowledge Base Blog by angeladmin

addextender(“wwodb34i.dll”)
w1=”Microsoft Access”
;objAccess = ObjectOpen(“Access.Application”)
objAccess = ObjectAccess(“Access.Application”,@FALSE)
;message(“”,objAccess)
ADB = objAccess.Application
;ADB.OpenCurrentDatabase(“c:dataaccessdbdb.mdb”)
;ADB.Visible = 1
;ADB.UserControl = 1
ADBCmd = ADB.docmd
ADBCmd.RunCommand(97);Save Record
ADBCmd.openform(“F_Bid Entry”)
winzoom(w1)
;SendKeysto(w1,`!wz`)

Angel Computers – Contact Us