A
applevacross
I've created two forms. In the onload event I've added the followin
code:
PRIVATE SUB FORM_LOAD()
DOCMD.GOTORECORD , , ACNEWREC
END SU
I want the forms to open to a blank record each time the form i
opened.
Subsequently I've created combo boxes based on the same idea. If th
record isn't found it returns a message and blanks the form again.
This is working fantastically for me, [as admin] but when I log th
users in (open and read rights) they get:
"Runtime Error 2105 You cannot go to the specified record"
Here is the combo code as well, if anybody knows how to fix so tha
everybody can use this I'd greatly appreciate it. MSKnowledge bas
didn't help.
PRIVATE SUB COMBO119_AFTERUPDATE()
DIM INTX AS INTEGER
' FIND THE RECORD THAT MATCHES THE CONTROL.
INTX = DCOUNT(\"[SERIAL #]\", \"APPLEVAC_INV_DB\", \"[SERIAL #] = '\"
ME![COMBO119] & \"'\")
IF INTX < 1 THEN
MSGBOX \"SORRY, RECORD NOT FOUND\", VBINFORMATION
DOCMD.GOTORECORD , , ACNEWREC
EXIT SUB
END IF
ME.RECORDSETCLONE.FINDFIRST \"[SERIAL #] = '\" & ME![COMBO119] & \"'\"
ME.BOOKMARK = ME.RECORDSETCLONE.BOOKMARK
END SU
Thanks to all in advance, I greatly appreciate your help
code:
PRIVATE SUB FORM_LOAD()
DOCMD.GOTORECORD , , ACNEWREC
END SU
I want the forms to open to a blank record each time the form i
opened.
Subsequently I've created combo boxes based on the same idea. If th
record isn't found it returns a message and blanks the form again.
This is working fantastically for me, [as admin] but when I log th
users in (open and read rights) they get:
"Runtime Error 2105 You cannot go to the specified record"
Here is the combo code as well, if anybody knows how to fix so tha
everybody can use this I'd greatly appreciate it. MSKnowledge bas
didn't help.
PRIVATE SUB COMBO119_AFTERUPDATE()
DIM INTX AS INTEGER
' FIND THE RECORD THAT MATCHES THE CONTROL.
INTX = DCOUNT(\"[SERIAL #]\", \"APPLEVAC_INV_DB\", \"[SERIAL #] = '\"
ME![COMBO119] & \"'\")
IF INTX < 1 THEN
MSGBOX \"SORRY, RECORD NOT FOUND\", VBINFORMATION
DOCMD.GOTORECORD , , ACNEWREC
EXIT SUB
END IF
ME.RECORDSETCLONE.FINDFIRST \"[SERIAL #] = '\" & ME![COMBO119] & \"'\"
ME.BOOKMARK = ME.RECORDSETCLONE.BOOKMARK
END SU
Thanks to all in advance, I greatly appreciate your help