この広告は30日以上更新がないブログに表示されております。
新規記事の投稿を行うことで、非表示にすることが可能です。
2019年02月12日
DAOでデータ件数を求める
Dim mydb As Database
Dim rst As DAO.Recordset
Set mydb = CurrentDb
Set rst = mydb.OpenRecordset("select * from tablename")
MsgBox ("データは" & rst.RecordCount & "件です。")
Set rst = Nothing
Set mydb = Nothing
RecordCount を取得する前に、
MoveLast を実行しておいた方が動作が確実になるらしい。
rst.MoveLast
私の環境では今のところ、
MoveLast なしでもデータ件数を正確に取得できている。
2019年02月03日
AccessのFormat関数
日付を 2月1日（金）と表示したいので、次の式を作成していた。
Format([誕生日],"m\月d""日(""aaa)")
Access2016では問題なく動作するのに2007ではエラーになった。
format()関数は2007では使えないのだろうかと思い調べてみたが、
分からなかった。
Month([誕生日]) & "月" & Day([誕生日]) & "日（" & WeekdayName(Weekday([誕生日]),True) & "）"
とにかく、上の式に変更して解決。
Format([誕生日],"m\月d""日(""aaa)")
Access2016では問題なく動作するのに2007ではエラーになった。
format()関数は2007では使えないのだろうかと思い調べてみたが、
分からなかった。
Access 2007では
Month([誕生日]) & "月" & Day([誕生日]) & "日（" & WeekdayName(Weekday([誕生日]),True) & "）"
とにかく、上の式に変更して解決。
2019年01月26日
sharepointで気付いた?@ 時刻が表示されない
Accessデータベースのテーブルを
sharepointのチームサイトにアップロードした。
そのテーブルに別PCからリンクして見てみると、
一部の項目のデータが表示されない。
日付/時刻型の項目のデータが表示されない。
SharePointサーバ上では
sharepointのサイトでデータソースを確認すると、
時刻データは表示されなかった。
これではPCのAccessからリンクしても表示されないはず。
データを変更して試したみたところ、
日付/時刻型の項目に時刻だけを登録した場合に表示されなくなり、
日付を登録すると表示できた。
まとめ
sharepoint上にAccessのテーブルを置くときは
時刻データは日付/時刻型ではなく
テキストタイプにしておくのが無難。
タグ： sharepoint
2019年01月15日
実行時エラー 3021（Excel VBA）
要はテーブルにレコードがないから処理を実行できませんということ。
movefirst がエラーになっていた。
vSQL = "select * from tablename"
Set myRS = myCon.Execute(vSQL)
myRS.movefirst
エラー対応処理を追加した。
vSQL = "select * from tablename where ～"
Set myRS = myCon.Execute(vSQL)
if myRS.eof then
msgbox "検索条件を満たすデータがありません。"
end
end if
myRS.movefirst
BOFとEOFについての説明は省略します。
2019年01月07日
ショートカットキーでExcelファイルを切替え
複数のExcelファイルを同時に開いているとき、
［Ctrl］+［Tab］
で画面の最前面に表示するExcelファイルを切り替えることができる。
Wordファイルも開いている状態で［Ctrl］+［Tab］を押しても
最前面に表示するExcelファイルを切り替えることができた。
Wordファイルの影響はなかった。
［Ctrl］+［Tab］
で画面の最前面に表示するExcelファイルを切り替えることができる。
Wordファイルも開いている状態で［Ctrl］+［Tab］を押しても
最前面に表示するExcelファイルを切り替えることができた。
Wordファイルの影響はなかった。
