ถามไว้ที่ http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_97&Number=107862&page=0&view=collapsed&sb=5&o=7&fpart=1&vc=1&PHPSESSID= 
 
I'm having a brain lapse. 
I have 2 FE that attach to the same BE. I would like to add a command button to  
each FE to be able to switch between the two. 
 
"ต้องการจะสร้างปุ่มเปิดไฟล์ Access 2 ไฟล์ที่เป็น Front End กลับไปกลับมา จะทำอย่างไร" 
 
ผมได้แนะนำเขาให้ใช้ SendKeys หรือ Shell() ก็ได้ เลือกเอาว่าชอบแบบไหน 
 
Sub OpenMDB(strInMDB As String) 
    On Error Resume Next 
    'Use SendKeys 
    SendKeys "%FO" & strInMDB & "~" 
End Sub 
 
Private Sub cmdOpenOther_Click() 
    OpenMDB ("c:\TestOpenOtherMDBFile.mdb") 
End Sub 
 
Private Sub cmdOpenDatabase_Click() 
On Error GoTo Err_cmdOpenDatabase_Click 
     
    'Use Shell 
    Dim strAppName As String, strAppPath As String 
     
    'Search for MSACCESS.EXE 
    strAppPath = SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE " 
     
    strAppName = "c:\TestOpenOtherMDBFile.mdb" 
    Call Shell(strAppName, 1) 
    Application.Quit 
     
Exit_cmdOpenDatabase_Click: 
    Exit Sub 
 
Err_cmdOpenDatabase_Click: 
    MsgBox Err.Description 
    Resume Exit_cmdOpenDatabase_Click 
     
End Sub 
 
และที่ http://freeboard.ptcsweb.com/view_q.php?ruser=accesshotline&wbid=105 
คุณ BADMan ได้แนะนำไว้เกี่ยวกับเรื่องนี้ด้วย ลองคลิกเข้าไปดูนะครับ *** Edited by Supap Chaiya *** 14/6/2546 20:27:57