Hi everyone!
On my access 97 form I have a button that points to a database called SERIAL.
I am in one database called ETR with a main form with this button for SERIAL.
Something happened where the SERIAL database was wipped out!!!
I had contacted our companies M.I.S. dept.
They did a recovery backup of a few days prior and now I am not able to click my button to point to a separate database.
I was able to copy and paste the database table and form from the SERIAL database into the ETR database and everything works fine except...
the ETR database has one password and the SERIAL database had another password.
Now the form SERIAL just opens up.
How can I create a password for the SERIAL form or How can I get the Button to work like it previously did?
The code for the previous button that went from the ETR database to the SERIAL database was:
Private Sub Command25_Click()
On Error GoTo Err_Command25_Click
Dim stAppName As String
stAppName = "H:\QC\Receiving Inspection\SERIAL.mdb"
Call Shell(stAppName, 1)
Exit_Command25_Click:
Exit Sub
Err_Command25_Click:
MsgBox Err.Description
Resume Exit_Command25_Click
End Sub
Thanks,
csegal
csegal@arrowair.com
On my access 97 form I have a button that points to a database called SERIAL.
I am in one database called ETR with a main form with this button for SERIAL.
Something happened where the SERIAL database was wipped out!!!
I had contacted our companies M.I.S. dept.
They did a recovery backup of a few days prior and now I am not able to click my button to point to a separate database.
I was able to copy and paste the database table and form from the SERIAL database into the ETR database and everything works fine except...
the ETR database has one password and the SERIAL database had another password.
Now the form SERIAL just opens up.
How can I create a password for the SERIAL form or How can I get the Button to work like it previously did?
The code for the previous button that went from the ETR database to the SERIAL database was:
Private Sub Command25_Click()
On Error GoTo Err_Command25_Click
Dim stAppName As String
stAppName = "H:\QC\Receiving Inspection\SERIAL.mdb"
Call Shell(stAppName, 1)
Exit_Command25_Click:
Exit Sub
Err_Command25_Click:
MsgBox Err.Description
Resume Exit_Command25_Click
End Sub
Thanks,
csegal
csegal@arrowair.com