Microsoft Access Club Access超初心者対象Forum Access初級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

新着の投稿記事


タイトルRe^2: サブフォーム追加について
記事No42763   [関連記事]
投稿日: 2017/01/01(Sun) 09:06
投稿者さる
解決済: ON
年末のお忙しいなかありがとうございました。
希望どうりに行きました。

タイトルRe: サブフォーム追加について
記事No42762   [関連記事]
投稿日: 2016/12/31(Sat) 18:40
投稿者hatena
解決済: ON
> メインフォーム 名前など
> サブフォーム 名前その他いくつか
> メインは個人情報 サブフォーム用は貸出などの履歴データ
> 名前で親子関係
> サブフォームに 非連結テキストボックスをいくつか配置

サブフォームは帳票フォームですよね。

フォームヘッダーかフッターに非連結テキストボックスを配置するのですか。

> 希望 保存ボタンを配置しサブフォームへ保存したい。
> 希望2 日付に値がない等のときは、保存ボタンが押せない

上記のことが希望なら、非連結コントロールにしなくても、可能ですが。

レコード入力時に「保存」コマンドボタンでのみレコード保存できるようにする - hatena chips
http://hatenachips.blog34.fc2.com/blog-entry-162.html

タイトルサブフォーム追加について
記事No42761   [関連記事]
投稿日: 2016/12/30(Fri) 14:36
投稿者さる
解決済: ON
OS:WIN10
Access Version:2010
こんにちは。
メインフォーム 名前など
サブフォーム 名前その他いくつか
メインは個人情報 サブフォーム用は貸出などの履歴データ
名前で親子関係
サブフォームに 非連結テキストボックスをいくつか配置

希望 保存ボタンを配置しサブフォームへ保存したい。
希望2 日付に値がない等のときは、保存ボタンが押せない

お願いします。

タイトルRe: RS232C経由で NADA MODEL 111 プリンタに印字時にダウン
記事No42760   [関連記事]
投稿日: 2016/12/14(Wed) 10:15
投稿者ぱぴぷぺ
解決済: ON
自己解決しましたのでクローズします。

