Error is apparently on this line
Code:
Set rstqry = dbs.OpenRecordset(stDocName, dbOpenDynaset)
Set rstqry = dbs.OpenRecordset(stDocName, dbOpenDynaset)
Private Sub cmdFindNow_Click() Dim SelectSQL As String Dim stDocName As String Dim Response Dim dbs As Database Dim rstqry As Recordset If IsNull(Me.txtFindString) Then Response = MsgBox("No search
.Selection.GoTo wdGoToBookmark, Name:="InvTot1" If Not IsNull(grst![InvTot1]) Then .Selection.TypeText grst![InvTot1] End If .Selection.GoTo
Leave a comment: