Дамы и господа!
Подскажите пожалуйста в таком вопросе как то как сделать чтобы при обновлении записи в поле со списком NewCode1 можно было увидеть
потом в поле со списком NewCode2 другие данные. Процедурка работает ,
но данных в поле со списком NewCode2 почему-то нет!
Текст:
Private Sub NewCodeCeh_AfterUpdate()
Dim conn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rst As ADODB.Recordset, strSQL As String
On Error GoTo err
Set conn = CurrentProject.Connection
strSQL = "SELECT Name FROM NSI WHERE Code = " & str(Me!NewCode1.Value)
Set cmd = New ADODB.Command
With cmd
.CommandText = strSQL
.ActiveConnection = conn
.CommandType = adCmdText
End With
Set rst = cmd.Execute
Me!NewCode2.ListRows = 20
Me!NewCode2.RowSource = rst!Name
' For Debug DebugMessage (Me!NewCode2.RowSource)
' DebugMessage (Me!NewCode2.ListRows)
Me!NewCode2.Requery
rst.Close
conn.Close
Set rst = Nothing
Set conn = Nothing
Set cmd = Nothing
Exit Sub
Proc_Exit:
Exit Sub
err:
MsgBox err.Description
Resume Proc_Exit
End Sub

Прошу у Вас извинения за шум!
Проблема решена.
Me!NewCode2.RowSource = rst.Source

Сам себе удивляюсь! ))))))