Hi I have a sub and a function..
I call function Validate Data my code calling function do not run even if validateData is true....
How to fix this ..I think i am calling funtion in wrong way
Code:
Private Sub cmdTransferData_Click()
On Error GoTo Err_cmdTransferData_Click
Dim dblLongDecimal As Double ' Longitudinal Decimal
Dim dblLatDecimal As Double ' La
****
'call for funtion Validate data for data validation
If ValidateData = False Then
Exit Sub
End If
*******
End Sub
'Purpose: Data validation while importing data from lHeritage.xls
Private Function ValidateData() As Boolean
Dim strMessage As String
Dim Validate As Boolean
Dim dbISD As DAO.Database
Dim rsqryImportDifferenceCount As DAO.Recordset
Dim qdfqryImportDifferenceCount As QueryDef
Dim DataValidationMessage As VbMsgBoxResult
Validate = True ' initialise with True value
strMessage = "Import Failed: The following coloumns in CulturalHeritage.xls has failed data validation."
Set dbISD = CurrentDb()
Set qdfqryImportDifferenceCount = dbISD.CreateQueryDef("")
qdfqryImportDifferenceCount.SQL = "SELECT * from qryImportDifferenceCount"
Set rsqryImportDifferenceCount = qdfqryImportDifferenceCount.OpenRecordset()
'Data Validation check for Map Name
If rsqryImportDifferenceCount!MapName <> 0 Then
strMessage = strMessage & vbCrLf & "MapName"
Validate = False
End If
'Data Validation check for LGA
If rsqryImportDifferenceCount!LGA <> 0 Then
strMessage = strMessage & vbCrLf & "LGA"
Validate = False
End If
If Validate = False Then
ValidateData = False
DataValidationMessage = MsgBox(strMessage & vbCrLf & "Please make sure you have added data into database before" & _
" adding a new entry in Dropdown list for CulturalHeritage.xls coloumns", vbInformation + vbOKOnly, "Data Missmatch")
End If
'close record set
rsqryImportDifferenceCount.Close
End Function