| |
▼REV さん：
>Microsoft DAO 3.6 Object Library
>以上が設定してある状態で
・・・省略・・・
>このプロシージャを実行し中断状態で
>適当なセルに1111を入力してコメントは出ませんでした。
>
>ですが・・・エラーの原因が気になってしまい
>（Refが問題だろうと思いながらｗ）
>DAO + ADO で試しコメントなし
>ADO + Ref でコメント発生
>DAO + Ref でコメント発生
>ADO のみ でコメント発生・・・あれ？
>DAO のみ でコメント発生；；
refeditを使った後で不具合発生してますねぇ。。。
正直私にも原因は良く分かりませんが、勘だけで言うとrefeditを使用する
事によって、book自体に何か悪さをしているのかなぁ？？？
くらいしか思いつきません。
最近、丸投げ質問が目に付きますが（私はスルーしてますけど）、
REV さんのようにキチンと検証して報告してくれるとこちらも勉強になります。
これぞgive and take で本来掲示板のあるべき姿と思ってしまい、
なんかありがたいです。
気持ちが良いので、お礼です。
textboxを使う際の原型です。機能は作りこまなければなりませんが、
あまり見る事はないと思いますので、参考になりましたらどうぞ。
#ササッと書いたので殆ど検証してません。原型という事で^ ^;
#何故かしらuserform2のサイズ変更はtextboxの前にやっておかなければ
#textboxの表示がおかしくなりました。
Win7 XL2007 で作成
何故かしらDropButtonStyle やShowDropButtonWhen はVBEのインテリジェンス
に表示されなかった。？Helpはあるが・・・？
コントロール等の作成：
userformを２こ新規作成、それぞれにtextboxを1個ずつ配置する。
オブジェクト名はデフォルト。
操作：
userform1を表示させ、textboxのボタンをクリック。
'///////////////////////Userform1///////////////////////
Option Explicit
Private Sub TextBox1_DropButtonClick()
UserForm2.Show vbModal
End Sub
Private Sub UserForm_Initialize()
With Me.TextBox1
.SpecialEffect = fmSpecialEffectFlat
.DropButtonStyle = fmDropButtonStyleReduce
.ShowDropButtonWhen = fmShowDropButtonWhenAlways
End With
End Sub
'//////////////////////////////UserForm2/////////////////////////
Option Explicit
Private Sub TextBox1_DropButtonClick()
MsgBox "ボタンが押されました。"
End Sub
Private Sub UserForm_Initialize()
With Me
.Height = .Height - .InsideHeight + TextBox1.Height
End With
With Me.TextBox1
.Left = Me.Left
.Width = Me.InsideWidth
.Top = 0
.SpecialEffect = fmSpecialEffectFlat
.DropButtonStyle = fmDropButtonStyleEllipsis
.ShowDropButtonWhen = fmShowDropButtonWhenAlways
End With
End Sub
|
|
neptune
- 10/6/25(金) 15:10 -
