|
▼Hirofumi さん:
的確なご指摘ありがとうございました。UserFormのあとに番号を入力していました。表示が出来るようになりました。すごく嬉しいです。
------------------------------------------------------------------------
Private Sub UserForm_Activate()
'入力フォーム指定なら
If blnInput Then
'入力ボタン、削除ボタンを使用可に
CommandButton1.Enabled = True
CommandButton2.Enabled = True
'データ範囲にデータが有るなら
If lngRows > 0 Then
'操作行を最終行+1に
lngCurrent = lngRows + 1
'スクロールバーを操作行に設定
ScrollBar1.Value = lngCurrent
Else
'操作行を先頭行に
lngCurrent = 1
GetData lngCurrent
End If
Else
'入力ボタン、削除ボタンを使用不可に
CommandButton1.Enabled = False
CommandButton2.Enabled = False
'操作行を先頭行に
lngCurrent = 1
GetData lngCurrent
End If
End Sub
-----------------------------------------------------------
上記コードも番号を外しました。CommandButton1と2は入力ボタンと行削除ボタンですが、ボタンの部分の表示が使えないようになって表示されています。これも私のどこかの設定ミスでしょうか?
まったくデーターの無いレコードの部分にスクロールバーを移動しても、>次のボタンを押しても、新しいレコードを登録フォームからデーター入力しても、患者IDのTextBoxに常に21197と表示されます。
これは、CommandButton1と2のボタンが表示されないことに関係ありますか?
重ね重ねの質問で大変恐縮ですが、お時間の宜しい時にご回答下さい。
また、教えていただいた、コードを学ぶためにはどのような書籍を使えば宜しいですか?今は、初心者用のエクセルのVBAの本を数冊持っています。
|
|