> OS:Windwos7 Pro SP1 32bit
> Access Version:MS ACCESS 2010 Pro
>
> 対処方法などのアドバイスをいただけると幸いです。
>
> RS232Cを経由してミニプリンタに印字する機能を作成しており、
> ほぼ印字をすることはできますが、2項目ほどデータが印字されず
> ACCESSがダウンします。
>
> コードなどの情報は以下に記載します。
>  
> ■コード
>
> <フォームオブジェクトより一部抜粋>
> −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
>
> Private Sub 処理パターン1_Click()
>
> pComm = CreateFile(fPortNo, GENERIC_READ Or GENERIC_WRITE, 0, 0, OPEN_EXISTING, 0, 0)
>
> If (pComm = -1) Then 'ポートのオープン失敗
> 'エラー処理
> '***** シリアルポートをクローズする *****
> Call CloseHandle(pComm)
> pComm = 0 'ハンドルをクリアしておく
> MsgBox "シリアルポートをクローズします"
> Exit Sub
> End If
>
> '***** 通信条件の設定 *****
> pDCB.BaudRate = 9600 '転送速度の指定
> pDCB.fBitFields = &H1 'バイナリモード
> pDCB.fBitFields = pDCB.fBitFields Or &H2 'パリティチェックなし
> pDCB.ByteSize = 8 'ビット長の指定
> pDCB.Parity = NOPARITY 'パリティなし
> pDCB.StopBits = ONESTOPBIT 'ストップビット数を1指定
>
> #################################
>                (略)
> #################################
>
> If CommOutput(pComm, sendData, Len(sendData)) = 0 Then
> Call MsgBox("送信に失敗しました", vbOKOnly Or vbCritical)
> End If
>
> End Sub
>
>
> ' COMポートへ送信
> Public Function CommOutput(ByVal hCom As LongPtr, ByVal strBuffer As String, ByVal lngLen As LongPtr) As Long
>
> On Error GoTo Error1
>
> Dim lngWrite As LongPtr
>
> Call WriteFile(hCom, ByVal strBuffer, lngLen, lngWrite, 0) ⇒ ■この処理後にACCESSが落ちる
>
> CommOutput = lngWrite
>
> Error1:
> MsgBox "実行時エラー:" & Err.Number & " " & _
> Err.Description, vbExclamation, "MSG"
>
> End Function
>
> −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
>
> 標準モジュールに以下を記載
>
> <API定義より一部抜粋>
> −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
> Public Declare PtrSafe Function WriteFile Lib "kernel32" _
> (ByVal hFile As LongPtr, _
> lpBuffer As Any, _
> ByVal nNumberOfBytesToWrite As LongPtr, _
> lpNumberOfBytesWritten As LongPtr, _
> lpOverlapped As LongPtr) As LongPtr
> −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
>
> ■Windows障害レポート
>
> Version=1
> EventType=APPCRASH
> EventTime=131254582661341339
> ReportType=2
> Consent=1
> UploadTime=131254582666101815
> ReportIdentifier=342cfd3f-bb4c-11e6-92d9-d43d7e879ca0
> IntegratorReportIdentifier=342cfd3e-bb4c-11e6-92d9-d43d7e879ca0
> Response.BucketId=642366801
> Response.BucketTable=17
> Response.type=4
> Sig[0].Name=アプリケーション名
> Sig[0].Value=MSACCESS.EXE
> Sig[1].Name=アプリケーションのバージョン
> Sig[1].Value=14.0.7104.5000
> Sig[2].Name=アプリケーションのタイムスタンプ
> Sig[2].Value=51ce12f7
> Sig[3].Name=障害モジュールの名前
> Sig[3].Value=OLEAUT32.dll
> Sig[4].Name=障害モジュールのバージョン
> Sig[4].Value=6.1.7601.18640
> Sig[5].Name=障害モジュールのタイムスタンプ
> Sig[5].Value=5441c30c
> Sig[6].Name=例外コード
> Sig[6].Value=c0000005
> Sig[7].Name=例外オフセット
> Sig[7].Value=000046b1
> DynamicSig[1].Name=OS バージョン
> DynamicSig[1].Value=6.1.7601.2.1.0.256.48
> DynamicSig[2].Name=ロケール ID
> DynamicSig[2].Value=1041
> UI[2]=C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE
> UI[3]=Microsoft Access は動作を停止しました
> UI[4]=問題の解決策をオンラインで確認でき、情報の回復とプログラムの再起動を試行できます。
> UI[5]=オンラインで解決策を確認してプログラムを再起動します
> UI[6]=オンラインで解決策を後で確認してプログラムを終了します
> UI[7]=プログラムを終了します
> LoadedModule[0]=C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE
> LoadedModule[1]=C:\Windows\SYSTEM32\ntdll.dll
> LoadedModule[2]=C:\Windows\system32\kernel32.dll
> LoadedModule[3]=C:\Windows\system32\KERNELBASE.dll
> LoadedModule[4]=C:\Windows\system32\SHELL32.dll
> LoadedModule[5]=C:\Windows\system32\msvcrt.dll
> LoadedModule[6]=C:\Windows\system32\SHLWAPI.dll
> LoadedModule[7]=C:\Windows\system32\GDI32.dll
> LoadedModule[8]=C:\Windows\system32\USER32.dll
> LoadedModule[9]=C:\Windows\system32\LPK.dll
> LoadedModule[10]=C:\Windows\system32\USP10.dll
> LoadedModule[11]=C:\Windows\system32\MSIMG32.dll
> LoadedModule[12]=C:\Windows\system32\msi.dll
> LoadedModule[13]=C:\Windows\system32\ADVAPI32.dll
> LoadedModule[14]=C:\Windows\SYSTEM32\sechost.dll
> LoadedModule[15]=C:\Windows\system32\RPCRT4.dll
> LoadedModule[16]=C:\Windows\system32\ole32.dll
> LoadedModule[17]=C:\Windows\WinSxS\x86_microsoft.vc90.crt_1fc8b3b9a1e18e3b_9.0.30729.6161_none_50934f2ebcb7eb57\MSVCR90.dll
> LoadedModule[18]=C:\Windows\WinSxS\x86_microsoft.vc90.crt_1fc8b3b9a1e18e3b_9.0.30729.6161_none_50934f2ebcb7eb57\MSVCP90.dll
> LoadedModule[19]=C:\Program Files\Microsoft Office\Office14\oart.dll
> LoadedModule[20]=C:\Program Files\Microsoft Office\Office14\gfx.dll
> LoadedModule[21]=C:\Windows\system32\WTSAPI32.dll
> LoadedModule[22]=C:\Windows\system32\IMM32.DLL
> LoadedModule[23]=C:\Windows\system32\MSCTF.dll
> LoadedModule[24]=C:\Program Files\Common Files\Microsoft Shared\office14\mso.dll
> LoadedModule[25]=C:\Windows\system32\apphelp.dll
> LoadedModule[26]=C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.18837_none_41e855142bd5705d\Comctl32.dll
> LoadedModule[27]=C:\Program Files\Common Files\Microsoft Shared\office14\Cultures\office.odf
> LoadedModule[28]=C:\Program Files\Microsoft Office\Office14\1041\MSAIN.DLL
> LoadedModule[29]=C:\Windows\system32\CRYPTBASE.dll
> LoadedModule[30]=C:\Program Files\Sky Product\SKYSEA Client View\LogPostDetectorEx.dll
> LoadedModule[31]=C:\Windows\system32\OLEAUT32.dll
> LoadedModule[32]=C:\Windows\system32\WININET.dll
> LoadedModule[33]=C:\Windows\system32\api-ms-win-downlevel-user32-l1-1-0.dll
> LoadedModule[34]=C:\Windows\system32\api-ms-win-downlevel-shlwapi-l1-1-0.dll
> LoadedModule[35]=C:\Windows\system32\api-ms-win-downlevel-version-l1-1-0.dll
> LoadedModule[36]=C:\Windows\system32\version.DLL
> LoadedModule[37]=C:\Windows\system32\api-ms-win-downlevel-normaliz-l1-1-0.dll
> LoadedModule[38]=C:\Windows\system32\normaliz.DLL
> LoadedModule[39]=C:\Windows\system32\iertutil.dll
> LoadedModule[40]=C:\Windows\system32\api-ms-win-downlevel-advapi32-l1-1-0.dll
> LoadedModule[41]=C:\Windows\system32\USERENV.dll
> LoadedModule[42]=C:\Windows\system32\profapi.dll
> LoadedModule[43]=C:\Windows\system32\PSAPI.DLL
> LoadedModule[44]=C:\Windows\system32\imagehlp.dll
> LoadedModule[45]=C:\Program Files\Sky Product\SKYSEA Client View\OneDriveOffice2010Hook.dll
> LoadedModule[46]=C:\Program Files\Sky Product\Common\bin\SkyPrint.dll
> LoadedModule[47]=C:\Windows\system32\WINSPOOL.DRV
> LoadedModule[48]=C:\Program Files\Sky Product\SKYSEA Client View\LogPostDetector.dll
> LoadedModule[49]=C:\Program Files\Sky Product\SKYSEA Client View\LogFTP.dll
> LoadedModule[50]=C:\Windows\system32\WS2_32.dll
> LoadedModule[51]=C:\Windows\system32\NSI.dll
> LoadedModule[52]=C:\Windows\system32\MSWSOCK.dll
> LoadedModule[53]=C:\Program Files\Sky Product\SKYSEA Client View\LogCDWriteHook.DLL
> LoadedModule[54]=C:\Program Files\Sky Product\SKYSEA Client View\SaveUsHK.dll
> LoadedModule[55]=C:\Windows\system32\imjp14.ime
> LoadedModule[56]=C:\Windows\system32\imjp14k.dll
> LoadedModule[57]=C:\Program Files\Common Files\Microsoft Shared\office14\1041\MSOINTL.DLL
> LoadedModule[58]=C:\Program Files\Common Files\Microsoft Shared\office14\MSORES.DLL
> LoadedModule[59]=C:\Program Files\Common Files\Microsoft Shared\office14\riched20.dll
> LoadedModule[60]=C:\Program Files\Sky Product\SKYSEA Client View\OneDriveSyncHook.dll
> LoadedModule[61]=C:\Windows\system32\WINHTTP.dll
> LoadedModule[62]=C:\Windows\system32\webio.dll
> LoadedModule[63]=C:\Windows\system32\DavClnt.DLL
> LoadedModule[64]=C:\Windows\system32\DAVHLPR.dll
> LoadedModule[65]=C:\Windows\system32\mscoree.dll
> LoadedModule[66]=C:\Windows\Microsoft.NET\Framework\v4.0.30319\mscoreei.dll
> LoadedModule[67]=C:\Windows\system32\DwmApi.DLL
> LoadedModule[68]=C:\Program Files\Common Files\Microsoft Shared\OfficeSoftwareProtectionPlatform\OSPPC.DLL
> LoadedModule[69]=C:\Windows\system32\UxTheme.DLL
> LoadedModule[70]=C:\Windows\system32\CLBCatQ.DLL
> LoadedModule[71]=C:\Windows\system32\msimtf.dll
> LoadedModule[72]=C:\Program Files\Microsoft Office\Office14\MSOSTYLE.DLL
> LoadedModule[73]=C:\Windows\system32\SspiCli.dll
> LoadedModule[74]=C:\Program Files\Microsoft Office\Office14\MSYUBIN7.DLL
> LoadedModule[75]=C:\Windows\System32\msxml6.dll
> LoadedModule[76]=C:\PROGRA~1\COMMON~1\MICROS~1\IME14\IMEJP\IMJPAPI.DLL
> LoadedModule[77]=C:\Program Files\Common Files\Microsoft Shared\IME14\SHARED\IMJKAPI.DLL
> LoadedModule[78]=C:\Program Files\Common Files\Microsoft Shared\IME14\IMEJP\IMJPPRED.DLL
> LoadedModule[79]=C:\Program Files\Common Files\Microsoft Shared\IME14\IMEJP\IMJPTIP.DLL
> LoadedModule[80]=C:\Windows\system32\OLEACC.dll
> LoadedModule[81]=C:\PROGRA~1\COMMON~1\MICROS~1\IME14\SHARED\IMETIP.DLL
> LoadedModule[82]=C:\PROGRA~1\COMMON~1\MICROS~1\IME14\SHARED\IMECFM.DLL
> LoadedModule[83]=C:\PROGRA~1\COMMON~1\MICROS~1\IME14\SHARED\imecfmp.dll
> LoadedModule[84]=C:\Windows\system32\Secur32.dll
> LoadedModule[85]=C:\Program Files\Common Files\Microsoft Shared\IME14\SHARED\IMEFILES.DLL
> LoadedModule[86]=C:\Windows\system32\CRYPTSP.dll
> LoadedModule[87]=C:\Windows\system32\rsaenh.dll
> LoadedModule[88]=C:\Windows\system32\RpcRtRemote.dll
> LoadedModule[89]=C:\Program Files\Common Files\Microsoft Shared\IME14\SHARED\IMECMPS.DLL
> LoadedModule[90]=C:\Program Files\Common Files\Microsoft Shared\OFFICE14\ACECORE.DLL
> LoadedModule[91]=C:\Program Files\Common Files\Microsoft Shared\OFFICE14\1041\ACEWSTR.DLL
> LoadedModule[92]=C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL
> LoadedModule[93]=C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\1041\VBE7INTL.DLL
> LoadedModule[94]=C:\Windows\system32\SXS.DLL
> LoadedModule[95]=C:\Windows\system32\SETUPAPI.dll
> LoadedModule[96]=C:\Windows\system32\CFGMGR32.dll
> LoadedModule[97]=C:\Windows\system32\DEVOBJ.dll
> LoadedModule[98]=C:\Windows\system32\propsys.dll
> LoadedModule[99]=C:\Windows\system32\ntmarta.dll
> LoadedModule[100]=C:\Windows\system32\WLDAP32.dll
> LoadedModule[101]=C:\Program Files\Common Files\Microsoft Shared\OFFICE14\ACEES.DLL
> LoadedModule[102]=C:\Program Files\Common Files\Microsoft Shared\OFFICE14\ACEERR.DLL
> LoadedModule[103]=C:\Program Files\Common Files\Microsoft Shared\OFFICE14\1041\ACEINTL.DLL
> LoadedModule[104]=C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.7601.18834_none_72d38c5186679d48\GdiPlus.dll
> LoadedModule[105]=C:\Program Files\Microsoft Office\Office14\acedao.dll
> LoadedModule[106]=C:\Program Files\Common Files\Microsoft Shared\IME14\SHARED\IMESEARCHDLL.DLL
> LoadedModule[107]=C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_5.82.7601.18837_none_ec86b8d6858ec0bc\COMCTL32.DLL
> LoadedModule[108]=C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSPTLS.DLL
> LoadedModule[109]=C:\Windows\system32\WindowsCodecs.dll
> LoadedModule[110]=C:\Windows\system32\ODBC32.dll
> LoadedModule[111]=C:\Windows\system32\odbcint.dll
> LoadedModule[112]=C:\Windows\system32\bcrypt.dll
> LoadedModule[113]=C:\Windows\system32\bcryptprimitives.dll
> LoadedModule[114]=C:\Windows\system32\SQLSRV32.dll
> LoadedModule[115]=C:\Windows\system32\CRYPT32.dll
> LoadedModule[116]=C:\Windows\system32\MSASN1.dll
> LoadedModule[117]=C:\Windows\system32\NETAPI32.dll
> LoadedModule[118]=C:\Windows\system32\netutils.dll
> LoadedModule[119]=C:\Windows\system32\srvcli.dll
> LoadedModule[120]=C:\Windows\system32\wkscli.dll
> LoadedModule[121]=C:\Windows\system32\sqlsrv32.rll
> LoadedModule[122]=C:\Windows\system32\odbccp32.dll
> LoadedModule[123]=C:\Windows\system32\DBNETLIB.DLL
> LoadedModule[124]=C:\Windows\system32\security.dll
> LoadedModule[125]=C:\Windows\system32\credssp.dll
> LoadedModule[126]=C:\Windows\system32\msv1_0.DLL
> LoadedModule[127]=C:\Windows\system32\cryptdll.dll
> LoadedModule[128]=C:\Windows\system32\ntdsapi.dll
> LoadedModule[129]=C:\Windows\System32\wshtcpip.dll
> LoadedModule[130]=C:\Windows\System32\wship6.dll
> LoadedModule[131]=C:\Windows\system32\DNSAPI.dll
> LoadedModule[132]=C:\Program Files\Common Files\Microsoft Shared\Windows Live\WLIDNSP.DLL
> LoadedModule[133]=C:\Windows\system32\IPHLPAPI.DLL
> LoadedModule[134]=C:\Windows\system32\WINNSI.DLL
> LoadedModule[135]=C:\Windows\system32\rasadhlp.dll
> LoadedModule[136]=C:\Windows\System32\fwpuclnt.dll
> LoadedModule[137]=C:\Windows\system32\schannel.DLL
> LoadedModule[138]=C:\Windows\system32\ncrypt.dll
> Sec[0].Key=LCID
> Sec[0].Value=1041
> Sec[1].Key=skulcid
> Sec[1].Value=1041
> State[0].Key=Transport.DoneStage1
> State[0].Value=1
> State[1].Key=DataRequest
> State[1].Value=Bucket=642366801/nBucketTable=17/nResponse=1/n
> FriendlyEventName=動作が停止しました
> ConsentKey=APPCRASH
> AppName=Microsoft Access
> AppPath=C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE

