I am trying to be able to pull up the values of a part number via a combo 
box, and update the fields if needed.

For some reason when I click save, nothing gets updated.

Here is my code:

Private Sub Form_Open(Cancel As Integer)

    Dim db As DAO.Database
    Dim rsPartNumber As DAO.Recordset
    Dim strPartNumber As String
    
    strPartNumber = "SELECT Parts.PartNumberID, Parts.PartNumber" & _
    " FROM Parts" & _
    " ORDER BY Parts.PartNumber"
    
    Set rsPartNumber = CurrentDb().OpenRecordset(strPartNumber)
    
        With rsPartNumber
            Me.PartNumber.RowSource = strPartNumber
            .Close
            End With
    
End Sub

Private Sub PartLookup_Click()

    Dim db As DAO.Recordset
    Dim rsParts As DAO.Recordset
    Dim strParts As String
    
    strParts = "SELECT Parts.PartNumberID, Parts.PartNumber, 
Parts.RevLevel, Parts.Description" & _
    " FROM Parts" & _
    " WHERE Parts.PartNumberID =" & Forms!fmPartLookup!PartNumber
    
    Set rsParts = CurrentDb().OpenRecordset(strParts)
    
        With rsParts
            Me.RevLevel = !RevLevel
            Me.Description = !Description
            .Close
            End With
            
End Sub


Private Sub Save_Click()

    Dim db As DAO.Recordset
    Dim rsPartSave As DAO.Recordset
    
    
    Set rsPartSave = CurrentDb().OpenRecordset("Parts")
    
        With rsPartSave
            .Edit
                !RevLevel = Me.RevLevel
                !Description = Me.Description
            .Update
            .Close
        End With

End Sub

Please Help.

Thanks,

Chris

You need to tell the recordset which record to update.  It looks as if
you are updating the first record of the recordset instead of the record
which is being displayed on the form.  Change this:

Private Sub Save_Click()

    Dim db As DAO.Recordset
    Dim rsPartSave As DAO.Recordset
    
    
    Set rsPartSave = CurrentDb().OpenRecordset("Parts")
    
        With rsPartSave
            .Edit
                !RevLevel = Me.RevLevel
                !Description = Me.Description
            .Update
            .Close
        End With

End Sub

To

Private Sub Save_Click()

    Dim rsPartSave As DAO.Recordset
    Dim strParts As String
    
    strParts = "SELECT Parts.PartNumberID, Parts.PartNumber, 
		Parts.RevLevel, Parts.Description" & _
    		" FROM Parts" & _
    		" WHERE Parts.PartNumberID =" &
Forms!fmPartLookup!PartNumber    
    
    Set rsPartSave = CurrentDb().OpenRecordset(strParts )
    
        With rsPartSave
            .Edit
                !RevLevel = Me.RevLevel
                !Description = Me.Description
            .Update
            .Close
        End With

End Sub

John V. Ruff - The Eternal Optimist :-)
Always Looking For Contract Opportunities

www.noclassroom.com
Live software training
Right over the Internet

Home:  xxx.xxx.xxxx
Cell:  xxx.xxx.xxxx
9306 Farwest Dr SW
Lakewood, WA 98498

"Commit to the Lord whatever you do,
    and your plans will succeed."  Proverbs 16:3





-----Original Message-----
From: Christopher Mohr [mailto:cmohr@b...] 
Sent: Thursday, September 26, 2002 4:36 PM
To: Access
Subject: [access] Updating Recordset


I am trying to be able to pull up the values of a part number via a
combo 
box, and update the fields if needed.

For some reason when I click save, nothing gets updated.

Here is my code:

Private Sub Form_Open(Cancel As Integer)

    Dim db As DAO.Database
    Dim rsPartNumber As DAO.Recordset
    Dim strPartNumber As String
    
    strPartNumber = "SELECT Parts.PartNumberID, Parts.PartNumber" & _
    " FROM Parts" & _
    " ORDER BY Parts.PartNumber"
    
    Set rsPartNumber = CurrentDb().OpenRecordset(strPartNumber)
    
        With rsPartNumber
            Me.PartNumber.RowSource = strPartNumber
            .Close
            End With
    
End Sub

Private Sub PartLookup_Click()

    Dim db As DAO.Recordset
    Dim rsParts As DAO.Recordset
    Dim strParts As String
    
    strParts = "SELECT Parts.PartNumberID, Parts.PartNumber, 
Parts.RevLevel, Parts.Description" & _
    " FROM Parts" & _
    " WHERE Parts.PartNumberID =" & Forms!fmPartLookup!PartNumber
    
    Set rsParts = CurrentDb().OpenRecordset(strParts)
    
        With rsParts
            Me.RevLevel = !RevLevel
            Me.Description = !Description
            .Close
            End With
            
End Sub


Private Sub Save_Click()

    Dim db As DAO.Recordset
    Dim rsPartSave As DAO.Recordset
    
    
    Set rsPartSave = CurrentDb().OpenRecordset("Parts")
    
        With rsPartSave
            .Edit
                !RevLevel = Me.RevLevel
                !Description = Me.Description
            .Update
            .Close
        End With

End Sub

Please Help.

Thanks,

Chris