VBAセットのテキストボックスを照会結果と同じにする

Question

テーブルを照会してtexboxをrsに設定するには、この構文を実行していますが、実際にはテキストボックスは値に設定されていません。それはヌルのままです。そのテキストボックスの値が値またはrs

Dim rs As DAO.Recordset 
Dim strSQL As String 
Dim db As Database 

Set db = CurrentDb 

strSQL = "Select MAX(pkid)+1 from tblInfo" 

Set rs = db.OpenRecordset(strSQL) 

Do While Not rs.EOF 

    txtID = rs 

Loop 

Answer 1

まずに設定されている。この中に変更する必要がありますあなたは何をテキストボックスオブジェクトにレコードセットを設定しようとしています。テキストボックスのテキスト/値を設定する必要があり、レコードセットのフィールドにアクセスする必要があります。

Dim rs As DAO.Recordset 
Dim strSQL As String 
Dim db As Database 

Set db = CurrentDb 

strSQL = "Select MAX(pkid)+1 from tblInfo" 

Set rs = db.OpenRecordset(strSQL) 

Do While Not rs.EOF 
    txtID.SetFocus 'set the focus so we can add the text 
    txtID.Text = rs.Fields(0).Value 
    'txtID.Value = rs.Fields(0).Value 'uncomment out if you don't need focus on the textbox and comment out the previous 2 lines 
Loop 

Answer 2

あなたは、単一の行ですべてこれを行うことができます：

Me!txtID.Value = DMax("pkid", "tblInfo") + 1