メニュー画面を作って
[発注入庫]・[出庫]のコマンドボタンを作り
そのコマンドボタンから[フォーム発注入庫]・[フォーム出庫]を表示します
(↑オートNOフィールドのある一つのテーブルを基に作りました)
それぞれには明細テーブルのデータがサブフォームで埋め込んであります
1)レコードを移動する時にレコードバーではなく
[フォーム発注入庫]に作ったテキストボックスに
オートNOフィールドで取った番号を入力して
Enterキーを押すと
[フォーム発注入庫]の中で表示する様にしたいのですが、
上手くいきません・どうしたら良いのでしょうか?
2)[フォーム発注入庫]に表示するのは
明細データの発注個数があるレコードのみ
[フォーム出庫]に表示するのは
明細データに出庫個数があるレコードのみ
でも、それぞれのフォームから
基にした一つのテーブルの
新規レコード番号(オートNOフィールド)が取れる!!様にしたいのです
在庫確認や棚卸は出来るのですが、フォームの操作が今ひとつです。
いつまでも「調整中」で置いておくわけにもいかず
ギブアップです。
考えているうちに訳がわからなくなって来た・というのも原因なので
質問内容も伝わるかどうか、不安です。
素人なので、簡単に説明していただけると助かるのですが
どうかよろしくお願いします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
とりあえず、1)だけですが。
オートNOを入力するテキストボックスを[txtAutoNo]として、
大元のテーブル名を[発注]、オートNOフィールド名を[オートNO]とします。
「Enterを押すと」は、フォーカスを失ったらということにします、とりあえず。
なので、[txtAutoNo][Enterキー入力時動作]プロパティは[規定]にしておいて下さい。
Private Sub txtAutoNo_LostFocus()
Dim tempNo As Long
Dim rs As Recordset
tempNo = CLng(Me.txtAutoNo.text)
If DCount("[オートNO]", "[発注]", "[発注].[オートNO] = " & tempNo) = 0 Then
Msgbox "データがありません。", vbCritical
Exit Sub
Else
Set rs = Me.Recordset.Clone
rs.FindFirst "オートNO = " & tempNo
Me.Bookmark = rs.Bookmark
rs.Close
Set rs = Nothing
End if
End Sub
この回答への補足
Private Sub txtautono_LostFocus()
Dim tempNo As Long
Dim rs As Recordset
tempNo = CLng(Me.txtautono.Text)
If DCount("[部品伝票NO]", "[T-部品伝票NO]", "[T-部品伝票NO].[部品伝票NO]=" & tempNo) = 0 Then
MsgBox "データがありません。", vbCritical
Exit Sub
Else
Set rs = Me.Recordset.Clone
rs.FindFirst "部品伝票NO = " & tempNo
Me.Bookmark = rs.Bookmark
rs.Close
Set rs = Nothing
End If
End Sub
という風に、テーブル名とフィールド名を変更したのですが
コンパイルエラー
メソッドまたはデータメンバが見つかりません
というエラーが出て固まってしまいます
何が足らないのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- その他(データベース) accessでのフォームの連携について 2 2022/06/14 00:45
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- JavaScript ラジオボタンによるフォームの開閉を行いたい 3 2022/03/31 21:30
- その他(Microsoft Office) Excelで総数量を変動させたい 2 2022/11/04 23:49
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
レコードを保存するコード ア...
-
ACCESSでフォームを使って、テ...
-
フィルタ後のフォームの件数の...
-
accessのクエリで、該当するデ...
-
新規レコード行を非表示にしたい
-
アクセスの自動保存解除はでき...
-
アクセス 前レコード内容を、...
-
accessで表示しているレコード...
-
Access サブフォームにフィルタ...
-
アクセスでフォームビューがみ...
-
Accessで上の行を自動でコピー...
-
Access:フォームプロパティ「...
-
ACCESSのクエリで抽出したデー...
-
Accessのデータで一問一答形式...
-
Access97 マウスホイールでレコ...
-
Accessで一件の新規レコードの...
-
access2010 カウントアップマクロ
-
帳票フォーム後に
-
ACCESS起動時に所定フォームを...
-
アクセス:フォームでVBAを使...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
レコードを保存するコード ア...
-
アクセスでフォームビューがみ...
-
ACCESSでフォームを使って、テ...
-
新規レコード行を非表示にしたい
-
フィルタ後のフォームの件数の...
-
Accessでレコードの保存をせず...
-
Accessでフォーム上に 直前の...
-
Accessで上の行を自動でコピー...
-
AccessVBA RecordSourceのリセ...
-
レコード削除時に(サブ)フォー...
-
アクセスの自動保存解除はでき...
-
Accessで新しいレコードに規定...
-
ACCESS起動時に所定フォームを...
-
Access 「このレコードを保存す...
-
Access:フォームプロパティ「...
-
Access2010、値を入力したら自...
-
レコードをダブルクリックする...
-
ACCESSのクエリで抽出したデー...
-
アクセス データの競合を非表...
-
Accessでのデータ消滅に...
おすすめ情報