タイトルRS232C経由で NADA MODEL 111 プリンタに印字時にダウン
記事No42759   [関連記事]
投稿日: 2016/12/06(Tue) 13:45
投稿者ぱぴぷぺ
解決済: ON
OS:Windwos7 Pro SP1 32bit
Access Version:MS ACCESS 2010 Pro

対処方法などのアドバイスをいただけると幸いです。

RS232Cを経由してミニプリンタに印字する機能を作成しており、
ほぼ印字をすることはできますが、2項目ほどデータが印字されず
ACCESSがダウンします。

コードなどの情報は以下に記載します。
 
■コード

<フォームオブジェクトより一部抜粋>
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−

Private Sub 処理パターン1_Click()

pComm = CreateFile(fPortNo, GENERIC_READ Or GENERIC_WRITE, 0, 0, OPEN_EXISTING, 0, 0)

If (pComm = -1) Then 'ポートのオープン失敗
'エラー処理
'***** シリアルポートをクローズする *****
Call CloseHandle(pComm)
pComm = 0 'ハンドルをクリアしておく
MsgBox "シリアルポートをクローズします"
Exit Sub
End If

'***** 通信条件の設定 *****
pDCB.BaudRate = 9600 '転送速度の指定
pDCB.fBitFields = &H1 'バイナリモード
pDCB.fBitFields = pDCB.fBitFields Or &H2 'パリティチェックなし
pDCB.ByteSize = 8 'ビット長の指定
pDCB.Parity = NOPARITY 'パリティなし
pDCB.StopBits = ONESTOPBIT 'ストップビット数を1指定

