G
Guest
Hi,
Thanks In advance
Have a form called form 1 when I run it get error how do I solve it
All i am tring to do is make a fontend on each user machine:
Copy a .mdb from d: (Common Drive)
to c: drive
then close this mdb (which is a different one to the copied one) on d: drive
then open the c:drive mdb
Use on open
+ on loan
+ on current
Thanks
Trev
Private Sub Form_Current()
DoCmd.Quit
End Sub
Private Sub Form_Load()
On Error Resume Next
Dim strIcon As String
Dim strMsg As String
Dim strTitle As String
Dim strFrom As String
Dim strTo As String
Dim strCheck1 As String
Dim strCheck2 As String
'-- Check not opening from P
strCheck1 = "C:\ABC\Savings"
strFrom = "D:\20 Database\80 Test Backend\From\Non STD.MDB"
strTo = "C:\ABC\Savings\Non STD.MDB"
If CurrentProject.Path <> strCheck1 Then
strMsg = "Do you want to put this on your 'C' drive instead?" &
vbCrLf & vbCrLf & "In folder C:\ABC\Savings\CUA.MDB" ' Define message.
strTitle = "Front-End not designed to run from this location!"
If MsgBox(strMsg, vbYesNo + vbQuestion + vbDefaultButton2, strTitle)
= vbYes Then
Application.FollowHyperlink "C:\ABC\Savings\Non STD.MDB"
Else
DoCmd.Quit
End If
Else
End If
End Sub
Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
Dim strIcon As String
Dim strMsg As String
Dim strTitle As String
Dim strFrom As String
Dim strTo As String
Dim strCheck1 As String
Dim strCheck2 As String
'-- Check not opening from P
strCheck1 = "C:\ABC\Savings"
strFrom = "D:\20 Database\80 Test Backend\From\Non STD.MDB"
strTo = "C:\ABC\Savings\Non STD.MDB"
MkDir "C:\ABC"
MkDir "C:\ABC\Savings"
Kill "C:\ABC\Savings\Non STD.LDB"
Kill "C:\ABC\Savings\Non STD.MDB"
FileCopy strFrom, strTo
End Sub
Thanks In advance
Have a form called form 1 when I run it get error how do I solve it
All i am tring to do is make a fontend on each user machine:
Copy a .mdb from d: (Common Drive)
to c: drive
then close this mdb (which is a different one to the copied one) on d: drive
then open the c:drive mdb
Use on open
+ on loan
+ on current
Thanks
Trev
Private Sub Form_Current()
DoCmd.Quit
End Sub
Private Sub Form_Load()
On Error Resume Next
Dim strIcon As String
Dim strMsg As String
Dim strTitle As String
Dim strFrom As String
Dim strTo As String
Dim strCheck1 As String
Dim strCheck2 As String
'-- Check not opening from P
strCheck1 = "C:\ABC\Savings"
strFrom = "D:\20 Database\80 Test Backend\From\Non STD.MDB"
strTo = "C:\ABC\Savings\Non STD.MDB"
If CurrentProject.Path <> strCheck1 Then
strMsg = "Do you want to put this on your 'C' drive instead?" &
vbCrLf & vbCrLf & "In folder C:\ABC\Savings\CUA.MDB" ' Define message.
strTitle = "Front-End not designed to run from this location!"
If MsgBox(strMsg, vbYesNo + vbQuestion + vbDefaultButton2, strTitle)
= vbYes Then
Application.FollowHyperlink "C:\ABC\Savings\Non STD.MDB"
Else
DoCmd.Quit
End If
Else
End If
End Sub
Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
Dim strIcon As String
Dim strMsg As String
Dim strTitle As String
Dim strFrom As String
Dim strTo As String
Dim strCheck1 As String
Dim strCheck2 As String
'-- Check not opening from P
strCheck1 = "C:\ABC\Savings"
strFrom = "D:\20 Database\80 Test Backend\From\Non STD.MDB"
strTo = "C:\ABC\Savings\Non STD.MDB"
MkDir "C:\ABC"
MkDir "C:\ABC\Savings"
Kill "C:\ABC\Savings\Non STD.LDB"
Kill "C:\ABC\Savings\Non STD.MDB"
FileCopy strFrom, strTo
End Sub