前提・実現したいこと
エクセルVBAでバーコードを使った在庫管理システムをつくろうとしています。
url先のサンプルコードをもとに独自のシステムを構築しようとしているのですが、
IDがすでに登録されているかどうかを判断分岐させるタイミングでエラーがおきます。
また、entry entryDataがなにをしたいのかよくわかっていません。
vba entry で検索してみましたが、
entry の利用方法に関する記述がホームページ等見つかりませんでした。
ご回答のほどよろしくお願いいたします。
参考先
-続・エクセルを使った簡単なバーコード式在庫管理システムを作る -
https://rabbitfoot.xyz/barcode-manage-system2/
発生している問題・エラーメッセージ
実行時エラー'424': オブジェクトが必要です。
該当のソースコード
vba
1 2'============= 3'標準モジュール 4'============= 5 6Public Sub idProcesser(id As String) 7 8 Dim entryData As String 9 10 If existID(id) Then 11 update id 12 13 Else 14 15'該当箇所 16 17 entryData = UserForm1.makeData(id) 18'該当箇所終わり 19 entry entryData 20 21 22 End If 23 24End Sub 25 26'========== 27'UserForm1 28'========== 29 30Public Function makeData(id As String) As String 31 32 Dim result As String 33 34 '受け取ったIDをセット 35 idbox.Value = id 36 37 Me.Show 38 39 '入力された値を代入 40 result = idbox.Value & "$" & ordercbox.Value & "$" & firstcbox.Value & "$" & secncbox.Value & "$" & thirdcbox.Value & "$" & lastcbox.Value & "$" & inspectioncbox.Value & "$" & deliverybox.Value 41 makeData = result 42 43End Function 44
試したこと
userform1 で返す値を set で代入しました。
userform1 ではidboxがidlabelでしたので、
もともとは result = idlabel.caption & 以下略 でした。
補足情報(FW/ツールのバージョンなど)
ここにより詳細な情報を記載してください。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。