#################################
               (略)
#################################

If CommOutput(pComm, sendData, Len(sendData)) = 0 Then
Call MsgBox("送信に失敗しました", vbOKOnly Or vbCritical)
End If

End Sub


' COMポートへ送信
Public Function CommOutput(ByVal hCom As LongPtr, ByVal strBuffer As String, ByVal lngLen As LongPtr) As Long

On Error GoTo Error1

Dim lngWrite As LongPtr

Call WriteFile(hCom, ByVal strBuffer, lngLen, lngWrite, 0) ⇒ ■この処理後にACCESSが落ちる

CommOutput = lngWrite

Error1:
MsgBox "実行時エラー:" & Err.Number & " " & _
Err.Description, vbExclamation, "MSG"

End Function

−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−

標準モジュールに以下を記載

<API定義より一部抜粋>
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
Public Declare PtrSafe Function WriteFile Lib "kernel32" _
(ByVal hFile As LongPtr, _
lpBuffer As Any, _
ByVal nNumberOfBytesToWrite As LongPtr, _
lpNumberOfBytesWritten As LongPtr, _
lpOverlapped As LongPtr) As LongPtr
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−

■Windows障害レポート

Version=1
EventType=APPCRASH
EventTime=131254582661341339
ReportType=2
Consent=1
UploadTime=131254582666101815
ReportIdentifier=342cfd3f-bb4c-11e6-92d9-d43d7e879ca0
IntegratorReportIdentifier=342cfd3e-bb4c-11e6-92d9-d43d7e879ca0
Response.BucketId=642366801
Response.BucketTable=17
Response.type=4
Sig[0].Name=アプリケーション名
Sig[0].Value=MSACCESS.EXE
Sig[1].Name=アプリケーションのバージョン
Sig[1].Value=14.0.7104.5000
Sig[2].Name=アプリケーションのタイムスタンプ
Sig[2].Value=51ce12f7
Sig[3].Name=障害モジュールの名前
Sig[3].Value=OLEAUT32.dll
Sig[4].Name=障害モジュールのバージョン
Sig[4].Value=6.1.7601.18640
Sig[5].Name=障害モジュールのタイムスタンプ
Sig[5].Value=5441c30c
Sig[6].Name=例外コード
Sig[6].Value=c0000005
Sig[7].Name=例外オフセット
Sig[7].Value=000046b1
DynamicSig[1].Name=OS バージョン
DynamicSig[1].Value=6.1.7601.2.1.0.256.48
DynamicSig[2].Name=ロケール ID
DynamicSig[2].Value=1041
UI[2]=C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE
UI[3]=Microsoft Access は動作を停止しました
UI[4]=問題の解決策をオンラインで確認でき、情報の回復とプログラムの再起動を試行できます。
UI[5]=オンラインで解決策を確認してプログラムを再起動します
UI[6]=オンラインで解決策を後で確認してプログラムを終了します
UI[7]=プログラムを終了します
LoadedModule[0]=C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE
LoadedModule[1]=C:\Windows\SYSTEM32\ntdll.dll
LoadedModule[2]=C:\Windows\system32\kernel32.dll
LoadedModule[3]=C:\Windows\system32\KERNELBASE.dll
LoadedModule[4]=C:\Windows\system32\SHELL32.dll
LoadedModule[5]=C:\Windows\system32\msvcrt.dll
LoadedModule[6]=C:\Windows\system32\SHLWAPI.dll
LoadedModule[7]=C:\Windows\system32\GDI32.dll
LoadedModule[8]=C:\Windows\system32\USER32.dll
LoadedModule[9]=C:\Windows\system32\LPK.dll
LoadedModule[10]=C:\Windows\system32\USP10.dll
LoadedModule[11]=C:\Windows\system32\MSIMG32.dll
LoadedModule[12]=C:\Windows\system32\msi.dll
LoadedModule[13]=C:\Windows\system32\ADVAPI32.dll
LoadedModule[14]=C:\Windows\SYSTEM32\sechost.dll
LoadedModule[15]=C:\Windows\system32\RPCRT4.dll
LoadedModule[16]=C:\Windows\system32\ole32.dll
LoadedModule[17]=C:\Windows\WinSxS\x86_microsoft.vc90.crt_1fc8b3b9a1e18e3b_9.0.30729.6161_none_50934f2ebcb7eb57\MSVCR90.dll
LoadedModule[18]=C:\Windows\WinSxS\x86_microsoft.vc90.crt_1fc8b3b9a1e18e3b_9.0.30729.6161_none_50934f2ebcb7eb57\MSVCP90.dll
LoadedModule[19]=C:\Program Files\Microsoft Office\Office14\oart.dll
LoadedModule[20]=C:\Program Files\Microsoft Office\Office14\gfx.dll
LoadedModule[21]=C:\Windows\system32\WTSAPI32.dll
LoadedModule[22]=C:\Windows\system32\IMM32.DLL
LoadedModule[23]=C:\Windows\system32\MSCTF.dll
LoadedModule[24]=C:\Program Files\Common Files\Microsoft Shared\office14\mso.dll
LoadedModule[25]=C:\Windows\system32\apphelp.dll
LoadedModule[26]=C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.18837_none_41e855142bd5705d\Comctl32.dll
LoadedModule[27]=C:\Program Files\Common Files\Microsoft Shared\office14\Cultures\office.odf
LoadedModule[28]=C:\Program Files\Microsoft Office\Office14\1041\MSAIN.DLL
LoadedModule[29]=C:\Windows\system32\CRYPTBASE.dll
LoadedModule[30]=C:\Program Files\Sky Product\SKYSEA Client View\LogPostDetectorEx.dll
LoadedModule[31]=C:\Windows\system32\OLEAUT32.dll
LoadedModule[32]=C:\Windows\system32\WININET.dll
LoadedModule[33]=C:\Windows\system32\api-ms-win-downlevel-user32-l1-1-0.dll
LoadedModule[34]=C:\Windows\system32\api-ms-win-downlevel-shlwapi-l1-1-0.dll
LoadedModule[35]=C:\Windows\system32\api-ms-win-downlevel-version-l1-1-0.dll
LoadedModule[36]=C:\Windows\system32\version.DLL
LoadedModule[37]=C:\Windows\system32\api-ms-win-downlevel-normaliz-l1-1-0.dll
LoadedModule[38]=C:\Windows\system32\normaliz.DLL
LoadedModule[39]=C:\Windows\system32\iertutil.dll
LoadedModule[40]=C:\Windows\system32\api-ms-win-downlevel-advapi32-l1-1-0.dll
LoadedModule[41]=C:\Windows\system32\USERENV.dll
LoadedModule[42]=C:\Windows\system32\profapi.dll
LoadedModule[43]=C:\Windows\system32\PSAPI.DLL
LoadedModule[44]=C:\Windows\system32\imagehlp.dll
LoadedModule[45]=C:\Program Files\Sky Product\SKYSEA Client View\OneDriveOffice2010Hook.dll
LoadedModule[46]=C:\Program Files\Sky Product\Common\bin\SkyPrint.dll
LoadedModule[47]=C:\Windows\system32\WINSPOOL.DRV
LoadedModule[48]=C:\Program Files\Sky Product\SKYSEA Client View\LogPostDetector.dll
LoadedModule[49]=C:\Program Files\Sky Product\SKYSEA Client View\LogFTP.dll
LoadedModule[50]=C:\Windows\system32\WS2_32.dll
LoadedModule[51]=C:\Windows\system32\NSI.dll
LoadedModule[52]=C:\Windows\system32\MSWSOCK.dll
LoadedModule[53]=C:\Program Files\Sky Product\SKYSEA Client View\LogCDWriteHook.DLL
LoadedModule[54]=C:\Program Files\Sky Product\SKYSEA Client View\SaveUsHK.dll
LoadedModule[55]=C:\Windows\system32\imjp14.ime
LoadedModule[56]=C:\Windows\system32\imjp14k.dll
LoadedModule[57]=C:\Program Files\Common Files\Microsoft Shared\office14\1041\MSOINTL.DLL
LoadedModule[58]=C:\Program Files\Common Files\Microsoft Shared\office14\MSORES.DLL
LoadedModule[59]=C:\Program Files\Common Files\Microsoft Shared\office14\riched20.dll
LoadedModule[60]=C:\Program Files\Sky Product\SKYSEA Client View\OneDriveSyncHook.dll
LoadedModule[61]=C:\Windows\system32\WINHTTP.dll
LoadedModule[62]=C:\Windows\system32\webio.dll
LoadedModule[63]=C:\Windows\system32\DavClnt.DLL
LoadedModule[64]=C:\Windows\system32\DAVHLPR.dll
LoadedModule[65]=C:\Windows\system32\mscoree.dll
LoadedModule[66]=C:\Windows\Microsoft.NET\Framework\v4.0.30319\mscoreei.dll
LoadedModule[67]=C:\Windows\system32\DwmApi.DLL
LoadedModule[68]=C:\Program Files\Common Files\Microsoft Shared\OfficeSoftwareProtectionPlatform\OSPPC.DLL
LoadedModule[69]=C:\Windows\system32\UxTheme.DLL
LoadedModule[70]=C:\Windows\system32\CLBCatQ.DLL
LoadedModule[71]=C:\Windows\system32\msimtf.dll
LoadedModule[72]=C:\Program Files\Microsoft Office\Office14\MSOSTYLE.DLL
LoadedModule[73]=C:\Windows\system32\SspiCli.dll
LoadedModule[74]=C:\Program Files\Microsoft Office\Office14\MSYUBIN7.DLL
LoadedModule[75]=C:\Windows\System32\msxml6.dll
LoadedModule[76]=C:\PROGRA~1\COMMON~1\MICROS~1\IME14\IMEJP\IMJPAPI.DLL
LoadedModule[77]=C:\Program Files\Common Files\Microsoft Shared\IME14\SHARED\IMJKAPI.DLL
LoadedModule[78]=C:\Program Files\Common Files\Microsoft Shared\IME14\IMEJP\IMJPPRED.DLL
LoadedModule[79]=C:\Program Files\Common Files\Microsoft Shared\IME14\IMEJP\IMJPTIP.DLL
LoadedModule[80]=C:\Windows\system32\OLEACC.dll
LoadedModule[81]=C:\PROGRA~1\COMMON~1\MICROS~1\IME14\SHARED\IMETIP.DLL
LoadedModule[82]=C:\PROGRA~1\COMMON~1\MICROS~1\IME14\SHARED\IMECFM.DLL
LoadedModule[83]=C:\PROGRA~1\COMMON~1\MICROS~1\IME14\SHARED\imecfmp.dll
LoadedModule[84]=C:\Windows\system32\Secur32.dll
LoadedModule[85]=C:\Program Files\Common Files\Microsoft Shared\IME14\SHARED\IMEFILES.DLL
LoadedModule[86]=C:\Windows\system32\CRYPTSP.dll
LoadedModule[87]=C:\Windows\system32\rsaenh.dll
LoadedModule[88]=C:\Windows\system32\RpcRtRemote.dll
LoadedModule[89]=C:\Program Files\Common Files\Microsoft Shared\IME14\SHARED\IMECMPS.DLL
LoadedModule[90]=C:\Program Files\Common Files\Microsoft Shared\OFFICE14\ACECORE.DLL
LoadedModule[91]=C:\Program Files\Common Files\Microsoft Shared\OFFICE14\1041\ACEWSTR.DLL
LoadedModule[92]=C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL
LoadedModule[93]=C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\1041\VBE7INTL.DLL
LoadedModule[94]=C:\Windows\system32\SXS.DLL
LoadedModule[95]=C:\Windows\system32\SETUPAPI.dll
LoadedModule[96]=C:\Windows\system32\CFGMGR32.dll
LoadedModule[97]=C:\Windows\system32\DEVOBJ.dll
LoadedModule[98]=C:\Windows\system32\propsys.dll
LoadedModule[99]=C:\Windows\system32\ntmarta.dll
LoadedModule[100]=C:\Windows\system32\WLDAP32.dll
LoadedModule[101]=C:\Program Files\Common Files\Microsoft Shared\OFFICE14\ACEES.DLL
LoadedModule[102]=C:\Program Files\Common Files\Microsoft Shared\OFFICE14\ACEERR.DLL
LoadedModule[103]=C:\Program Files\Common Files\Microsoft Shared\OFFICE14\1041\ACEINTL.DLL
LoadedModule[104]=C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.7601.18834_none_72d38c5186679d48\GdiPlus.dll
LoadedModule[105]=C:\Program Files\Microsoft Office\Office14\acedao.dll
LoadedModule[106]=C:\Program Files\Common Files\Microsoft Shared\IME14\SHARED\IMESEARCHDLL.DLL
LoadedModule[107]=C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_5.82.7601.18837_none_ec86b8d6858ec0bc\COMCTL32.DLL
LoadedModule[108]=C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSPTLS.DLL
LoadedModule[109]=C:\Windows\system32\WindowsCodecs.dll
LoadedModule[110]=C:\Windows\system32\ODBC32.dll
LoadedModule[111]=C:\Windows\system32\odbcint.dll
LoadedModule[112]=C:\Windows\system32\bcrypt.dll
LoadedModule[113]=C:\Windows\system32\bcryptprimitives.dll
LoadedModule[114]=C:\Windows\system32\SQLSRV32.dll
LoadedModule[115]=C:\Windows\system32\CRYPT32.dll
LoadedModule[116]=C:\Windows\system32\MSASN1.dll
LoadedModule[117]=C:\Windows\system32\NETAPI32.dll
LoadedModule[118]=C:\Windows\system32\netutils.dll
LoadedModule[119]=C:\Windows\system32\srvcli.dll
LoadedModule[120]=C:\Windows\system32\wkscli.dll
LoadedModule[121]=C:\Windows\system32\sqlsrv32.rll
LoadedModule[122]=C:\Windows\system32\odbccp32.dll
LoadedModule[123]=C:\Windows\system32\DBNETLIB.DLL
LoadedModule[124]=C:\Windows\system32\security.dll
LoadedModule[125]=C:\Windows\system32\credssp.dll
LoadedModule[126]=C:\Windows\system32\msv1_0.DLL
LoadedModule[127]=C:\Windows\system32\cryptdll.dll
LoadedModule[128]=C:\Windows\system32\ntdsapi.dll
LoadedModule[129]=C:\Windows\System32\wshtcpip.dll
LoadedModule[130]=C:\Windows\System32\wship6.dll
LoadedModule[131]=C:\Windows\system32\DNSAPI.dll
LoadedModule[132]=C:\Program Files\Common Files\Microsoft Shared\Windows Live\WLIDNSP.DLL
LoadedModule[133]=C:\Windows\system32\IPHLPAPI.DLL
LoadedModule[134]=C:\Windows\system32\WINNSI.DLL
LoadedModule[135]=C:\Windows\system32\rasadhlp.dll
LoadedModule[136]=C:\Windows\System32\fwpuclnt.dll
LoadedModule[137]=C:\Windows\system32\schannel.DLL
LoadedModule[138]=C:\Windows\system32\ncrypt.dll
Sec[0].Key=LCID
Sec[0].Value=1041
Sec[1].Key=skulcid
Sec[1].Value=1041
State[0].Key=Transport.DoneStage1
State[0].Value=1
State[1].Key=DataRequest
State[1].Value=Bucket=642366801/nBucketTable=17/nResponse=1/n
FriendlyEventName=動作が停止しました
ConsentKey=APPCRASH
AppName=Microsoft Access
AppPath=C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE

