愚者の経験

「また今度」はほとんどこない

カテゴリーアーカイブ: Access

Windows10にてmshtml.dllが更新される[VBA]

Windows10のアップデート(5/10前後)でに上記のdllが更新されました。
おそらくそれが原因で下記のコードが動かなくなりました。

Option Compare Database
Option Explicit

' 擬似非同期処理クラス
' 指定したオブジェクトのパプリックプロシージャを非同期実行

Private html As Object
Private Method As String
Private Arguments As Variant
Public Target As Object

Private Sub Class_Initialize()
    Set html = CreateObject("htmlfile")
    Set html.parentWindow.onhelp = Me
End Sub

Private Sub Class_Terminate()
    Set html.parentWindow.onhelp = Nothing
    Set html = Nothing
End Sub

Public Sub AsyncCall(MethodName As String, TimeLag As Long, ParamArray Args() As Variant)
    If (Target Is Nothing) Then
        Set Target = CodeContextObject
    End If
    
    Method = MethodName
    Arguments = Args
    
    html.parentWindow.setTimeout "onhelp.CallMethod", TimeLag, "VBScript"
End Sub

' 非同期実行プロシージャ
Public Sub CallMethod()
    CallByName Target, Method, VbMethod, Arguments
End Sub

フォームのPublicのプロシージャを非同期もどきで処理していたんですがなぜか動かなくなりました。エラーが出ることもないです。

上記のプログラムをざっくり説明すると
「webページのオブジェクト作って、setTimeout関数で画面の処理(フォームのPublicプロシージャ)を呼ぼう」ってプログラムです。
本来は不可能なMsgBoxを同時に2つ出したりできます。

Private Sub Class_Initialize()
    Set html = CreateObject("htmlfile")
    Set html.parentWindow.onhelp = Me
End Sub

CreateObject(“htmlfile”)でhtmlドキュメントを作成し
parentWindowの適当なプロパティ(この場合はonhelp)にMe(このクラスオブジェクト)を代入し

    html.parentWindow.setTimeout "onhelp.CallMethod", TimeLag, "VBScript"

setTimeout関数でこのクラス(onhelpに代入されている)のメソッド呼びましょうねって感じです。

動かなくなったので代替コードが下記

Option Compare Database
Option Explicit

' 擬似非同期処理クラス
' 指定したオブジェクトのパプリックプロシージャを非同期実行

Private html As Object
Private Method As String
Private Arguments As Variant
Public Target As Object

' Set html.parentWindow.onhelp = Me
' html.parentWindow.setTimeout ~~
' 上記コードは動かなくなった(Windows10のアップデートでmshtml.dllが更新されたのが原因?)
' ので代替コードで修正

Private Sub Class_Initialize()
    Set html = CreateObject("htmlfile")
    
    Const EXEC_SCRIPT = _
            "this.async=" & _
                "function(obj,lag){" & _
                    "setTimeout(function() {obj.CallMethod()},lag)}"
    
    Call html.parentWindow.execScript(EXEC_SCRIPT)
End Sub

Private Sub Class_Terminate()
'    Set html.parentWindow.onhelp = Nothing
    Set html = Nothing
End Sub

Public Sub AsyncCall(MethodName As String, TimeLag As Long, ParamArray Args() As Variant)
    If (Target Is Nothing) Then
        Set Target = CodeContextObject
    End If
    
    Method = MethodName
    Arguments = Args
    
    'html.parentWindow.setTimeout "async.CallMethod", TimeLag, "VBScript"
    Call html.parentWindow.async(Me, TimeLag)
End Sub

' 非同期実行プロシージャ
Public Sub CallMethod()
On Error Resume Next
    CallByName Target, Method, VbMethod, Arguments
End Sub

parentWindow.execScriptでfunctionを登録して
引数でMeを指定しfunction内のsetTimeoutで指定秒数後callします。
なぜこれなら動くのか全く不明だがとりあえず動く。

広告

AccessのコンボボックスがF4キーで開かない原因

以前コンボボックスがF4キーで開かなくなったとぼやいていたんですが原因がわかりました。

その原因は…
『レイアウトビューが有効かどうか』
です。

ハイ?一見関係ないと思いますがこれが原因でした。
データシートのサブフォームでF4キーを使いたい場合は
・Accessのオプションで「カレントデータベース」→「レイアウトビューを有効にする」のチェックを外す
・メインフォームのプロパティで「レイアウトビューを許可」を「いいえ」
のどちらかを設定すればF4キーが使えるようになります。

なぜかはわかりません。

[Access]帳票フォームでスクロールバーが動かない

不具合多くないですかね…?スクロールバーが「ホイール」と「スクロールバーのドラッグ」で動かない状況に遭遇してます。スクロールバー上下の三角「▲」「▼」をクリックすると動かせますが、それ以外ではピクリともしません。

