I will like to amend the function code in the attached sample db such that it would do the following.
Note that Experts do not need to post a working sample db.
Functioning Code should be posted here so that I will be able to put all together myself as a practise and afford future EE members the opportunity to do the same.
Intro:
FrmTestA is a data entry form - and it's also used in the Editing mode when updating records.
FormTestA is bounded to TableA
TableB is used for something else but during data entry, user needs to be informed if PastDue Date exist that matches records being searched or entered by the User.
Dat entry Mode:
In the New Record Mode, when user enters data in the Data entry form and enters the first four fields, At the end of the fourth field (txtStreetName), I will appreciate a msgbox informing user whether or not data entered matched those in TableB and display msgbox and frmList afterwards if user clicks "yes" to see the listings of matched record.
Edit Mode:
In the same token, if user used the FindRecord button of the data entry form to return data into FrmTestA, if the current records loaded into the form matches those in TableB and the Criteria are met as described below then
display a msgbox of matching record found and if user clicks "Yes" open frmList
In other words when finding matched record - Find a match in these two ways:
(a). First find record matching
combination of BlockNo / LotNo
and / or...
(b) Find matching combination of HouseNo, StreetName,
if either or both item (a) or (b) are found or not found proceed to the next line in (c)
**************************
**********
*
(c) RESULT EXPECTED:
(1). If record was found in (a) and / or (b) above and;
TableA.Status = Incomplete Or TableA.Status = Missing PermitNo And;
Not IsNull[TableB.PastDueDate]
' Then..
display a msgbox "Record found Do you want to display it (vbYesNo) and:
display popup "frmList" when user clicks Yes to show the Matched record(s)"
(2). If record was found in (a) and / or (b) above BUT there was no [PastDueDate]' then
DO NOTHING....that is, there should be no msgbox flag
......or.....
(3). If no record was found in step (a) and or (b) 'then DO NOTHING....that should be no msgbox flag.
http://www.geocities.com/bombastikbill/PastDue_MsgBox.zipAdditional Explanation:
(i) When a possible match is found either with the combination of the BlockNo / LotNo OR
the combination of the HouseNo / StreetName and meets the criteria above; THEN...
(ii). Display a msgbox" A possible match was found, do you want to see it? vbYesNo
if user clicks "yes"...then display a listbox showing:
BlockNo, LotNo, HouseNo, StreetName and PastDueDate
if user's response from the msgbox is "No" then do "not" display any listbox.