タイトルRe^2: Word差し込みで、チェックボックスにチェックを入れる方法を教えてください
記事No42758   [関連記事]
投稿日: 2016/11/24(Thu) 10:03
投稿者ありママ
解決済: ON
mayu様
お返事をありがとうございました。
長年Accessに関わっているわりにはさっぱり実力がついていない私にとって、かなり荷の重いことだったんだと改めて思い知ったところです。
教えていただいたコードをすべて理解した訳ではありませんが、コマンドボタンを設置して実行したところ、確かにWord文書のチェック欄にチェックが付きました。
実は、4年前も同じ件で悩んだことがありその時はあきらめてしまいそのままになっていましたので、思わず拍手してしまいました。
 この部分を使用しました。
  For i = 1 To wdDoc.InlineShapes.Count
    If (wdDoc.InlineShapes(i).OLEFormat.progID = "Forms.CheckBox.1") Then
      With wdDoc.InlineShapes(i).OLEFormat.Object
        Debug.Print "ActiveX:" & vbTab & .Name & vbTab & .Caption
        Rem .Value = True
      End With
    End If
  Next i
あとは、自分のコードにうまく取り込めればと思いますが時間がかかりそうですので、この件はいったんクローズさせていただきます。
成功しましたら報告させていただきます。
mayu様 お忙しいなか、丁寧に教えていただいて本当にありがとうございました。

