can creat a user Function and sure reference to DAO just like:
Public Function isFldExt(strFldName As String, strSqlName As String) As Boolean
On Error GoTo Err_isFldExt
Dim rst As DAO.Recordset
Set rst = CurrentDb().OpenRecordset(strSqlName)
isFldExt = (strFldName =...
Add the next codes into your Subforms & Try
Subform1:
Private Sub Form_Current()
On Error Resume Next
If Me.Parent.ActiveControl.Name = Me.Name Then
Me.Parent.subform2.Form.Recordset.Move Me.CurrentRecord * 2 - 1 - Me.Parent.subform2.Form.CurrentRecord
End If
End Sub...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.