ACCESSで新規入力レコードを帳票画面で作成してから、検索で詳細画面に移りたい時、帳票画面で編集中だとうまくIDが取得できずに移動できません
そんな時はマクロならメニューコマンドの実行で「最新の情報に更新」。VBAならMe.Refreshで編集レコードが更新されて、検索用のIDが確定される
ACCESSのフォームで入力されたテキストを参照して、データを抽出するVBA
private Sub 検索_afterupdate()
Me.Filter="[顧客名] like '*" & Me!検索 & "*'"
Me.FilterOn = True
End Sub
ACCESS2010でコントロールの位置を調整するためのグリッドを非表示にする方法です
フォームのコントロールがない所で右クリックして、メニューの「グリッド」をクリックすると非表示になります
ACCESS2007でexcelのアプリケーションを起動する方法
以前はACCESSCLUBというサイトのサンプルを使用していたが、2007ではエラーが発生するようになった。
Sub ExcelCreate()
Set MyExcel = CreateObject("excel.application")
'MyExcel.Workbooks.Open FileName:="C:\test.xls" '<---既存のエクセルブックを開く場合
MyExcel.Workbooks.Add '<---新しくエクセルを生成する場合
MyExcel.Visible = True
End Sub
以前はACCESSCLUBというサイトのサンプルを使用していたが、2007ではエラーが発生するようになった。
Sub ExcelCreate()
Set MyExcel = CreateObject("excel.application")
'MyExcel.Workbooks.Open FileName:="C:\test.xls" '<---既存のエクセルブックを開く場合
MyExcel.Workbooks.Add '<---新しくエクセルを生成する場合
MyExcel.Visible = True
End Sub
ACCESS2007のメモ
フォームやクエリが表示されているナビゲーションウィンドウは普段非表示の設定になっているが、それを表示にするにはＦ１１キーを押す
フォームやクエリが表示されているナビゲーションウィンドウは普段非表示の設定になっているが、それを表示にするにはＦ１１キーを押す
ACCESSのフルパスファイル名からファイル名・拡張子名・ドライブ名・ディレクトリ名などを取り出す。
第一引数 ファイル名(フルパス)
戻り値1 strDrive as String[ドライブ名]
戻り値2 strDirectory as String[ディレクトリ名]
戻り値3 strFileName as String[ファイル名]
戻り値4 strExt as String[拡張子名]
参考ページ
--ここからプログラム
Option Compare Database
Public strDrive As String
Public strDirectory As String
Public strFileName As String
Public strExt As String
Public Function GetPathName(strFileFullPath As String)
Dim objFso As Object
Set objFso = CreateObject("Scripting.FileSystemObject")
With objFso
strDrive = .GetDriveName(strFileFullPath)
strDirectory = Mid$(.GetParentFolderName(strFileFullPath), Len(strDrive) + 1)
If Right$(strDirectory, 1) <> "\" Then strDirectory = strDirectory & "\"
strExt = .GetExtensionName(strFileFullPath)
If Len(strExt) > 0 Then strExt = "." & strExt
strFileName = .GetFileName(strFileFullPath)
End With
End Function
第一引数 ファイル名(フルパス)
戻り値1 strDrive as String[ドライブ名]
戻り値2 strDirectory as String[ディレクトリ名]
戻り値3 strFileName as String[ファイル名]
戻り値4 strExt as String[拡張子名]
参考ページ
--ここからプログラム
Option Compare Database
Public strDrive As String
Public strDirectory As String
Public strFileName As String
Public strExt As String
Public Function GetPathName(strFileFullPath As String)
Dim objFso As Object
Set objFso = CreateObject("Scripting.FileSystemObject")
With objFso
strDrive = .GetDriveName(strFileFullPath)
strDirectory = Mid$(.GetParentFolderName(strFileFullPath), Len(strDrive) + 1)
If Right$(strDirectory, 1) <> "\" Then strDirectory = strDirectory & "\"
strExt = .GetExtensionName(strFileFullPath)
If Len(strExt) > 0 Then strExt = "." & strExt
strFileName = .GetFileName(strFileFullPath)
End With
End Function
商品の単価は同じ商品でも顧客別に違う場合があるので、顧客別商品マスタを持つ必要がある。
表示に関しては、顧客別の単価を優先して表示する。
できれば、顧客別単価があるのに標準単価が選択された場合、注意の表示が出るのが望ましい。
表示に関しては、顧客別の単価を優先して表示する。
できれば、顧客別単価があるのに標準単価が選択された場合、注意の表示が出るのが望ましい。
アクセスで右クリックのメニューが突然表示されなくなった。
原因は、起動時の設定で「規定のショートカットメニュー」のチェックをはずしたからだった。
原因は、起動時の設定で「規定のショートカットメニュー」のチェックをはずしたからだった。
ACCESSで未入力処理をするとき、挿入前処理や更新前処理で挿入や更新をキャンセルするときは「cancel=true」でキャンセルできる。
例
例
| Private Sub Form_BeforeInsert(Cancel As Integer) If Nz(Me!日付) = "" Then result = MsgBox("日付が入力されていません", vbCritical + vbOKOnly, "未入力欄があります") DoCmd.GoToControl "日付" Cancel = True End If End Sub |