Transferdatabase

[samotek]

In copying tables i use the command Transferdatabase shown below.It is a good command, but i need the following refinement.
I want to copy the table only when the Yes/No field "accepted" in the table Unis is set to Yes.Can i do it in the command, and if not,
how can i set the condition ?


DoCmd.TransferDatabase TransferType, "Microsoft Access", appath, acTable, "Unis", "Unis"

 

[Remou]

I think you must DlookUp the Unis table.

 

[medgewor]

Option Compare Database
Option Explicit

Function XferDb() As Boolean
' Comments :
' Parameters:
' Returns : String -
' Created : 12/18/05 09:21 e
' Modified :
'
' --------------------------------------------------
'Assumptions:
' There is a boolean field 'accepted' in the current database (if it's in another database
' change the 'Set dbs' statement).
'
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim appath As String
Dim TransferType As Long
On Error GoTo PROC_ERR
XferDb = False
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Unis", dbOpenSnapshot)
If (rst.EOF And rst.BOF) Then GoTo PROC_EXIT 'Make sure there's some records
appath = "C:\Databases\TheOtherDatabase.mdb"
TransferType = acExport
If (rst!accepted) Then
DoCmd.TransferDatabase TransferType, "Microsoft Access", appath, acTable, "Unis", "Unis"
XferDb = True
End If
PROC_EXIT:
rst.Close
Set rst = Nothing
dbs.Close
Set dbs = Nothing
Exit Function
PROC_ERR:
MsgBox "XferDb " & " - Err: " & Err.Description
Resume PROC_EXIT
End Function