現在ユーザーログイン画面をVBで作成しているのですが、
パスワード(テキストボックス)をケースセンシティブ(大文字と小文字の違いを認識させる)にするにはどうすればいいのでしょうか?(ACCESS2000からADOでユーザーネームとパスワードを持ってきています。)

もし何方かご存知でしたら教えてください。
よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

Option Base をBinaryにするか


StrComp関数を使えばできます。
パスワードのみであればStrComp関数がお勧めです。
詳しくはHelpでどうぞ。
    • good
    • 0
この回答へのお礼

ご解答有り難うございます。

おっしゃられた通りにしたら、何とかなりました。
有り難うございました。

お礼日時:2001/09/17 21:55

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q1キーで大文字/小文字を切り替えたい

1キーで大文字/小文字を切り替えたい

現在Windows 7でMicrosoft IMEを使用しています。

ローマ字の大文字と小文字を切り替えるときにはShiftキーとCapslock/英数キーを同時に押すのが標準だと思います。

ただ仕事がら大文字/小文字の切り替えが非常に多く、2つのキーを押すのがひどく面倒に感じられ、この機能を1つのキーに割り当てられることができればどんなにいいだろうと思っています。

たとえばCapslock/英数キーを押すだけで大文字と小文字が切り替わると助かります。

そこで[Microsoft IMEのプロパティ]→[編集操作]→[キー設定]→[変更]を探るのですが、それらしき項目は見当たりません。

Microsoft IMEの設定でなんとかならないでしょうか?あるいは何らかのソフトウェアを導入して解決できないでしょうか?

よろしくお願いします。

Aベストアンサー

英語キーボードを使ってみてください。
英語キーボードですと、CapsLockはシフトを押さず
単独で動作してくれます。

質問者さんが「仮名入力」しかできないならば
英語キーボードはお薦めできませんが、
「ローマ字入力」をすることが可能ならば
英語キーボードの方が楽に打てるはずです。

英語キーボードは2000円くらいから販売されています。

QエクセルVBAで、ユーザーボックスを開いたときにテキストボックスにセル

エクセルVBAで、ユーザーボックスを開いたときにテキストボックスにセルの値を自動で表示させたいのですが、うまくいきません。テキストボックスをクリックすると表示されるのですが・・・
 
 Private Sub txt1_Change()
Sheets("Sheet1").Range("a1").Value=txt1.Value
End Sub

としたのですが、やはり間違いなのでしょうか?

Aベストアンサー

グリーンの所

Qアルファベットの小文字・大文字切り替えについて

言語バーの「直接入力」にて英字を入力する際に、いつもならシフトキーを押しながら入力することで(通常が小文字なら)大文字になるのですが、いくらシフトキーを押しながら入力しても全く変わらなく(小文字のままに)なってしまいました。

パスワード等は小文字大文字を区別するので困っています。言語バーの「半角入力」でF8やF9を押すことで対応はしていますが、どこに不具合があるか、どなたか教えていただけますでしょうか。

Aベストアンサー

原因と対応を探ってみました。

1. ソフトウェアの問題

1.1. 設定変更
 あまり考えられませんが、何かの設定により Shift キーを無効にしていませんか?
 先ほど、Delete キーを無効にしてしまったという質問を見ましたので、可能性があるかもしれません。

2. ハードウェアの問題

2.1. 物理的な故障
 Shift キーを押し込めない状態になっていませんか。
(1) キーの下に異物が入っているため(大量のゴミなど)キーが十分下がらない。
(2) 飲み物をこぼしたなどの原因で、キーの軸が周囲に張り付いて動かなくなっている。

2.2. 電気的な故障
 Shift キーの接点が、接触不良を起こしている。

原因としては、これらが考えられます。

対応は、以下の方法をお試し下さい。

1.1. 設定変更
 これが原因の場合は、設定を元に戻してください。

2.1. 物理的な故障
 掃除機でゴミを吸い取るか、エアダスターでゴミを吹き飛ばしてみてください。
 次には、キートップを外して(かなり力が要ります)内部が正常に動くか確認してみてください。
 キートップを外すときは、
 キートップリムーバーという道具がありますが入手は手間がかかるので、
 ドライバーの先端を使うか(下記のページの2番目の写真を参考に)、
 http://www.infovaio.net/pcv-s/key/
 針金を輪にしたものを作り、引っ掛けて抜きます。
 (私が先日キーボードを掃除したときのやり方です。下記のページの中段の写真を参考に)
 http://park16.wakwak.com/~ex4/kb/news0202.htm
 ゴミが残っている場合は、取り除いてください。

 ここで、軸がきちんと上下するかも確認してください。

 動かない場合は(2)の問題で、洗浄処理が必要です。

