hide_kichiの情報

気になる情報,その他役立つ情報をアップしていきます

VBA+ACCESS2016で「引数が無効です」のエラーメッセージ

VBA+ACCESS2016で「引数が無効です」のエラーメッセージ

プログラムテスト中なので

バックアップしていたDBをコピーして解決。

 

じつはかなり悩みました。

バックアップはこまめにとらないといけませんね!!

 

 

おしゃれな オートバックス

 

 

 

 

おしゃれな オートバックスがあり

f:id:hide_kichi:20180515100309j:plain

おしゃれな オートバックスがありました。

 

店員さんに「写真とってもいいですか?」と聞いたら快く「どうぞどうぞ」と言ってくださいました。

 

全国にここしかないらしいです。

f:id:hide_kichi:20180515100929j:plain

f:id:hide_kichi:20180515101123j:plain

f:id:hide_kichi:20180515100733j:plain

 

 

 

【少しECOな話】100均のノリを今まで使っていた入れ物に移しました。

f:id:hide_kichi:20180402141534j:plain

今まで使っていた物に100均で買ったノリを入れ替えました。

100均のものは少し使い勝手がよくないのです。

 ノリが出すぎていつも困ってました。

これで気が楽になりました。

 

 

リコーの複合機 MP-C2801 WINDOWS10にSCAN保存できなくなった。

 リコーの複合機 MP-C2801 WINDOWS10にSCAN保存できなくなりました。

「パスが見つかりません」

「接続エラー」

 

以下の操作で解決しました。

 

1・WINDOWS10で以下の作業をします

[コントロール パネル] ―[プログラム]―[Windows の機能の有効化または無効化] 

SMB1.0/CIFSサーバーをチェックします。

f:id:hide_kichi:20180330083929p:plain

原因はWINDOWS UPDATEのウイルス対策が原因のようです。詳しくはマイクロソフトのホームページで。

 

【VBA】文字を検索、分解

1.変数の文字を検索する関数【instr】です。

n = InStr(1, work_s1, work_s2)

        InStr ( 開始位置 , 変数 , 検索する文字)
Do While n > 0
cnt = cnt + 1
n = InStr(n + 1, work_s1, work_s2)
Loop

ソースは以下です。

------------------------------------------------------------------------------   dim work_s1 as string   dim work_s2 as string   work_s1 = "AAA:BBB:CCC"   work_s2 = ":"   cnt = 0 n = InStr(1, work_s1, work_s2)   Do While n > 0     cnt = cnt + 1 '検索した件数     n = InStr(n + 1, work_s1, work_s2)   Loop ------------------------------------------------------------------------------

2.文字で分割する関数【split】です。

sp_s = Split(work_s, ":")

       Split( 変数 ,分割する文字)

ソースは以下です。

------------------------------------------------------------------------------   Dim sp_s As Variant   dim work_s as string   dim s1 as string   dim s2 as string   sp_s = Split(work_s, ":") s1 = sp_s(0) s2 = sp_s(1) ------------------------------------------------------------------------------

結構使いますので記録しておきます。