FileSystem.copyfile "K:\Arşiv4.accdb", "C:\Arşiv4.accdb"
 
Call Shell("C:\Arşiv.accdb")

Private Sub Form_Load()
Dim DosyaYol As String
Dim FrmAdi As String
 
 
DosyaYol = "K:\Arsiv3.accdb"
FrmAdi = "FKullaniciGiris"
If IsFileOpen(DosyaYol) = False Then ' kapalı ise
    Dim OtekiAc As New Access.Application
        With OtekiAc
            .Visible = True
            .UserControl = True
            .OpenCurrentDatabase DosyaYol
        End With
End If
 
    Dim Oteki As Access.Application
    Set Oteki = GetObject(DosyaYol)
    With Oteki
        .DoCmd.OpenForm FrmAdi
        .DoCmd.RunCommand acCmdAppMinimize
        .DoCmd.RunCommand acCmdAppMaximize
    End With
 Quit
End Sub
 
Private Sub Form_Open(Cancel As Integer)
Call fSetAccessWindow(0)
End Sub

Public Function CopyFile(strSource As String, strDestination As String) As Boolean
  Const BufferSize = 4096
  Dim strBuffer As String * BufferSize
  Dim strTempBuffer As String
  Dim intSourceFile As Integer
  Dim intDestinationFile As Integer
  Dim lngCounter As Long
  On Error GoTo PROC_ERR
  intSourceFile = FreeFile
  Open strSource For Binary As #intSourceFile
  intDestinationFile = FreeFile
  Open strDestination For Binary As #intDestinationFile
  For lngCounter = 1 To LOF(intSourceFile) \ BufferSize
    Get #intSourceFile, , strBuffer
    Put #intDestinationFile, , strBuffer
  Next lngCounter
  lngCounter = LOF(intSourceFile) Mod BufferSize
  If lngCounter > 0 Then
    Get #intSourceFile, , strBuffer
    strTempBuffer = Left$(strBuffer, lngCounter)
    Put #intDestinationFile, , strTempBuffer
  End If
  Close #intSourceFile
  Close #intDestinationFile
  CopyFile = True
PROC_EXIT:
  Exit Function
PROC_ERR:
  CopyFile = False
  Resume PROC_EXIT
End Function