A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
数値型で表示だけでいいなら書式を「0000」と0を4つにする。
テキスト型でなら入力定義を「9999;0;0」とする。
この回答への補足
説明が不十分ですみません。
元テーブルのデータ型はテキスト型です。
入力定義とは、テキストボックスのプロパティの「定型入力」のことでしょうか?
定型入力へ「9999;0;0」を入力した結果、テキストボックスへ「1」と入力した時に「1000」と表示されEnterで次のテキストボックスへ移ると「1」と表示されてしまします。
やり方が違う様でしたらご指摘頂けると嬉しいです。
No.2
- 回答日時:
すみません!
Public Function LenH(ByVal Text As String) As Integer
LenH = LenB(StrConv(Text, vbFromUnicode))
End Function
SetR 関数で LenH 関数を利用していました。
この回答への補足
とてもいろいろ書いて頂いてこうゆう質問は大変恐縮なのですが
このコードはどこに書いてあげれば良いのでしょうか?
また設定の仕方など細かく教えていただけると助かります。
VBAはExcelで軽くやったことがあるんですがAccessと言うアプリケーションに関してはかなり初心者なものでして・・・。
どうぞよろしくお願いしますm(_ _)m
すみません。補足の補足です。
このテキストボックスでは0~9までの数字しか扱いません。
元テーブルでのデータ型はテキスト型です。
No.1
- 回答日時:
? SetR("1", "0000")
0001
Private Sub テキスト57_AfterUpdate()
Me.テキスト57 = SetR(Me.テキスト57, "0000")
End Sub
と、SetR 関数を利用すると目的を達成できます。
? Format(1, "0000")
0001
または、
書式="0000"
でもOKなので、SetR 関数はお呼びでないかも??
でも、数値でないコードも予定されていれば役に立つかも・・・。
適宜3つからチョイスして下さい。
Public Function SetR(ByVal Text1 As String, ByVal Text2 As String) As String
Dim I As Integer
Dim J As Integer
Dim L As Integer
Dim M As Integer
Dim N As Integer
J = Len(Text1)
L = LenH(Text2)
For I = 1 To J
M = LenH(Mid$(Text1, 1, I))
If M > L Then
SetR = Left$(Text2, L - N) & Left$(Text1, I - 1)
Exit Function
Else
N = M
End If
Next I
SetR = Left$(Text2, L - N) & Text1
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) capeofdragonと申します。 Access2016を使っております。 あるフォームがあり、テ 2 2022/09/09 13:18
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) アクセス 意図せずサブプロシージャを移動してしまうのを止めたい 1 2022/09/02 09:19
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- Visual Basic(VBA) ユーザーフォームで銀行に対応した支店コードの入力ができません Sheet1のA列に銀行名、B列に銀行 5 2022/07/28 17:50
- Excel(エクセル) 【vba】日付の形式が勝手に変わってしまう。 1 2022/09/29 10:54
- Visual Basic(VBA) ExcelVBAでユーザーフォームでテキストボックスなどからセルに連続して入力するコーディングの際の 2 2022/06/29 22:51
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Visual Basic(VBA) テキストボックスの値を該当セルに登録する方法 2 2022/11/23 18:47
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
word
-
PowerPoint SmartArtの箇条書...
-
capcutってアプリで質問です。 ...
-
イラレでダブルクリックで文字...
-
AFTER EFFECTS アンカーポイン...
-
Illustratorテキストエリアへ塗...
-
Access_「1」と入力→「0001」に...
-
親指ひゅんQ!
-
画像からテキストデータを正確...
-
(+_+) パソコンのリッチテキ...
-
Publisherをエクセルファイルに
-
アクロバットプロと、拡張子に...
-
Dreamweaver 画像の上にマウス...
-
サクラエディタで二つのテキス...
-
PDF-XChange Viewer のタイプラ...
-
PDFファイルで画像化された文書...
-
アクロバット7.0文書をocrで保...
-
Flashの文字列を鮮明にするには?
-
ファイヤーワークスからpsdに書...
-
iMovieでテキストと画像を同時...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
word
-
PowerPoint SmartArtの箇条書...
-
Illustratorテキストエリアへ塗...
-
PDF→CSVへ変換
-
illustratorとExcelは連携出来...
-
イラレでダブルクリックで文字...
-
バイナリファイルの編集
-
capcutってアプリで質問です。 ...
-
Microsoft Access で同じフィー...
-
Publisherをエクセルファイルに
-
Excel VBAで改行を含む文字列を...
-
Accessテーブルの結合で別々の...
-
PDF文書で斜めテキスト
-
exe bat
-
PDF-XChange Viewer のタイプラ...
-
【aviutl】 画像にテキストを張...
-
davinci resolveを使っているの...
-
リッチテキストと標準テキスト...
-
サクラエディタで二つのテキス...
-
Adobe photoshop CS2 テキスト...
おすすめ情報