RS Problems!Can u Fix?

[jesus4u]

ok I have a form where I display data from db.
I find the record based on the date assigned to it and display on form.
I want user to be able to update the date of the record from the form. But if I base my sql on the dates how can I update the date field?

Problem: Can not update a record that doesn't exist!

Case 1 ' updating current record with new data
            Dim strMsg As String, strNewMsg As String
                Set rs = New Recordset
                sql = "SELECT * FROM NEM WHERE MMDD = '" & txtEntry(0).Text & "'"
                rs.Open sql, cnCon, adOpenDynamic, adLockOptimistic
                If Not rs.EOF Then ' if record found
                    
                        rs.Update
                        rs.Fields!MMDD = txtEntry(0).Text
                        rs.Fields!MonthDay = txtEntry(1).Text
                        rs.Fields!Title = txtEntry(2).Text
                        rs.Update
                        sql = ""
                        rs.Close
                        Set rs = Nothing
                        Text1(0).SetFocus
                    
                Else

                        rs.AddNew
                        rs.Fields!MMDD = txtEntry(0).Text
                        rs.Fields!MonthDay = txtEntry(1).Text
                        rs.Fields!Title = txtEntry(2).Text
                        rs.Update
                        sql = ""
                        rs.Close
                        Set rs = Nothing
                        Text1(0).SetFocus
                End If

[Cander]

it hink your if statement should be

If not rs.eof or rs.bof then

[capreal26]

if rs.EOF then 'if no record change the sql
rs.close
rs.open" select * from NEM"
rs.AddNew
rs.Fields!MMDD = txtEntry(0).Text
rs.Fields!MonthDay = txtEntry(1).Text
rs.Fields!Title = txtEntry(2).Text
rs.Update
sql = ""
rs.Close
Set rs = Nothing
Text1(0).SetFocus
endif

hope i make the point ..

capreal26

[honeybee]

Instead of using .Update first, use .Edit first and then .Update

RS.Edit
RS.MMDD='Some Value
RS.Update

.

[jesus4u]

thanks guys I got it