realstandman
IS-IT--Management
I am trying to use an if statment on in my module where if a table has a field with a value of 1 then do the statement if else continue. This is the code I have so far. Can someone point me in the right direction as to how to get this working. Everything works but the if. I have other code before and after this and am just trying to get this code skipped if [dbo_GroupsFutureHealthDM.SendHistoryFlag] = "1"
If [dbo_GroupsFutureHealthDM.SendHistoryFlag] = "1" Then
Me.lblStatus.Caption = "Building History med claims data..."
DoEvents
DoCmd.TransferDatabase acExport, "dbase IV", sfolder, acQuery, "qryMedClaimsHistory", sfile, False, False
snewfile = sfolder + "FutureHealth_MedClaimsHistory_" & Format(Now(), "yyyymmdd") & ".dbf"
fso.CopyFile sfolder + sfile, snewfile, True
Kill (sfolder + sfile)
End If
Don't think and the solution will come.
If [dbo_GroupsFutureHealthDM.SendHistoryFlag] = "1" Then
Me.lblStatus.Caption = "Building History med claims data..."
DoEvents
DoCmd.TransferDatabase acExport, "dbase IV", sfolder, acQuery, "qryMedClaimsHistory", sfile, False, False
snewfile = sfolder + "FutureHealth_MedClaimsHistory_" & Format(Now(), "yyyymmdd") & ".dbf"
fso.CopyFile sfolder + sfile, snewfile, True
Kill (sfolder + sfile)
End If
Don't think and the solution will come.