Access Search Seminar

Access Search Seminar
By Richard Rost

10 years ago

Upload Images Link
jannette jones
4 years ago

On Lesson 2o i cant seem to get the add button to add the project No to the list box my code is bellow.

Private Sub cmdAdd_Click()
Dim SQL As String
Dim CID As Long

    On Error GoTo ErrHandler
    If IsNull(Forms!frmPLCProject1!ProjectID) Then
        MsgBox "No current customer record open"
        Exit Sub
    End If
ErrHandler:
         MsgBox Err.Number & " " & Err.Description
Resume Next
    Exit Sub

    'To check if the record set already exist  in the list so we dontr have duplicates -------------

    'CID = Nz(DLookup("ProjectID", "ProjNoSearchT", "ProjectID=" & Forms!frmPLCProject1!ProjectID), 0)
    'If CID <> 0 Then
     '   MsgBox "Customer already exists in search list"
      '  Exit Sub
    'End If
   'MsgBox ProjNoList
    With Forms!frmPLCProject1
        SQL = "INSERT INTO ProjNoSearchT(ID, ProjectID, ProjectNo, Technician,) " & _
            "VALUES (" & !ID & "," & !ProjectID & ", #" & !ProjectNo & "#, """ & _
            !Technician & """)"
    End With

    DoCmd.SetWarnings False
    DoCmd.RunSQL SQL
    DoCmd.SetWarnings True
    ProjNoList.Requery

     End Sub

This thread is now closed. If you wish to comment, start a NEW discussion, below.

Back to Access Search Seminar