strSQL = strBaseSQL & Left$(strCriteria, Len(strCriteria) - 1) & " FROM MasterGeneralData" & " RIGHT JOIN " & strTableName & " ON MasterGeneralData.EmpID = " & strTableName & ".EmpID" & " Where (((MasterGeneralData." & strFieldName & ") = " & strFieldValue & &quo

strSQL = strBaseSQL & Left$(strCriteria, Len(strCriteria) - 1) & " FROM [" & strTableName & "]" & " LEFT JOIN [" & strTableName & "] ON [MasterGeneralData].[EmpID] = [" & strTableName & "].[EmpID]"

strSQL = strBaseSQL & Left$(strCriteria, Len(strCriteria) - 1) & " FROM [" & strTableName & "]" & " LEFT JOIN [" & strTableName & "] ON [MasterGeneralData.EmpID]

If cboFormat = "Excel" Then
Dim strTableName

Set qdf = dbs.QueryDef("MyQry")

Dim dbs As Database
Dim qdf As DAO.QueryDef
Dim varItem As Variant
Dim strCriteria As String
Dim strSQL As String

Dim dbs As Database
Dim qdf As DAO.QueryDef
Dim Tbl As DAO.TableDef
Dim varItem As Variant
Dim strCriteria As String
Dim strSQL As String

Set dbs = CurrentDb()
Set qdf = dbs.CreateQueryDef("MyQry")
Set Tbl = dbs.CreateTableDef(Me.cboSelectTblQry.Value)
For Each varItem In Me!lstSelectTo.ItemsSelected
strCriteria = strCriteria

ExistDAPost = DCount("PostAssigned", "tabDealingAssistant", "PostAssigned = '" & Me.AssignPost.Value & " '")

ExistDAPost = DLookup("PostAssigned", "tabDealingAssistant", "PostAssigned = '" &

Dim ExistDAPost As String

ExistDAPost = DLookup("PostAssigned", "tabDealingAssistant", "PostAssigned