vbaで一意のレコード識別子を動的に選択していますか？

Question

私はMS Accessでリンクテーブルを追加するプロセスを自動化しようとしています。

私は、リンクテーブルを追加するなど、これまでに動作するように

' RUN ME 
Sub testItOut() 

    Dim loginInfo As New AuthInfoz 

    loginInfo.workgroup = "E:\xxxdatas\SEC\Secured.mdw" 
    loginInfo.username = "XXXXX" 
    loginInfo.password = "XXXX" 
    loginInfo.dbs = "E:\xxxdatas\username\Report.mdb" 

    Call DeleteRelinkToViewAndRename(loginInfo, "sometable", "ServiceProvision_Schema.hrpersnl") 
End Sub 

' Deletes the old table and relinks it 
' to the new schema 

Sub DeleteRelinkToViewAndRename(loginInfo As AuthInfoz, tblName, tblTarget) 
    Dim objAccess As Access.application 

    Dim view_ucp_consumers2_qf As DAO.QueryDef 

    ' Open the thing manually first... 
    'Shell """C:\Program Files (x86)\Microsoft Office\Office12\MSACCESS.EXE""" & " " & loginInfo.dbs 
    Set objAccess = GetObject(loginInfo.dbs).application 

    objAccess.CurrentDb 

    ' Delete the Linked Table...THIS WORKS UNCOMMENT LATER... 
    objAccess.DoCmd.DeleteObject acTable, tblName 

    ' Relink the old table to the new schema 
    ' THIS IS WHERE THE DIALOG APPEARS 
    objAccess.DoCmd.TransferDatabase _ 
     acLink, _ 
     "ODBC Database", _ 
     "ODBC;DSN=MEDSN;Database=MEDATABASE;Trusted_Connection=Yes", _ 
     acTable, _ 
     tblTarget, _ 
     tblName 
    ' Close out... 
    objAccess.Quit acQuitSaveAll 

End Sub 

それを得ている...しかし、その後のダイアログボックスは、主キーを要求するポップアップするか、それが一意なレコード識別子それを呼び出すよう。とにかくこれの周りにはありますか？

Answer 1

これまでのMS-Accessフォーラムで回答が見つかりました。この方法を使用すると、ちょうどテーブルまで、尋ねていない質問...なし主キー...

' Deletes the old table and relinks it 
' to the new schema 
Sub DeleteRelinkToViewAndRename(loginInfo As AuthInfoz, tblName, tblTarget) 

    Dim objAccess As Access.application 
    Dim db As DAO.database 

    Dim tdf As DAO.TableDef 

    ' Open the thing manually first... 
    'Shell """C:\Program Files (x86)\Microsoft Office\Office12\MSACCESS.EXE""" & " " & loginInfo.dbs 
    Set objAccess = GetObject(loginInfo.dbs).application 
    Set db = objAccess.CurrentDb 

    ' Delete the Linked Table...THIS WORKS UNCOMMENT LATER... 
    objAccess.DoCmd.DeleteObject acTable, tblName 

    ' Relink the old table to the new schema 
    Set tdf = db.CreateTableDef(tblName, 0, tblTarget, "ODBC;DSN=MEDSN;Database=MEDATABASE;Trusted_Connection=Yes") 

    ' Add the new table def 
    db.TableDefs.Append tdf 

End Sub 

あなたはprimary key programmatically as wellを設定することができますをリンクします。