現在はAccess2016で確認できますがAccess2010,2013では確認できていません。
Access2016を入れているPCと2010,2013のPCは別のPCのため完全に切り分けできてはいませんが…

[追記 2017-10-25]
2017-10-11頃のアップデートを適用するとAccess2010でも帳票フォームのスクロールバーが
ホイールで動かなくなりました。WindowsUpdate適用前の復元で戻ったので何かある模様

[Access 2016]VBAモジュールが壊れるエラー(解決済み)

結構深刻でした。『データベースに含まれている VBA プロジェクトを読み取れないため、データベースを開くことができません。データベースを開くには、VBA プロジェクトを削除する必要があります。VBA プロジェクトを削除すると、モジュール、フォーム、およびレポートからすべてのコードが削除されます。データベースを開いて、VBA プロジェクトを削除する前に、バックアップ コピーを作成することをお勧めします。
データベースのバックアップ コピーを作成する場合は、[キャンセル] をクリックしてください。バックアップ コピーを作成しないでデータベースを開き、VBA プロジェクトを削除する場合は、[OK] をクリックしてください。』のようなメッセージが出て何も考えずに「OK」をクリックするとモジュールが全て消えてしまいます。

ファイルのバックアップがなかったらかなりやばいです。
現在は最新版に更新することで直りますので、最新版にしましょう。
「ファイル」→「アカウント」から「今すぐ更新」で最新版にできます。

[Access]いつの間にかF4キー動かない?

サブフォームのコンボボックス開かなくなってません?
Access2010,Access2013,Access2016で開かないことは確認してます。
帳票フォームは動く模様。サブフォームのデータシートだけが動かないのかな?

[Access][SQL Server]パススルークエリで「レコードが大きすぎます」のエラー

ODBCでパススルークエリ書いていると突然発生…。
どうやら文字列型のフィールドでの合計文字列数に上限があるみたいです。レコード長2000バイトみたいですね。
メモ型にするとこの制約から外れる(合計文字列数に含まれなくなる)んですが、パススルークエリって適当に型変換してますよね?

でもとりあえずnvarchar(max)にcastすればメモ型として見てくれる模様。
ODBCは意外な場所に落とし穴があって大変です。

[SQL Server][Access]日時のフィールドで苦労した話

Accessで時刻を入力するのは若干面倒くさい。最終的に使いたい項目が日時だとしても
「日付」と「時刻」の別にフィールドを設けることが多いです。以下長文ごめんなさい。

テキストを1つにすると日付だけ既定値で入れられることが出来たとしても
時刻を続けて入力するにはキャレットを移動させるしかなく、F2キーやマウスをクリックしたり矢印キーを
使用するのを避けられないのが主な理由です。(テキスト毎にEnterイベントでSelStart入れればそんなもんですがそれもちょっと…)
他の理由としては自前のカレンダーや時刻の入力フォームが別にある場合該当のテキストへの入力が複雑になるということもあります。

さらに大きな問題としてOSの時刻の表示が「H:mm」になっているせいで定型入力が「00:00」系で例えば「09:00」
と入力しても再表示時に「9:00」となって、フォーカスすると「9_:00」となって出るときにエラーになって安定しなかったり、
時刻に24時以上を打ち込みたい場合はどうしようもないという理由で最近は時刻は文字列型にしています。
(エラーの方に関しては私が体験したもので必ずでるというわけではないです。今やってみても再現出来ない…。)

そんなこんなでフィールドを2つに割ったとして今度は利用する際に毎回「[日付]+cdate(nz([時刻],”00:00″))=……」とか
しなければいけなくなるのですが、SQLServerを利用している場合は「計算列」という機能があるので
これを使うんですがちょっと問題があります。

24時以上を入力しない場合は計算列の数式に「[日付]+cast(isnull([時刻],’00:00′) as datetime)」とやればいいんですが
「列’xxxx’の数式を検証中にエラーが発生しました。変更を取り消しますか?」と言われてしまいます。
うーんあってるはずなのに…多少書き方を変えても同じです。
どうすればいいかというと上記警告を無視して(上記ダイアログを[いいえ]で突破する)、テーブルの保存時にも似たようなことを
警告されますが再度無視し、テーブルを見ると…ちゃんと出来てますorz
この時castで書いたはずの型変換はconvert(datetime,isnull([時刻],’00:00′))に書き換わっていました。
これで書けばいいのか~とconvertで書いてもやっぱりエラー笑

「悩みまくったのは一体何だったんだ」と思いました。インデックス貼るまでは。
続いてアプリがこなれて仕様も固まってきた頃、速度改善のためにインデックスを作成しようと思って
上記の計算列を選ぶと「インデックスの作成に失敗しました」という趣旨のエラー発生。
「あ~計算列はインデックスキー列に含めないのね」と勝手に思って仕方なく付加列に追加…
出来ません!再度エラーが出ます。
なんで?と思って調べたら、以下の情報がヒット
https://msdn.microsoft.com/ja-jp/library/ms189292.aspx
「決定的」であるかどうかが重要で文字列型を日付にconvertする時は値が決定的になる第三引数が必要だそうです。
なので「convert(datetime,isnull([時刻],’00:00′),108)」とすると保存時にエラーは出ますが、インデックスは使えるようになりました。