タイトルRe: Word差し込みで、チェックボックスにチェックを入れる方法を教えてください
記事No42757   [関連記事]
投稿日: 2016/11/22(Tue) 23:55
投稿者mayu
解決済: ON
こんにちは。

> 今回、Word文書(テンプレート)の項目に、チェックボックスが設定してあり、
> 該当する内容のチェック欄にチェックを入れたいのですが

Wordで使用できる CheckBox は

  ■ ContentControl インターフェイス
https://msdn.microsoft.com/ja-jp/library/microsoft.office.tools.word.contentcontrol.aspx

  ■ OLEFormat メンバー
https://msdn.microsoft.com/ja-jp/library/office/ff197153.aspx

  ■ FormField オブジェクト
https://msdn.microsoft.com/ja-jp/library/office/ff837885.aspx

と、いくつか種類があり、それぞれ扱い方が異なります。

オブジェクト毎に
文書内での コントロールの列挙 及び ON/OFF の切り替え方を
サンプルとして掲載しておきますので
ご自身が配置したオブジェクトに対する操作部分のみを
参考になさればよろしいでしょう。

'------------------------------------------------------------------------------
'■ 参照設定 Microsoft Word X.X Object Library

Sub sample()
  Const DOC_PATH As String = "C:\Users\???\***.docx"  '文書のフルパス
  Dim wdApp      As Word.Application
  Dim wdDoc      As Word.Document
  Dim i          As Long
  
  With CreateObject("Scripting.FileSystemObject")
    If (Not .FileExists(DOC_PATH)) Then Exit Sub
  End With
  
  Set wdApp = New Word.Application
  Set wdDoc = wdApp.Documents.Open(DOC_PATH)
  
  For i = 1 To wdDoc.ContentControls.Count
    If (wdDoc.ContentControls(i).Type = wdContentControlCheckBox) Then
      With wdDoc.ContentControls(i)
        Debug.Print "Content:" & vbTab & .ID & vbTab & .Title
        Rem .Checked = True
      End With
    End If
  Next i
  
  For i = 1 To wdDoc.InlineShapes.Count
    If (wdDoc.InlineShapes(i).OLEFormat.progID = "Forms.CheckBox.1") Then
      With wdDoc.InlineShapes(i).OLEFormat.Object
        Debug.Print "ActiveX:" & vbTab & .Name & vbTab & .Caption
        Rem .Value = True
      End With
    End If
  Next i
  
  For i = 1 To wdDoc.FormFields.Count
    If (wdDoc.FormFields(i).Type = wdFieldFormCheckBox) Then
      With wdDoc.FormFields(i)
        Debug.Print "FormField:" & vbTab & .Name & vbTab & .Result
        Rem .CheckBox.Value = True
      End With
    End If
  Next i
  
  wdDoc.Close
  wdApp.Quit
  Set wdDoc = Nothing
  Set wdApp = Nothing
