Uldis007
New member
- Local time
- Today, 17:24
- Joined
- Nov 17, 2021
- Messages
- 22
Hello!
I need to update the continues subform field “txtServisaVieta” after I update combobox “Combo19” in main form. I am trying to use recordset code
but the code doesn't work.
Main form: RemontaUzdevumiF
Subform: PieteikumaPamatojums_uzdevums
Can someone please help
I need to update the continues subform field “txtServisaVieta” after I update combobox “Combo19” in main form. I am trying to use recordset code
but the code doesn't work.
Main form: RemontaUzdevumiF
Subform: PieteikumaPamatojums_uzdevums
Can someone please help
Code:
Private Sub Combo19_AfterUpdate()
Dim rs As dao.Recordset
Set rs = Me.PieteikumaPamatojums_uzdevums.Form.RecordsetClone
With rs
If .RecordCount > 0 Then .MoveFirst
While Not .EOF
!txtServisaVieta = Me.Combo19.Value
.MoveNext
Wend
End With
Set rs = Nothing
End Sub