Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

337 / 9994

←次へ　｜　前へ→


	【12970】Dlookupの値がクリップボードに送られない

つかさ - 16/3/14(月) 23:35 -


	引用なし

	パスワード

初めまして。

早速ですが、質問させてください。。困っています。

ボタンを押すと、クリップボードに変数の文字列が送られ、そのあとコピーで任意の場所に張り付けられるというシステムを作っております。
実際に作ったVBAのコードは以下になります。

Set Clip = CreateObject( _
　　 "new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
　　
　　Clip.GetFromClipboard
　　Clip.SetText "○○○○" & DLookup("納品先ID", "納品先台帳", "納品先名 ='" & combo納品先名 & "'")
　　Clip.PutInClipboard
　　
　　Set Clip = Nothing

ながったらしいコードになってしまったのは、microsoft forms 2.0 object libraryを直接FM20.DLLを選んだとしても参照できなかったためです。
あきらめかけましたが、なんとか上記のコードを書いてある場所を見つけコピーしたところ正常に動きました。

しかし、上記のコードですと

"○○○○"　までしかクリップボードにコピーできず、肝心な「納品先ID」がコピーできません。Dlookupのやり方は間違っていないようで、ちょっとでも変えると全くクリップボードにコピーできなくなります。

Str(Dlookup…) で行いましたが、やはり何もクリップボードに送られませんでした。

やはりDlookupが間違っているのでしょうか。
どなたかわかる方教えて頂ければ幸いです。。。

238 hits

▼

【12970】Dlookupの値がクリップボードに送られない つかさ 16/3/14(月) 23:35