Update not overwrite

[dada]

Can you please give me the code on which i can just update an existing entry in a table?
Suppose I have a table that has field names, field1, field2, field3.. field1 and field2 has already a value and field3 = Null (im talking about the value in the database)
what i want to happen is to have a form to be filled up to update a value in field3 without affecting field1 and field2.. I hope i made it clear.. thanks in advance!

[maximus]

Basically what you want to do is update the records in your database this can be done using Update query

E.g. I want to update Field3 in tbl1 then: This example will set the Value of Field1 to Yes for all the records in the table.

Dim strSQL as string

strSQL="Update tbl1 Set Filed1='Yes';"

When I want the update to be Specific Like update Field1 to Yes where Field2=No
strSQL="Update tbl1 Set Field1='Yes' Where Field2='No';"


No you have to Run the SQL to complete the update. This can be done either by

Docmd.RunSQL StrSQL
or
Currentdb.Execute strSQL,dbFailOnError


So the complete code would look like: (I have used the second Example please choose the strSQL according to your Requirement)

Dim strSQL as String
strSQL="Update tbl1 Set Field1='Yes' Where Field2='No';"
Currentdb.Execute strSQL,dbFailOnError

[dada]

oh.. i'll try the code first.. thanks for the reply btw! you rock!

[dada]

I tried your code and i got error.. "Too few parameters, expected 3" here's my code..

Dim strSQL2 As String
strSQL2 = "Update Transaction SET TimeOut = Me.cTime Where Barcode=TxtCode AND EntryDate=Me.ccDate;"
CurrentDb.Execute strSQL2

[maximus]

Updating specific entries an example that u can relate to:

Dim strSQL as String
strSQL="Update tblEmployee Set Contractor='1' Where EmployeeType='1';"
Currentdb.Execute strSQL, dbFailOnError

[dada]

sir maximus, i have followed it already, and i got errors.. here's the code again.. please help..

Dim strSQL2 As String
strSQL2 = "Update Transaction SET TimeOut = Me.cTime Where Barcode=TxtCode AND EntryDate=Me.ccDate;"
CurrentDb.Execute strSQL2

[maximus]

Try this:
Time and date Fields have to be enclosed with #
Text Fields with '
Notice How I have use the Form Control Values in the String with & Me.cTime

Dim strSQL2 As String
strSQL2 = "Update Transaction SET TimeOut = #" & Me.cTime & "# Where Barcode='" & TxtCode & "' AND EntryDate=#" & Me.ccDate & "#;"
CurrentDb.Execute strSQL2,dbFailOnError

[maximus]

is the problem solved if ues mark this thread solved.

[dada]

thanks! you nailed it again! your so awesome!