Transfer data to Access database but only if a value doesn't exist in a table and field

[Wouter12345]

I hope someone can help me out. I just recently started to work with VBA. I'am trying to build a UserForm where a user can fill in the form and after that it generates a document/report.
That seems to work out well.

I also want to transfer the data that is entered into a access database. But.... If the information in a certain TextBox matches a number in table1, field1 (or colomn, i named it var1) i want to
edit that specific record instead of creating a new record (in the Access Database). If the information in the textbox doesn't match with the number in table 1, field1, then it has to add a new record.

I know that I can edit a record with .edit and that i can add an new record with : AddNew.

I used Microsoft Word with VBA to build the userform. I can't find any good forum specific for MS Word so I hope someone here can help me out. Thanks for the effort.

To be more specific, what I want it to do:

If the value in the textbox already is in the table
Edit record in the table in access
Else value in textbox is not there
Insert a new record
End If

Script:

Please Login or Register  to view this content.

[Wouter12345]

Solved. This topic can be closed.

[ABDELFATTA]

hi Wouter , I hope to share the solution with the members what see your post may be somebody has the same problem finds the solution in your post , and mark solved this post to take advantage
thanks

[Keebellah]

Yeas, I'm curious too, we all learn from what others solved

[Wouter12345]

Ok. I was trying and I didn't seem to work. So I found out about ".FindFirst".
FindFirst didn't seem to work either until I changed the specific field in the database (the column that I use as reference to see of the value already is in the database) to nummeric.

Then I changed the code like this: (The value in textbox20 is used as reference to the database. If the number already exists the file updates, otherwise it makes a new record.

Couldn't find it anywhere on the internet. With my knowledge of VBA (+/- 1 week) I don't think it's the best way to solve the problem. But... for now, it works out just fine.

Hope anyone can use it. If anyone got tips to improve it, please let me know !

-----------------------------
Code
-----------------------------

Please Login or Register  to view this content.

[AliGW]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. As you are new, I will do it for you this time.)

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

[jindon]

deleted
Missed

it works out just fine.