End Sub

'------------------------------------------------------------------------------

  では ☆

タイトルWord差し込みで、チェックボックスにチェックを入れる方法を教えてください
記事No42756   [関連記事]
投稿日: 2016/11/21(Mon) 10:46
投稿者ありママ
解決済: ON
OS:
Access Version:
Windows7 Access2007

入力画面のデータをWord文書(テンプレート)にそのまま差し込んで文書作成をしています。
例文:
Set Rng = Obj.Selection.Range
Rng.Find.ClearFormatting
Rng.Find.Execute findtext:="<<住所>>", Replacewith:=Nz(strfrm1.住所)
このやり方はネットで調べて拝借したもので、本当に理解している訳ではありませんが、大変便利に使わせていただいています。
今回、Word文書(テンプレート)の項目に、チェックボックスが設定してあり、該当する内容のチェック欄にチェックを入れたいのですが、方法がわかりません。
どなたか、教えていただけないでしょうか?

タイトルACCESSのテーブルODBCリンクについて
記事No42754   [関連記事]
投稿日: 2016/10/21(Fri) 13:13
投稿者ぼくはくま
OS:WINXP
Access Version:2010
ORACLE:10g(10.2.0.5)

お世話になります。

ACCESSとオラクルでODBC接続を行い、テーブルリンクすることは出来たのですが、
ACCESSのフォームにリンクテーブルのフィールドを表示させたいのですが、
思った通りに出力されません。
ネット等で探してもなかなか見つからず、どなたかご教授頂きたいです。

