Your thoughts thanks
Hi All,
I am currently using some of the code from ghudson's browsing2.mdb for importing XLS files into a database that I making. After pressing the import button which triggers the importing of the file it imports the contents of the XLS into a table called import and into another table at the same time. Both the import table and the other table have the same structure. For the sake of argument lets call the other table "table B".
I want to know of a way of how during the import of the XLS it can flag with a message box to say that that the information already exists in table B, and exit out of it. I was thinking this would be done in VBA. I have written some part of it (very basic) and would appreciate someone's opinion if I am on the right track. It basically searches if the same data lies in the 2 tables and pops up a message box. I would welcome any other solutions, but I would prefer it to be VBA.
----Start of Code---------------------------------------------
Dim strCompare1, strCompare2, strAppend1 As String
strCompare1 = "Select table B.field A from table B where (select import.field A from import);"
strCompare1 = "select import.field A from import where (select table B.field A from table B);"
CurrentDb.Execute strCompare1
CurrentDb.Execute strCompare2
If strCompare1 <> strCompare2 Then
strAppend1 = "INSERT INTO table B ( field A, field B, field C) SELECT
Import.field A, Import.field B, Import.field C FROM Import;"
CurrentDb.Execute strAppend1
Else
MsgBox "Piece-Marks already exist in the database, so if it is an update
then use the update function"
End If
--------End of Code--------------------------------------------------
Cheers
Greg
Hi All,
I am currently using some of the code from ghudson's browsing2.mdb for importing XLS files into a database that I making. After pressing the import button which triggers the importing of the file it imports the contents of the XLS into a table called import and into another table at the same time. Both the import table and the other table have the same structure. For the sake of argument lets call the other table "table B".
I want to know of a way of how during the import of the XLS it can flag with a message box to say that that the information already exists in table B, and exit out of it. I was thinking this would be done in VBA. I have written some part of it (very basic) and would appreciate someone's opinion if I am on the right track. It basically searches if the same data lies in the 2 tables and pops up a message box. I would welcome any other solutions, but I would prefer it to be VBA.
----Start of Code---------------------------------------------
Dim strCompare1, strCompare2, strAppend1 As String
strCompare1 = "Select table B.field A from table B where (select import.field A from import);"
strCompare1 = "select import.field A from import where (select table B.field A from table B);"
CurrentDb.Execute strCompare1
CurrentDb.Execute strCompare2
If strCompare1 <> strCompare2 Then
strAppend1 = "INSERT INTO table B ( field A, field B, field C) SELECT
Import.field A, Import.field B, Import.field C FROM Import;"
CurrentDb.Execute strAppend1
Else
MsgBox "Piece-Marks already exist in the database, so if it is an update
then use the update function"
End If
--------End of Code--------------------------------------------------
Cheers
Greg
Last edited: