No.1ベストアンサー
- 回答日時:
うまくいかない・・・とはどのようにでしょうか?
考え方だけと思いますが、こんな感じのファンクションで解決できるかも。
Private Function GetTimeString(ByVal strValue As String) As String
''数字チェック
If Not IsNumeric(strValue) Then GetTimeString = strValue: Exit Function
''桁数チェック
If Len(strValue) > 4 Then GetTimeString = strValue: Exit Function
''4桁に調整
strValue = Right("0000" & strValue, 4)
''時、分分解
Dim hh As Integer
Dim mm As Integer
hh = Mid(strValue, 1, 2)
mm = Mid(strValue, 3, 2)
''時チェック(24時間)
If CInt(hh) < 0 Or CInt(hh) > 23 Then GetTimeString = strValue: Exit Function
''分チェック
If CInt(mm) < 0 Or CInt(mm) > 59 Then GetTimeString = strValue: Exit Function
GetTimeString = hh & ":" & mm
End Function
動作未確認です。なお、ソースの半角スペースは表示の関係上、全角になっています。
No.2
- 回答日時:
accessの話でしたら、
テキストボックスのプロパティの定型入力を
00:00;0;_
としておくと、入力時に自動でコロンが追加されます。
VBでしたら、MaskedEditBox(だったかな)が同じような
機能を持っていたと思います。
access上に残すということについては、テーブルのデータとして
入れたいということでしたら、連結フォームを使えばそのまま
登録されますが、何かほかの事を考えていらっしゃるのでしたら
補足してください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) アクセス 意図せずサブプロシージャを移動してしまうのを止めたい 1 2022/09/02 09:19
- Excel(エクセル) 【vba】日付の形式が勝手に変わってしまう。 1 2022/09/29 10:54
- PDF PDFのテキストを追加機能 1 2022/06/18 12:45
- Access(アクセス) Accessテキストボックス内に2つのフィールドの値を比較して大きい方の値を表示させる方法 1 2022/09/09 10:50
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
- Word(ワード) ワード 2003。表とテキストボックスや図をグループ化出来ませんか? 2 2022/04/17 15:06
- Access(アクセス) capeofdragonと申します。 Access2016を使っております。 あるフォームがあり、テ 2 2022/09/09 13:18
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- その他(Microsoft Office) パワーポイントやワード、エクセルでのスライドショーやテキストの微調整について 1 2023/01/12 05:50
- Access(アクセス) Dlookupにエラーがでてしまう 1 2022/10/31 14:35
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストボックスの番号を使っ...
-
エクセルVBA テキストボックス...
-
Windowsのアプリ開発ってなんの...
-
入力フォームの値をQRコードで...
-
DataGridViewの桁数制限に関して
-
TextBoxから数字が文字...
-
初歩的な事だと思います。 Sub...
-
EXCEL VBA で指定した範囲に入...
-
入力フォームへ、データを自動...
-
教えて!全角文字「μ」の半角
-
Excel-VBAでInputBox+Pulldown...
-
excel vba でユーザーフォーム...
-
アルファベットGの小文字の入力
-
エディットボックスの入力制限...
-
検索窓とcssハックについて
-
数字以外の入力をエラーにする...
-
VBAでInputBoxの再入力をさせる...
-
オンライン数式文書作成サイトm...
-
フォームの入力項目に全角文字...
-
VBAで質問があります
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA テキストボックス...
-
テキストボックスの番号を使っ...
-
Excel-VBAでInputBox+Pulldown...
-
数字以外の入力をエラーにする...
-
excel vba でユーザーフォーム...
-
初歩的な事だと思います。 Sub...
-
TextBoxから数字が文字...
-
EXCEL VBA で指定した範囲に入...
-
VBAでInputBoxの再入力をさせる...
-
c#でTextBoxの入力制限
-
VBA R1C1形式で変数の入力について
-
入力フォームの値をQRコードで...
-
VBAの質問です、複数のテキスト...
-
DataGridViewの桁数制限に関して
-
教えて!全角文字「μ」の半角
-
「イ分」・・・フンという文字...
-
複数行の入力を受け取る方法
-
エディットボックスの入力制限...
-
accessで該当するレコードがな...
-
ExcelVBAのユーザーフォームで...
おすすめ情報