掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Date型の変数に値を代入するには (ID:141379)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
魔界の仮面弁士さんありがとございます 各種値は Dim WRK_Master As New ADODB.Recordsetと宣言してデータはここに格納しています ストアドプロシージャを走らせて Select True Case WRK_Master.EOF Case Else With WRK_Master … datTime = .Fields("HIDUKE") End With End Select として、取得しています。 エラーはこれをデータとして書き込み時にストアドプロシージャ側で 他の人が同データを先に書き込んでないか見る為に使っています ですが、ここで初期値になってしまう為にエラーとして返してしまうので きちんと代入出来ていなければならないのです。 データ取得側では特に何もしていません Select …, HIDUKE From テーブル Where … としています で、問題の変数はPrivate datTime As Date とフォーム全体にかかる様に宣言しています 書き込みが成功してもしなくても、再度同じデータを読みに行きます 成功していれば新しいHIDUKEを、成功していなければ同じHIDUKEを取得する事になります。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.