Connie-
If you want to "bug" them every time you encounter a Sales record that is
missing related market info, you could do a check in both the Current and
AfterUpdate events of the sales form. If no Market Value recorded, but 'em with
your MsgBox.
John Viescas, author
Microsoft Office Access 2010 Inside Out
Microsoft Office Access 2007 Inside Out
Building Microsoft Access Applications
Microsoft Office Access 2003 Inside Out
SQL Queries for Mere Mortals
http://www.viescas.com/
(Paris, France)
-----Original Message-----
From: MS_Access_Professionals@yahoogroups.com
[mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of mrsgoudge
Sent: Monday, October 24, 2011 6:27 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] Event at the end of all entries on form including
subforms?
John,
Most listing info is in the Listing table and remains there when a property
sells. When a listing is sold, if it was entered into the Pending table and the
PendingBuyers table, that Pending info(date, price, buyers) are moved to the
Sales and the SalesBuyers table. The Sales form is where this and other Sales
info is entered. All original listing info is still in the Listing table.
I ended up changing the order so that the Market Value subform is the first in
tabbing order and the message pops up right away if needed to emphasize the
importance of entering the Value.
If you have another idea, I'd love to know it.
Connie
--- In MS_Access_Professionals@yahoogroups.com, "John Viescas" <john@...> wrote:
>
> Connie-
>
> That's a toughie. I seem to recall that when a listing is sold, you actually
> copy or move the record to a "sales" table. Is that correct? If you're
marking
> the property "sold" (by entering a sales price and date) in the listings
record,
> that makes it a bit easier. Which is the case?
>
> John Viescas, author
> Microsoft Office Access 2010 Inside Out
> Microsoft Office Access 2007 Inside Out
> Building Microsoft Access Applications
> Microsoft Office Access 2003 Inside Out
> SQL Queries for Mere Mortals
> http://www.viescas.com/
> (Paris, France)
>
>
> -----Original Message-----
> From: MS_Access_Professionals@yahoogroups.com
> [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of mrsgoudge
> Sent: Thursday, October 20, 2011 10:25 PM
> To: MS_Access_Professionals@yahoogroups.com
> Subject: [MS_AccessPros] Event at the end of all entries on form including
> subforms?
>
> I want to remind the user to enter the Market Value for the current year if
they
> have entered the selling price and date and have not entered the Market Value.
> The selling price and date are entered on the Sales form and are elements of
the
> sales table. The Market Value is a separate table and a subform for it is on
> the Sales form. Ideally I would like the code to engage after the user has
> entered all the data she thinks is needed. The Market Value subform is the
last
> in the tab order. So the user first enters the Sales table date, then the
> ListingContacts subform,and the Buyers subform before getting to the Market
> Value table. Is there any event that fits this???
>
> I am wanting to do this since finding that if the last years Market Value was
> the same as this years it is often not being entered for the current year
which
> is necessary for accurate data ...
>
> The code is below. I just haven't found the right event to use it in. May
need
> to change it--Dlookup finds the first entry not all of them, right? But my
> question above is still applicable
>
> thanks!
> Connie
>
> If Not IsNull(Me.SoldPrice And Me.SoldDate) And DLookup("MVYear",
"MarketValue",
> "HomeInfoID = " & Me.HomeInfoID) <> Year(Date) Then
> Msgbox "A 2011 Market Value should be entered." _
> & vbNewLine & "If you don't have it, enter this as a task on the Access To Do
> list."
>
> If Not IsLoaded("Listings") Then
> DoCmd.OpenForm "Listings", , "ListID = " & Me.ListID
> Else:
> DoCmd.FindRecord (Me.ListID)
> End If
> End If
>
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>
------------------------------------
Yahoo! Groups Links
Tidak ada komentar:
Posting Komentar