View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
merjet merjet is offline
external usenet poster
 
Posts: 812
Default Find Record in Access Using Excel

Here is some code you can modify to fit your specific database, table,
etc. You need to check Microsoft DAO x.x Object Library using the menu
Tools | References.

Sub ModifyAccessRecord()
Dim db As Database, rs As Recordset
Set db = OpenDatabase("C:\FolderName\DataBaseName.mdb")
Set rs = db.OpenRecordset("TableName", dbOpenTable)
Do
If rs.Fields("FieldName1") = "something" Then
rs.Edit
rs.Fields("FieldName2") = "something else"
rs.Update ' stores the new record
End If
rs.MoveNext
Loop Until rs.EOF
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub

HTH,
Merjet