2.2. 電気的な故障
 これまでの対応が当てはまらない場合は、電気的な故障と考えられます。
 この場合は、キーボードの分解・修理が必要です。

自分で直せない場合は、(ノートの場合は)修理に出す、
(デスクトップの場合は)買い替えることを検討してください。
また、Shift キーは普通は左右に一つずつあるので、片方が使えるなら多少の不便は我慢して、使い続けることもありかもしれません。

原因と対応を探ってみました。

1. ソフトウェアの問題

1.1. 設定変更
 あまり考えられませんが、何かの設定により Shift キーを無効にしていませんか?
 先ほど、Delete キーを無効にしてしまったという質問を見ましたので、可能性があるかもしれません。

2. ハードウェアの問題

2.1. 物理的な故障
 Shift キーを押し込めない状態になっていませんか。
(1) キーの下に異物が入っているため(大量のゴミなど)キーが十分下がらない。
(2) 飲み物をこぼしたなどの原因で、キーの軸が周囲に張り...続きを読む

QExcel VBA ユーザーフォーム内のテキストボックスの操作について

ユーザーフォームを起動した状態でセルをクリックするたびに、
クリックしたセルの値をユーザーフォーム内のテキストボックスへ表示するには、
どのようなコードにすればよいのか教えてください。

Aベストアンサー

こんばんは!

ユーザーフォーム内のテキストボックスのオブジェクト名は「TextBox1」とします。

>ユーザーフォームを起動した状態で・・・

というコトですので、シート上にコマンドボタンなりを挿入し
それをクリックすると「ユーザーフォーム」が表示されるという前提です。

そして、「クリック」ではなくセルを「ダブルクリック」すると
ユーザーフォームのテキストボックスにその値が表示されるようにしてみました。

まずユーザーフォームを立ち上げるためのコマンドボタンのコードを↓のようにしてください。

Private Sub CommandButton1_Click()
UserForm1.Show vbModeless
End Sub

次に↓のコードをシートモジュールにしてください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Value <> "" Then
Cancel = True
UserForm1.TextBox1 = .Value
End If
End With
End Sub

※ 質問文ではセル範囲が限定されていませんので
すべてのセルを対象としています。m(_ _)m

こんばんは!

ユーザーフォーム内のテキストボックスのオブジェクト名は「TextBox1」とします。

>ユーザーフォームを起動した状態で・・・

というコトですので、シート上にコマンドボタンなりを挿入し
それをクリックすると「ユーザーフォーム」が表示されるという前提です。

そして、「クリック」ではなくセルを「ダブルクリック」すると
ユーザーフォームのテキストボックスにその値が表示されるようにしてみました。

まずユーザーフォームを立ち上げるためのコマンドボタンのコードを↓のようにしてくださ...続きを読む

Q大文字と小文字が混ざったパスワードの入力の仕方

大文字と小文字が混ざったパスワードの入力の仕方

大文字と小文字が混ざったパスワードを入力する場合。
「SHIFT」+「CAPS LOCK」ボタンを押して切り替えていますが、
●●●表示しか出ず、入力した文字が大文字か小文字の確認出来ず、
困っています。何か良い裏技が有れば教えて下さい。

使用OS:VISTA HP SP-2
使用ブラウザ:IE-8

Aベストアンサー

>「SHIFT」+「CAPS LOCK」ボタンを押して切り替えていますが、
普通の使い方は小文字モードで入力し、大文字のときだけShuftを押しながら英文字を押します。
大文字が大幅に多い場合はシフトロック(Shuft+Caps)して操作を逆転します。
IEでのパスワード入力では他のエリアへタイプしてそれをカット&ペーストする方法も有効です。
右クリックでペースト出来ない場合でもCtrl+vでペーストできると思います。

Qコンボボックスとテキストボックスをセルへ

コンボボックスのデータを行へ表示されるよう下記の通りやりました。
続けてテキストボックスを指定した同じ行のセルへ入力されるように
したいのですが、いろいろ調べたのですが、解決できず
ここで助言いただけたらと思います。
また
textbox1はA列
textbox2はB列
textbox3はM列
へとコンボボックスのデータを挟む形での入力となります。
ちなみにテキストボックスのプロジェクト名は変更してあります。

Private Sub CommandButton1_Click()
Dim lrow As Long, i As Long
With Worksheets("製品化")
lrow = .Range("F" & Rows.Count).End(xlUp).Row
For i = 0 To 6
   .Cells(lrow + 1, i + 6).Value = itemname.List(listno, i)
Next i
End With
End Sub

