Reference Form Value in Another Database

[benderulz]

Can anyone tell me how to reference a form value in another database?

For example

If db1.form.value = True then
'do this in db2
else
end if

Thanks

 

[PWise]

note a form does not have a value property

how about

Set AccessApp = GetObject(DBPath, "Access.Application")
msgbox accessapp.forms("formname").controlname

 

[benderulz]

Sorry, my sample above didn't really explain what I was attempting. I currently have the user side check for a file, and if the file does not exist Access closes the form that connects them to db1 so I can Compact/Repair. However, I was hoping there was a way to just check a form box in db1 and receive the same result.

Function lck()
'form in db1
If Forms!Locked.LockBox.Value = True Then
'in db2
docmd.openform "CollectorCompactRepair"
Else

End Function

 

[PWise]

how about

Function lck()
Set AccessApp = GetObject(DBPath, "Access.Application")
msgbox accessapp.forms("formname").controlname
'form in db1
If accessapp.Forms!Locked.LockBox = True Then
'in db2 
     docmd.openform "CollectorCompactRepair"
Else

End Function