forms: unknown control source

'==================================================================
'- USERFORM TO UPDATE EXCEL WORKSHEET DATABASE
'- basic info. for table navigation only - will need improvement
'- by Brian Baulsom
'- ** NEXT MESSAGE** added button to FIND a record **
'-----------------------------------------------------------------
'- This example has 3 textboxes named TextBox1, ...etc
'- + 3 buttons - [Next],[Previous],[New]
'- Uses variable 'CurrentRow' to refer to worksheet table
'==================================================================
Dim DataSheet As Worksheet
Dim CurrentRow As Long
Dim LastRow As Long

'==========================================================
'- BUTTON SUBROUTINE : ADD NEW RECORD BOTTOM OF TABLE
'==========================================================
Private Sub NewRecordButton_Click()
    UpdateTable
    LastRow = LastRow + 1
    CurrentRow = LastRow
    UpdateForm
End Sub

'==========================================================
'- BUTTON SUBROUTINE : GO TO NEXT RECORD
'==========================================================
Private Sub NextRecordButton_Click()
    UpdateTable
    If CurrentRow < LastRow Then
        CurrentRow = CurrentRow + 1
        UpdateForm
    End If
End Sub

'==========================================================
'- BUTTON SUBROUTINE : GO TO PREVIOUS RECORD
'==========================================================
Private Sub PreviousRecordButton_Click()
    UpdateTable
    If CurrentRow > 2 Then
        CurrentRow = CurrentRow - 1
        UpdateForm
    End If
End Sub

'==========================================================
'- INITIALISE FORM WITH FIRST RECORD
'==========================================================
Private Sub UserForm_Initialize()
    Set DataSheet = Worksheets("Database")
    CurrentRow = 2  ' first row with data
    LastRow = DataSheet.Range("A65536").End(xlUp).Row
    UpdateForm
End Sub

'==========================================================
'- SUBROUTINE : WORKSHEET TABLE DATA TO FORM
'==========================================================
Private Sub UpdateForm()
    TextBox1.Value = DataSheet.Cells(CurrentRow, 1).Value
    TextBox2.Value = DataSheet.Cells(CurrentRow, 2).Value
    TextBox3.Value = DataSheet.Cells(CurrentRow, 3).Value
End Sub

'==========================================================
'- SUBROUTINE : FORM DATA TO WORKSHEET TABLE
'- changes all cells even though data may be the same
'==========================================================
Private Sub UpdateTable()
    DataSheet.Cells(CurrentRow, 1).Value = TextBox1.Value
    DataSheet.Cells(CurrentRow, 2).Value = TextBox2.Value
    DataSheet.Cells(CurrentRow, 3).Value = TextBox3.Value
End Sub

'==========================================================
'- BUTTON SUBROUTINE : FIND RECORD & PUT TO FORM
'- uses [FIND] button named "FindButton"
'- looks in column A for match.
'==========================================================
Private Sub FindButton_Click()
    Dim FoundCell As Object
    Dim MyValue As String
    '------------------------------------------------------
    '- get value
    MyValue = InputBox("Value to find in column A", " FIND")
    If MyValue = "" Then Exit Sub
    '-------------------------------------------------------
    '- find value
    With DataSheet.Range("A:A")
        Set FoundCell = .Find(MyValue, LookIn:=xlValues, lookat:=xlPart)
    End With
    '-------------------------------------------------------
    '- check found
    If FoundCell Is Nothing Then
        MsgBox (MyValue & " not found")
    Else
        CurrentRow = FoundCell.Row
        UpdateForm
    End If
End Sub
'============ EOP =========================================

 '- PARTIAL CODE
Set DataSheet=Workbooks("Book1.xls").Worksheets("Sheet1")
'- or ...........
Set DataSheet=Workbooks("Book2.xls").Worksheets("Sheet2")

Private Sub cmdFind_Click()

    Dim FoundCell As Object
    Dim MyValue As String
    Dim ws As Worksheet
    Dim datasheet As Worksheet

Set ws = ThisWorkbook.ActiveSheet
    
    '------------------------------------------------------
    '- get value
    MyValue = InputBox("Find Associate", " FIND")
    If MyValue = "" Then Exit Sub
    '-------------------------------------------------------
    '- find value
    Set datasheet = ThisWorkbook.ActiveSheet
    With datasheet.Range("D:D")
        Set FoundCell = .Find(MyValue, LookIn:=xlValues, lookat:=xlPart)
    End With
    '-------------------------------------------------------
    '- check found
    If FoundCell Is Nothing Then
        MsgBox (MyValue & " not found")
        Else
            CurrentRow = FoundCell.Row
            UpdateForm

    End If
    
'    If FoundCell = MyValue Then
'            CurrentRow = FoundCell.Row
'            FoundCell.SetFocus
'            UpdateForm
'        Else
'        MsgBox (MyValue & " not found")
'    End If
    
End Sub

Private Sub cmdEdit_Click()

    Dim iRow As Long
    Dim ws As Worksheet
    Dim datasheet As Worksheet

Set ws = ThisWorkbook.ActiveSheet

' check for a book number
If Trim(Me.txtBook.Value) = "" Then
    Me.txtBook.SetFocus
    MsgBox "Please enter a Book Number"
    Exit Sub
End If

If Trim(Me.txtAssociate.Value) = "" Then
    Me.txtAssociate.SetFocus
    MsgBox "Please enter an Associate"
    Exit Sub
End If


'copy the data to the worksheet
ws.Cells(iRow, 2).Value = Me.txtBook.Value
ws.Cells(iRow, 4).Value = Me.txtAssociate.Value
'ws.Cells(iRow, 5).Value = Me.txtCheckOut.Value
ws.Cells(iRow, 6).Value = Me.txtSentCondition.Value
ws.Cells(iRow, 8).Value = Me.txtReturnDate.Value
ws.Cells(iRow, 9).Value = Me.txtReturnCond.Value
ws.Cells(iRow, 10).Value = Me.txtNotes.Value


'clear the data from the form
Me.txtBook.Value = ""
Me.txtAssociate.Value = ""
'Me.txtCheckOut.Value = ""
Me.txtSentCondition.Value = ""


End Sub