コンボボックスのデータを行へ表示されるよう下記の通りやりました。
続けてテキストボックスを指定した同じ行のセルへ入力されるように
したいのですが、いろいろ調べたのですが、解決できず
ここで助言いただけたらと思います。
また
textbox1はA列
textbox2はB列
textbox3はM列
へとコンボボックスのデータを挟む形での入力となります。
ちなみにテキストボックスのプロジェクト名は変更してあります。

Private Sub CommandButton1_Click()
Dim lrow As Long, i As Long
With Worksheets("製...続きを読む

Aベストアンサー

>Next i
.Cells(lrow + 1 , "A").Value = textbox1.text
.Cells(lrow + 1 , "B").Value = textbox2.text
.Cells(lrow + 1 , "M").Value = textbox3.text
>End With

と言う感じの事?

Q大文字と小文字入力の方法を教えてください

大文字と小文字入力の方法を教えてください

ローマ字入力で、ネット上のあるサイトへパスワードを大文字小文字を混ぜて入力したいのですが、入力し始めると●がいくつかつきます。言語バーは半角英数状態であとは反応がないです。
どうしたら大文字と小文字入力の切り替えと入力ができますか?

Aベストアンサー

Caps Lock キーの状態を確認しましょう。
ランプが点灯していると大文字を入力する状態になっています。ランプが消灯していれば小文字入力状態です。

これは大文字と小文字の入力を切り替えるキーです。キーボードの一番左の縦一列の中にあります。
ほとんどのキーボードには Caps Lock が on になると該当するランプが点灯するようになっています。
スタンダードなキーボードでは、キーボード上の右上に「Number Lock」「Caps Lock」「Scroll Lock」の順でランプが並んでいますから
これらのランプの状態を確認しましょう。

さて多くのキーボードでは、Caps Lock キーを押しただけでは大文字と小文字の切替はできません。
Shift キーを押しながら Caps Lock キーを押すとこの切替ができることが多いようです。

また、Shift キーを押しながら 英数字を入力すると、大文字と小文字を一時的に切り替える事ができます。


メモ帳などで動作の確認と入力の練習をしてみてください。

QVB2008 コンボボックスとテキストボックスの連動について

VBを使って顧客の検索などに使用するプログラムを作りたいと思っています。

項目1-1,項目1-2,項目1-3,項目1-4,項目1-5
項目2-1,項目2-2,項目2-3,項目2-4,項目2-5
項目3-1,項目3-2,項目3-3,項目3-4,項目3-5
上記のデータ名 TextFile1.txt

Dim fn As String = "C:\TextFile1.txt"
Dim dline() As String
Dim d() As String
Dim ad As ArrayList = New ArrayList()
Dim read As System.IO.StreamReader = My.Computer.FileSystem.OpenTextFileReader(fn, System.Text.Encoding.Default)
dline = Split(read.ReadToEnd, vbCrLf)

For i As Integer = LBound(dline) To UBound(dline)
d = Split(dline(i), ",")
ad.Add(d(0))
Next
ComboBox1.DataSource = ad
ComboBox1.text="顧客名"

以上が現在の状況です。
comboに項目1-1,2-1,3-1とセットされていますが、マウスのスクロールボタンを動かすと、項目1-1が最初に表示されず2-1が表示されます。通常にクリックして選択すると問題は無いのですが、出来ればマウスのスクロールボタンも使いたいと思いますが解決方法はあるのでしょうか。
もう1件お伺いしたいのですが、上記テキストファイルからデータを読込、項目1-2,1-3,1-4,1-5、項目2-2・・・、項目3-2・・・と、項目毎にコンボボックスと連動させて各テキストボックス1、2、3、4に表示させたいのですが、上手くいきません。長文で解りにくい点があるかと思いますが、よろしくお願い致します。

VBを使って顧客の検索などに使用するプログラムを作りたいと思っています。

項目1-1,項目1-2,項目1-3,項目1-4,項目1-5
項目2-1,項目2-2,項目2-3,項目2-4,項目2-5
項目3-1,項目3-2,項目3-3,項目3-4,項目3-5
上記のデータ名 TextFile1.txt

Dim fn As String = "C:\TextFile1.txt"
Dim dline() As String
Dim d() As String
Dim ad As ArrayList = New ArrayList()
Dim read As System.IO.StreamReader = My.Computer.FileSystem.OpenTextFileReader(fn, System.Text.Encoding.Default)
dline = Spl...続きを読む

Aベストアンサー

コンボボックスの中身が以下のようになっているのであれば、あとはNo2さんの提示してくれたやり方でできるのではないでしょうか?

ComboBox1
[0]:ササキ
[1]:スズキ
[2]:サトウ
[3]:ハヤシ

ComboBox2
[0]:北海道
[1]:福岡県
[2]:愛知県
[3]:北海道

ComboBox3
[0]:札幌市
[1]:福岡市
[2]:名古屋市
[3]:旭川市

このようになっていないのであれば・・・

0.変数を定義(必要になったらそのつど定義でも問題ないです)
・1行読み込みsplitした結果を入れる配列→srcAry
・↑の結果の[0]の内容を入れるList→nameList
・↑の結果の[1]の内容を入れるList→adr1List
・↑の結果の[2]の内容を入れるList→adr2List
1.テキストファイルから1行読み込む
2.読み込んだ内容をカンマでsplitし、srcAryに格納
3.各リストに追加していく。nameList.add(srcAry(0))、adr1List.add(srcAry(1))、adr2List.add(srcAry(2))
4.1~3をテキストファイルの行数くりかえす。
5.ComboBox1にnameList、ComboBox2にadr1List、ComboBox2にadr2Listを設定する。

各コンボボックスが変更された場合の動作についてはNo2さんのソースを参考にしてください。

コンボボックスの中身が以下のようになっているのであれば、あとはNo2さんの提示してくれたやり方でできるのではないでしょうか?

ComboBox1
[0]:ササキ
[1]:スズキ
[2]:サトウ
[3]:ハヤシ

ComboBox2
[0]:北海道
[1]:福岡県
[2]:愛知県
[3]:北海道

ComboBox3
[0]:札幌市
[1]:福岡市
[2]:名古屋市
[3]:旭川市

このようになっていないのであれば・・・

0.変数を定義(必要になったらそのつど定義でも問題ないです)
・1行読み込みsplitした結果を入れる配列→srcAry
・↑の結果の[0]の内容...続きを読む

Q拡張子はなぜ、大文字と小文字のものがある?

WindowsXPを使っています。
拡張子を表示させる設定にすると、
大文字のものと小文字のものがあることに気がつきました。
ほとんど小文字なんですが、たとえば.WMVは大文字です。
なぜ、大文字と小文字のものがあるのでしょうか?

Aベストアンサー

マイクロソフトのMS-DOSやWindowsでは、大文字小文字の区別がありません。
大文字で表示しても、小文字で表示しても同じファイルと認識されます。

UNIXでは大文字小文字が区別され、別のファイルと認識されます。
これで、ファイル名のつけ方が大幅に増えることになります。
試しに、何倍になるか計算してみてください。

注意して欲しいのは、インターネットのサーバーではUNIXが使われていること。
Windowsの世界では、大文字小文字の区別がなく、インターネットの世界では大文字小文字の区別があることです。

windowsでは正常にリンクされていたものがサーバーにアップロードするとリンクエラーになってしまうことがよくあります。

QVBのチェックボックス、オプションボタン、テキストボックス

以前にたような質問したのですがうまくいかなかったので改めて質問します。
チェックボックスを使ってテキストに文字を表示させる。
オプションボタンを使ってテキストに文字を表示させる。この2つは簡単にできるのですが、これを組み合わせて、チェックをしたときはオプションボタンで表示されたものと違う表示をしたいのですがうまくいきません。
構成はチェックボックスが2つ、オプションボタン4つ。テキストボックスが4つです。テキストボックスはチェックボックスとオプションボタンそれぞれ同じものをつかっています。わかる方教えてください。説明がわかりにくいかもしれませんが・・

Aベストアンサー

すみません、質問の内容が良くわかりません。
要するに
・チェックだけの場合は”チェック”
・オプションだけの場合は”オプション”
・チェックとオプションの場合は”両方”
と言った感じでしょうか。

'チェックボックスがクリックされた
Private Sub Check1_Click()
Call textcheck
End Sub

'オプションボタン1がクリックされた
Private Sub Option1_Click()
Call textcheck
End Sub

'オプションボタン2がクリックされた
Private Sub Option2_Click()
Call textcheck
End Sub

'表示文字判定
Sub textcheck()
If Check1.Value = 0 Then 'CheckBox Off ?
If Option1.Value = True Then 'Option1 ?
Text1.Text = "オプション1"
Else 'Option2
Text1.Text = "オプション2"
End If
Else 'CheckBox On
Text1.Text = "両方"
End If
End Sub

で出来ると思います。

すみません、質問の内容が良くわかりません。
要するに
・チェックだけの場合は”チェック”
・オプションだけの場合は”オプション”
・チェックとオプションの場合は”両方”
と言った感じでしょうか。

'チェックボックスがクリックされた
Private Sub Check1_Click()
Call textcheck
End Sub

'オプションボタン1がクリックされた
Private Sub Option1_Click()
Call textcheck
End Sub

'オプションボタン2がクリックされた
Private Sub Option2_Click()
Call textcheck
End Sub

...続きを読む


人気Q&Aランキング

おすすめ情報