FORM DOES NOT POPULATE WITH A2007

  • Thread starter Thread starter Glint
  • Start date Start date
G

Glint

Good Day Guys,
Please help. I have this query that I developed on A2003 and it runs very
well:
SELECT Accounts.AccountID, Accounts.Account, vInExGroup.Zone,
vInExGroup.TemIn, vInExGroup.LIn, vInExGroup.TotalIn, vInExGroup.TemEx,
vInExGroup.LEx, vInExGroup.TotalEx, [TotalIn]-[TotalEx] AS Balance
FROM Accounts INNER JOIN vInExGroup ON Accounts.AccountID = vInExGroup.ACCode;

But my form InEx that is based on it does not display any record on A2007
while it works normally on A2003. What am I missing?
The Accounts is a table while vInExGroup is a query:
SELECT vCashTransactions0.Zone, vCashTransactions0.TDate,
vCashTransactions0.ACCode, vCashTransactions0.CashOrCheque,
vCashTransactions0.Amount, vCashTransactions0.ItemAmount
FROM vCashTransactions0
WHERE (((vCashTransactions0.Zone)=[Forms]![InEx]![Zone1]) AND
((vCashTransactions0.TDate)>=[Forms]![InEx]![SDate] And
(vCashTransactions0.TDate)<=[Forms]![InEx]![EDate]) AND
((vCashTransactions0.ACCode)<>47));

Thanks for your assistance.
 
Additional Details:
This is the code for the cmdProcess Button of the form:

Private Sub cmdProcess_Click()
On Error GoTo Err_cmdProcess_Click

If Not IsNull(Zone1) And Not IsNull(SDate) And Not IsNull(EDate) Then
If SDate > EDate Then
MsgBox "The dates are not workable.", vbInformation, "ECKANKAR
AREA ADMIN"
DoCmd.GoToControl "SDate"
Exit Sub
End If
Beep

lblWait.Visible = True
Me.Filter = "[Zone]=" & [Zone1]
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 2, , acMenuVer70
lblWait.Visible = False
'Forms!InEx.Requery
'InExLodgement.Requery
'Forms!Inex!InExBalance.Form.Requery
'InExBalance.Requery
Else
MsgBox "You have to pick a zone and dates to work with.",
vbInformation, "ECKANKAR AREA ADMIN"
If IsNull(Zone1) Then
DoCmd.GoToControl "Zone1"
ElseIf IsNull(SDate) Then
DoCmd.GoToControl "SDate"
ElseIf IsNull(EDate) Then
DoCmd.GoToControl "EDate"
End If
Exit Sub
End If
'AsAt = EDate

Exit_cmdProcess_Click:
Exit Sub

Err_cmdProcess_Click:
MsgBox Err.Description
Resume Exit_cmdProcess_Click

End Sub

I had commented out the requery action of the form and its subforms because
that part of the code did not make any difference in the execution of the
remaining part. And the code still works well like that on my laptop that
runs A2003 while it does not on another that runs A2007. After removing the
comments, the form displayed records as expected on A2007.

My fear is that I am doing something wrong and this may have been repeated
in other areas of the application.
Please help me out.
 
Back
Top