Results 1 to 1 of 1
  1. #1
    Join Date
    Jan 2013

    Unanswered: DAO Recordset assistance

    Hey Everyone, in need of your vba programming expertise!

    Have the following code thus far and know it's a complete mess. Basically what I am trying to accomplish for my cmdLOOKUP_Click button to search for a specific Part Number and Location, which does the following:

    1.) Validate whether the Part Number input exists from tbl PSPLOCB
    2.) If the Part exists, then has the Location input already been assigned?
    3.) If the Location has not been assign, assign it and update tbl PSPLOCB
    4.) If the Location has been assigned to another Part Number, indicate location is not valid

    Any assistance is very much appreciated. Thanks!

    Private Sub cmdLOOKUP_Click()
    'Open Recordset
    Dim db As DAO.Database
    Set db = CurrentDb
    Dim rst As DAO.Recordset
    Set rst = db.OpenRecordset("PSPLOCB")

    Do While Not rstPSPLOCB.EOF

    'Add Records
    With rst
    !MyField1 = "PARTLB"
    !MyField2 = "SLOCLB"
    End With

    'Find Records
    .FindFirst “PARTLB = “ & Me!PARTLB

    'Update Records
    With rst
    .FindFirst “PARTLB = “ & Me!PARTLB
    If Not .NoMatch Then
    !PARTLB = 1
    End If
    End With

    End Sub
    Last edited by VBAnewbie; 03-05-13 at 16:15.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts