|
初めての投稿失礼いたします。
ユーザーフォームのテキストボックスに半角数字と小数点を入力し、その内容をAccessに登録していくシステムをつくっています。
その、テキストボックスへの入力の質問です。
目標としまして、小数点が1度入力された後、次にまた小数点が入力された瞬間に「小数点はすでに入力されています」みたいなメッセージを出して、小数点が入力されないようにしたいです。
現在、以下のような状態です。
'半角数字(半角数字、小数点OKだが、1..1.などと小数点が複数打ててしまう
Private Sub test_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr$(KeyAscii.Value) Like "[!0-9.]" Then
MsgBox "入力は、半角数字で入力してください。"
KeyAscii.Value = 0
'☆
End If
End Sub
調べてみたところ、InStr()関数(?)で小数点があるかどうかを調べて、あればエラーをかえすみたいな感じにすればいいと結論になったのですが、書き方といいますか、どのようにプログラミングすればいいのかわかりません・・・
☆の部分にそのInStr文を書けばいいような気がするのですが・・・
どなたかご教授いただけないでしょうか。
|
|