Can someone take a look at this code piece and tell me why my report isn't running. I'm using the same report in other places with almost exact properties in each place. My eyes are crossing and I have a headache. PLEASE HELP!
rst274.Open mysql, sql, adOpenKeyset, adLockOptimistic
Set FedExBasicChargeCriteria.DataSource = rst274
With FedExBasicChargeCriteria.Sections("Section1"
.Controls("txtSoldTo"
.DataField = "SoldTo"
.Controls("txtInvNum"
.DataField = "invnum_xinvbox"
.Controls("txtTrackNum"
.DataField = "TrackingNum"
.Controls("txtItemID"
.DataField = "itemid_invdet"
.Controls("txtChargeAmt"
.DataField = "ChargeAmount"
.Controls("txtShipDate"
.DataField = "ShipDate_xinvbox"
End With
With FedExBasicChargeCriteria.Sections("Section2"
.Controls("lblHeader"
.Caption = "FedEx Invoice Exclusion Report for 'RES' Charge Codes"
End With
With FedExBasicChargeCriteria
.LeftMargin = (1440 * 0.25)
.RightMargin = (1440 * 0.25)
.TopMargin = 0
.BottomMargin = 0
.Show
End With
Thanks in advance.
rst274.Open mysql, sql, adOpenKeyset, adLockOptimistic
Set FedExBasicChargeCriteria.DataSource = rst274
With FedExBasicChargeCriteria.Sections("Section1"
.Controls("txtSoldTo"
.Controls("txtInvNum"
.Controls("txtTrackNum"
.Controls("txtItemID"
.Controls("txtChargeAmt"
.Controls("txtShipDate"
End With
With FedExBasicChargeCriteria.Sections("Section2"
.Controls("lblHeader"
End With
With FedExBasicChargeCriteria
.LeftMargin = (1440 * 0.25)
.RightMargin = (1440 * 0.25)
.TopMargin = 0
.BottomMargin = 0
.Show
End With
Thanks in advance.