オラクルで
テーブル構成を↓のように設定しました。

CREATE TABLE "製品情報印刷履歴" (
"登録NO" NUMBER
,"品番" VARCHAR2(14)
,"写真"   BLOB
,"登録日" DATE DEFAULT sysdate
) tablespace dbuser;

フィールドの型「BLOB」にはJPEG等の図を保存したのですが、
ACCESSフォームに表示させようとするとJPEGでの画像が全く出力されません。
ACCESSでリンクテーブルのフィールド情報をみると
フィールド写真のデータ型は「OLEオブジェクト型」となっていました。
オブジェクトブラウザーで図は入れて、
ACCESSからはフィールド「写真」にデータは入っているが
JPEG表示での出力をすることが出来ません。

VBAはほとんど扱ったことはありませんが、
ACCESSでどのように行えば図を出力出来き、JPEGファイルを
ACCESSから格納できるのか教えてください。

よろしくお願いいたします。

タイトルRuntime の動作について
記事No42753   [関連記事]
投稿日: 2016/09/07(Wed) 17:04
投稿者ぬりかべ
OS:windows 7 Pro 32bit
Access Version:2013 Runtime

初めまして。
自端末にて通常版のAccess 2013で簡単なシステムを作成し、他のPCでAccess Runtime2013で動かしており
通常版では動作するが、Runtime環境で動作しない現象が発生してしまい困っています。
<対象の動作>
フォームA上にコンボボックスB、コマンドボタンCを配置。
コマンドボタンCをクリックすると、コンボボックスBの値を元にテーブルDよりデータを持ってきて、
フォームXへ表示させる。
※フォームXは、サブフォームYが含まれていてサブフォームYにはテキストボックス1,テキストボックス2を設定しています

コマンドボタンCをクリックしたときのコード
---------------------------------------------------------------------------------------------
Private Sub コマンドボタンC_Click()

Dim sql As String

If IsNull(Me.コンボボックスB.Value) Then
MsgBox "データを選択してください", vbInformation, ""
Exit Sub
End If

sql = ""
sql = sql & "SELECT "
sql = sql & " テーブルD.F1 AS name, "
sql = sql & " テーブルD.F2 AS code "
sql = sql & "FROM テーブルD "
sql = sql & "WHERE "
sql = sql & " テーブルD.F3E = '" & Forms("フォームA").コンボボックスB.Value & "' "

DoCmd.OpenForm "フォームX"
With Application.Forms("フォームX").Controls("サブフォームY").Form

.RecordSource = sql
.Controls("テキストボックス1").ControlSource = "name"
.Controls("テキストボックス2").ControlSource = "code"

End With

End Sub
----------------------------------------------------------------------------------------------

この動作について、通常版は問題なく動くが、Runtime環境ではボタンはクリックし何かが表示されているように動くが
実際は何も表示されておらず、タスクマネージャから強制終了するしかない状況です。

どこをどのように調査・修正したらよいか全くわからない状況ですので
解決に向けたヒントを頂けるとさいわいです。
宜しくお願いします。

ページの先頭へ 前ページへ戻る