Dim dbmaster As DAO.Database
Dim dbchild As DAO.Database
Dim rsmaster As DAO.Recordset
Dim rschild As DAO.Recordset
Dim squery As String
Dim sName As String
Dim count As Long
Set dbmaster = Workspaces(0).OpenDatabase(txtMasterMDBF...
Set dbchild = Workspaces(0).OpenDatabase(txtChildMDBF)
'drop table Missing_Name
squery = "drop table Missing_Name"
dbmaster.Execute (squery)
'create table Missing_Name
squery = "create table Missing_Name(Name varchar(200))"
dbmaster.Execute (squery)
squery = "select * from " & txtChildTableName & "'"
Set rschild = dbchild.OpenRecordset(squery)
If Not rschild.BOF And Not rschild.EOF Then
rschild.MoveLast
rschild.MoveFirst
For count = 1 To rschild.RecordCount
If Not IsNull(rschild!Name) Then
sName = rschild!Name
End If
squery = "SELECT * FROM " & txtmastertablename & _
" WHERE Name= " & sName & ""
Set rsmaster = dbmaster.OpenRecordset(squery)
If rsmaster.RecordCount = 0 Then
squery = "Insert into Missing_Name val
Answers: I cannot describe for sure until I trace through the program myself, but I think
WHERE Name= " & sName & "" should be
WHERE Name= ' " & sName & " ' " (extra space added for clarity singular, u won't put any spaces between the " and ' symbols)