テーブルのリンクと削除

リンク
DoCmd.TransferDatabase acLink, "Microsoft Access", "ディレクトリi\ファイル名.mdb", acTable, "リンク元テーブル名", "テーブル名", False

削除
DoCmd.DeleteObject acTable, テーブル名

目次へ

フォームでキーボードの上下キーでレコードを移動します

フォームのプロパティでキーボードイベンの取得を はい にします

キークリック時のイベントプロシージャ―に下記の構文を貼り付けます

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

' 先頭、最後尾のレコードでこれを操作すると、エラー番号2105が発生します この､エラーを無視
On Error GoTo Err001

If KeyCode = vbKeyUp Then DoCmd.GoToRecord , , acPrevious '前レコードへ
If KeyCode = vbKeyDown Then DoCmd.GoToRecord , , acNext '次レコードへ
Exit Sub
Err001:
'エラー番号2105を無視します
If Err.Number = 2105 Then
Resume Next
Else
MsgBox Err.Number & vbNewLine & _
Err.Description & vbNewLine & _
"予期せぬエラーが発生しました"
End
End If

End Sub


目次へ

別のフォームのレコードを検索 DoCmd.FindRecord

Forms!フォーム名1.SetFocus '検索対象フォーム
DoCmd.FindRecord Forms!フォーム名2!フィールド名1, acAnywhere, , acSearchAll, , acAll '検索条件があるフォーム名とフィールド名
DoCmd.FindRecord Forms!フォーム名2!フィールド名2, acAnywhere, , acSearchAll, , acAll '検索条件があるフォーム名とフィールド名　

フォーム名1とフォーム名2の検索対象のフィールド名は一致していなければなりません

絞り込みではありません

目次へ

フォームでレコードの追加の許可プロパティ

Forms!フォーム名.AllowAdditions = True(許可する) False(許可しない)


目次へ

フィールド名を変数で

フィールド名を変数で
　　dim FN as string
FN = フィールド名
Forms!FT002.Controls(FN) = "フィールドに入力する値など"


目次へ