うーん。言いたいことは分かるんですがエラー出るのは気持ち悪い。とりあえず24時対応しましたところ
(([日付]+CONVERT([int],left(isnull([時刻],’00:00′),(2)))/(24))+CONVERT([datetime],(CONVERT([varchar](2),CONVERT([int],left(isnull([時刻],’00:00′),(2)))%(24))+’:’)+right(isnull([時刻],’00:00′),(2)),(108)))
これだとエラー出ないんですよね…不思議。

[Office 2013][Access]Access2013の計算値が表示されなくなる現象

Access2013なんですが、たまにおかしい現象が出ます。
・コントロールソースに計算を入れているテキストボックスの表示が表示されなくなる
・サブフォームコントロールの親リンクフィールド、子リンクフィールドが機能せず何も表示されなくなる
主にこの2つです。
またたまに「コントロールをクリックすると表示される」という状態になることもあります。
私が知るかぎりこれはかなり厳しい状況で、すぐ思いつくことをしても大体直りません…
・最適化/修復
・デコンパイル
・PC再起動

現状戻せている方法は「システムの復元」とAccessのバージョン切り替え(Accessを複数バージョンインストールしている場合のみ)です。
おそらくAccessを再インストールしても直るでしょう…また修復で直るかは未確認ですが
クライアントのPCでしていただくにはあまりにも重すぎます…orz

試しに同じプログラムをAccess2010で動かすとちゃんと表示されるので
ファイルが壊れているとかプログラムが間違っているということではありません。
WindowsUpdateも自動で当てているPCだったのでおそらくAccess自体も最新だと思います。

当初WindowsUpdateでなにか変わったのかと思ったのですが復元先のチェックポイントまでに
「自動復元ポイント」しかなかったとしても、それで直るパターンがありました。
なのでシステムに影響があって変わったというわけでもなく、突然上記の症状になるということになります。

OSはWindows7とWindows8.1の両方で発生したことを確認しています。

この方も多分同じ症状だと思います…よく見たらこの方はAccessの修復をされたみたいですね。
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11125283376

あんまりこんなこと言いたくないんですが、Micr○softさんなんとかしてください、お願いします。…m(__)m

2015-1-23 追記
「[ハードウェアのグラフィック アクセラレータを無効にする] のチェックを外す」が効くかもしれません(未確認)
アンインストールする前に確認出来た方いらっしゃれば教えていただければ。
ただ、これVBAで設定する方法がわからない…VBAでレジストリいじるの入れようかな。

さらに追記
Access2010sp2でも発生…サブフォーム内のテキストボックスのコントロールソースに「=[コンボボックス名].column(1)」とか
書いてあるのも空白になっていました。もちろん合計欄見えず、親子リンク動かず。
動くPCと動かないPCが出るのでファイルサーバーのせいではなさそう。クライアントOSは全てWindows8.1 pro 64bitで
PCを再起動しても直らず、Accessを修復すると直りました。しかしサーバは開発用にAccess2013がインストールされているのですが
Access2013を修復しても現象は直りませんでした。クイック、オンライン両方でダメです。

原因が不明で再現性もなく、まったくわかりません…異常が発生したPCのプログラムとサーバのデータを持って帰り
Windows 7のAccess2013で動かしてみましたが再現せず、Windows 8.1のAccess2010で動かして見ても再現せず。
一体どうすればいいのやら。

[Access][ODBC][VBA]RefreshLinkとリンクテーブルマネージャでの再リンク

同じことやっているんだろう…そう思っていた時期が私にもありました。
Viewに適用するとRefreshLinkは主キーの擬似インデックスが外れますが、リンクテーブルマネージャは
外れません。なぜでしょう…これのせいでRefreshLinkがかなり使いづらいです。

[Access][VBA]Accessの開発方法考察(模索中)

・単純かつ頻繁に出るコードは標準モジュールのPublic Functionに集める
フォームのオープン、クローズ
コンボボックスのカラム値を代入
リストボックスを複数選択した場合の値を連結
Tempvarsに値を代入
リボンの表示非表示切り替え
RGBを6桁で入力する
・ODBCでパススルークエリを使う場合はなるべくパススルークエリを直接
 フォームのレコードソースにせずにワークテーブルを利用する
(私が知らないだけかもしれないが)パススルークエリで行を最新に更新する場合
Requeryでパススルークエリの対象行全てを問い合わせるしかないため。
面倒だがトラフィックを考慮し、ワークテーブルに対して別のパススルークエリで
更新対象行のUpdate(またはDeleteとInsert)を行ってフォームのレコードを更新する。
パススルークエリが1行しか表示しない場合などはそのままでいいと思います。