アクティブなフィールドのテキストをクリップボードにコピーします

クリップボードにコピーするので別のアプリケーションにも貼り付けできます
私はフォーカス取得時に使ってます

Private Sub フィールド名１_GotFocus()
'文字をすべて選択します
Me.フィールド名１.SelStart = 0
Me.フィールド名１.SelLength = 255
'コピーします
DoCmd.RunCommand acCmdCopy
End Sub

目次へ

VBAでクエリの書換えと条件に代数を使用する

Q_テスト クエリーをInputBoxで入力した条件(月次YYYYMM)で開きます

Dim strData As String
Dim qdf As DAO.QueryDef

Set qdf = CurrentDb.QueryDefs("Q_テスト")
strData = InputBox("月次", "InputBoxの例", "YYYYMM")
qdf.SQL = "SELECT * FROM T_テーブル名 where テーブル名.月次フィールド like'" & strData & "'"
DoCmd.OpenQuery qdf.Name 'クエリを開きます。

目次へ

フォーム、サブフォームでのレコードの操作（移動、並べ替え、入力確定）

フォーム、サブフォームでのレコード移動

Forms!フォーム名.Form.Recordset.MoveFirst　'フォームで先頭のレコードへ
Forms!フォーム名.サブフォーム名.Form.Recordset.MoveNext　'サブフォームで次のレコードへ
MoveFirst 先頭レコードへ
MovePrevious 1つ前のレコードへ
MoveNext 　　 次のレコードへ
MoveLast 最後レコードへ
AddNew　　　　新しいレコード
Delete　　　　レコード削除
Move 数値　 現在のレコード番号を基準に前後に移動

レコードの並べ替え

レコードを昇順で並べ替 ASC
レコードを降順で並べ替 DESC
Forms!フォーム名.OrderBy = " フィールド名１,フィールド名２,フィールド名・・・, ASC"
Forms!フォーム名.OrderByOn = True
サブフォーム
Forms!フォーム名.サブフォーム名.Form.OrderBy = " フィールド名１,フィールド名２,フィールド名・・・, ASC"
Forms!フォーム名.サブフォーム名.Form.OrderByOn = True

並べ替え解除

Forms!フォーム名.サブフォーム名.Form.OrderByOn = False

レコードの入力確定

DoCmd.RunCommand acCmdSaveRecord

目次へ

テーブルまたはクエリーのデータを参照してメッセージボックスに表示します

MsgBox DFirst("フィールド名", "テーブル名またはクエリー名","条件")
MsgBox DMax("フィールド名", "テーブル名またはクエリー名","条件")
MsgBox DLast("フィールド名", "テーブル名またはクエリー名","条件")

目次へ

Access2000で動いていたＭＤＢがAccess2010でエラーに

Access2000で動いていたＭＤＢがAccess2010でエラーになってしまう

エラーメッセージが MSCAL.OCX version7を参照する・・・・の場合カレンダーコントロールが原因のようです

そこでAccess2000ランタイムをインストールした後に、Access2010ランタイムまたはAccess2010をインストールして正常に動作確認ができた事例が、２件あります（Access2016も動作確認できました）OSはWindows7、Windows10です

※他のアプリケーション、OSに影響がある可能性がありますので自己責任でお願い致します

目次へ

コメント

 

 

 

 

• 
• 
• 
•