Пытаюсь обновить записи в связанных таблицах, при отладке ошибок никаких не выдается, но записи не обовялются, в чем может быть причина?

База Access, вот запрос:
UPDATE TRp INNER JOIN Rpt ON (TRp.P2=Rpt.P2 And TPr.P3=Rpt.P3 And TPr.P20='ДОК') Set P22=RecSet1.Fields(0) where TPr.P5 is NULL

В recSet1 записано то, чем нужно обновить.

вот вам смешно, а я только учусь... Чего не так-то?

Inner join использую для связи таблиц.

AntonariyНужно так:


Не проходит именно это, если пишу просто какое-нибудь число, то все обновляется :(

AntonariyА если RecSet1.Fields(0).Value?
Неа, не помогает...

AntonariyА если RecSet1.Fields(0).Value?
Неа, не помогает...

Sub Implement()
Dim FullPathMDB As String
Dim DatConct As Object
Dim RecSet As Object
Dim RecSet1 As Object
Dim k As String
On Error GoTo 20
Set DatConct = CreateObject("ADODB.Connection")
Set RecSet = CreateObject("ADODB.Recordset")
Set RecSet1 = CreateObject("ADODB.Recordset")
FullPathMDB = ActiveWorkbook.Worksheets("ComplSheet").Range("RGN_Data").Value

DatConct.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + FullPathMDB
RecSet.Open "TPR", DatConct
RecSet.MoveNext
Do While Not RecSet.BoF

RecSet1.Open " SELECT TPR.P5 FROM TPr Left Join Rpt on (TPR.P2=RPt.P2 AND TPR.P3=RPt.P3)", DatConct
RecSet1.MoveNext
If Not RecSet1.BoF Then
DatConct.Execute " UPDATE TPr Set P22='&RecSet1.Fields(0)&' where TPr.P8 is NULL "
RecSet.MoveNext
RecSet1.Close
End If
Loop
RecSet.Close
DatConct.Close
Set RecSet = Nothing
Set RecSet1 = Nothing
Set DatConct = Nothing
GoTo 30
20 MsgBox "Ошибка" & Err.Description, vbSystemModal + vbExclamation
30
End Sub

Вот такой текст.

Спасибо всем огромное, заработало!