Jim Dettman
jimdettman at earthlink.net
Tue Oct 21 11:23:40 CDT 2003
Mark, <<I apologize...I must be missing something...in the code below "varLastRecord" doesn't get a value assigned to it..>> Yes it does: > > ' Now set current record color, then change to something else > > varLastRecord = Me.Bookmark <<is it an API declared in a module? I declared it as a variant but this doesn't give it a value?>> It would be a lot simpler to send you the sample database so you can play with it. Send me an e-mail off-list. Jim Dettman President, Online Computer Services of WNY, Inc. (315) 699-3443 jimdettman at earthlink.net -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Mark A Matte Sent: Tuesday, October 21, 2003 11:18 AM To: accessd at databaseadvisors.com Subject: RE: [AccessD] Highligt Row in Continuous Form Jim, I apologize...I must be missing something...in the code below "varLastRecord" doesn't get a value assigned to it...is it an API declared in a module? I declared it as a variant but this doesn't give it a value? Thanks, Mark >From: "Jim Dettman" <jimdettman at earthlink.net> >Reply-To: Access Developers discussion and problem >solving<accessd at databaseadvisors.com> >To: "Access Developers discussion and problem >solving"<accessd at databaseadvisors.com> >Subject: RE: [AccessD] Highligt Row in Continuous Form >Date: Mon, 20 Oct 2003 14:15:59 -0400 > >Mark, > > Since it stores a bookmark, it must be a variant. > >Jim Dettman >President, >Online Computer Services of WNY, Inc. >(315) 699-3443 >jimdettman at earthlink.net > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Mark A Matte >Sent: Monday, October 20, 2003 1:02 PM >To: accessd at databaseadvisors.com >Subject: RE: [AccessD] Highligt Row in Continuous Form > > >Jim, > >How was "varLastRecord" declared/defined? > >Thanks, > >Mark > > > >From: "Jim Dettman" <jimdettman at earthlink.net> > >Reply-To: Access Developers discussion and problem > >solving<accessd at databaseadvisors.com> > >To: "Access Developers discussion and problem > >solving"<accessd at databaseadvisors.com> > >Subject: RE: [AccessD] Highligt Row in Continuous Form > >Date: Fri, 17 Oct 2003 14:54:55 -0400 > > > >Mark, > > > > You can do it strictly with OnCurrent. See code below. varLastRecord > >and > >lngOriginalColor are module level variables. > > > >Jim Dettman > >President, > >Online Computer Services of WNY, Inc. > >(315) 699-3443 > >jimdettman at earthlink.net > > > >Private Sub Form_Current() > > > > Dim rst As Recordset > > > > Set rst = Me.RecordsetClone > > > > ' Set background color of last record back to default. > > If IsEmpty(varLastRecord) Then > > ' Nothing to do > > Else > > rst.Bookmark = varLastRecord > > rst.Edit > > rst![DisplayColorFlag] = lngOriginalColor > > rst.Update > > Set rst = Nothing > > End If > > > > ' Now set current record color, then change to something else > > varLastRecord = Me.Bookmark > > > > lngOriginalColor = Me![DisplayColorFlag] > > Me![DisplayColorFlag] = 3 > > > > > >End Sub > > > > > >-----Original Message----- > >From: accessd-bounces at databaseadvisors.com > >[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Mark A Matte > >Sent: Friday, October 17, 2003 2:48 PM > >To: accessd at databaseadvisors.com > >Subject: RE: [AccessD] Highligt Row in Continuous Form > > > > > >Hello All, > > > >thanks for the suggestions...I changed the value of a field(fldColor) > >ONCURRENT and used a text box stretched across the detail section with >the > >control source==IIf([fldColor]=1,True,""). I then changed the value of > >fldColor back to 0 on the BEFORE UPDATE...the only problem is that this >is > >in a continuous subform...and when I move to another subform...the BEFORE > >UPDATE fires...So I'm thinking putting a if statement determining whether > >or > >not the subform still has focus...and not changing the color if true? >Any > >thoughts? > > > >Thanks, > > > >Mark > > > > > > >From: "John Colby" <jcolby at colbyconsulting.com> > > >Reply-To: Access Developers discussion and problem > > >solving<accessd at databaseadvisors.com> > > >To: "Access Developers discussion and problem > > >solving"<accessd at databaseadvisors.com> > > >Subject: RE: [AccessD] Highligt Row in Continuous Form > > >Date: Fri, 17 Oct 2003 09:07:25 -0400 > > > > > >Jim, > > > > > >Is the OLE control something built in to Access? I tend to avoid (like > >the > > >plague) having things that have to be registered by my app. > > > > > >John W. Colby > > >www.colbyconsulting.com > > > > > >-----Original Message----- > > >From: accessd-bounces at databaseadvisors.com > > >[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Jim Dettman > > >Sent: Friday, October 17, 2003 8:51 AM > > >To: Access Developers discussion and problem solving > > >Subject: RE: [AccessD] Highligt Row in Continuous Form > > > > > > > > >John, > > > > > > Yes, that would work as well, as would storing a bookmark. Both >would > > >be > > >faster then the function code posted. The only drawback is that a > >requery > > >invalidates positions and bookmarks, but that is not a major obstacle >as > > >long as your aware of it. The sample MDB I worked up has an example > >using > > >bookmarks. > > > > > > You might want to take a look at the sample, as I use a slightly > > >different > > >technique (wish I could claim that I thought of it) to control row > >colors. > > >The technique (use of a bound OLE control) not only allows for >displaying > > >of > > >different colors, but graphics as well. Quite flexible. > > > > > >Jim Dettman > > >President, > > >Online Computer Services of WNY, Inc. > > >(315) 699-3443 > > >jimdettman at earthlink.net > > > > > >-----Original Message----- > > >From: accessd-bounces at databaseadvisors.com > > >[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of John Colby > > >Sent: Thursday, October 16, 2003 9:14 PM > > >To: Access Developers discussion and problem solving > > >Subject: RE: [AccessD] Highligt Row in Continuous Form > > > > > > > > >I went in to look at the demo. It uses an entire function to get the > > >current line number. In my framework I use > > >.RecordsetClone.AbsolutePosition. Can anyone comment on whether this > > >replaces the function? > > > > > >John W. Colby > > >www.colbyconsulting.com > > > > > >-----Original Message----- > > >From: accessd-bounces at databaseadvisors.com > > >[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Mitsules, >Mark > > >Sent: Thursday, October 16, 2003 3:59 PM > > >To: 'Access Developers discussion and problem solving' > > >Subject: RE: [AccessD] Highligt Row in Continuous Form > > > > > > > > >Changing the Background Color of the Current Record in a Continuous >Form > > >http://www.mvps.org/access/forms/frm0047.htm > > > > > > > > > > > >Mark > > > > > > > > >-----Original Message----- > > >From: Mark A Matte [mailto:markamatte at hotmail.com] > > >Sent: Thursday, October 16, 2003 3:06 PM > > >To: accessd at databaseadvisors.com > > >Subject: [AccessD] Highligt Row in Continuous Form > > > > > > > > >Hello All, > > > > > >In A97 on a continuous form...I want to highlight or identify the row > >that > > >has focus. Change the color of something...anything...but only on that > > >record? Is this possible? Everything I tried changed the color of >every > > >instance of that control...not just the one on the current record? > > > > > >Any Ideas? > > > > > >Thanks, > > > > > >Mark > > > > > >_________________________________________________________________ > > >Enjoy MSN 8 patented spam control and more with MSN 8 Dial-up Internet > > >Service. Try it FREE for one month! > > >http://join.msn.com/?page=dept/dialup > > > > > >_______________________________________________ > > >AccessD mailing list > > >AccessD at databaseadvisors.com > > >http://databaseadvisors.com/mailman/listinfo/accessd > > >Website: http://www.databaseadvisors.com > > >_______________________________________________ > > >AccessD mailing list > > >AccessD at databaseadvisors.com > > >http://databaseadvisors.com/mailman/listinfo/accessd > > >Website: http://www.databaseadvisors.com > > > > > > > > > > > >_______________________________________________ > > >AccessD mailing list > > >AccessD at databaseadvisors.com > > >http://databaseadvisors.com/mailman/listinfo/accessd > > >Website: http://www.databaseadvisors.com > > > > > > > > >_______________________________________________ > > >AccessD mailing list > > >AccessD at databaseadvisors.com > > >http://databaseadvisors.com/mailman/listinfo/accessd > > >Website: http://www.databaseadvisors.com > > > > > > > > > > > >_______________________________________________ > > >AccessD mailing list > > >AccessD at databaseadvisors.com > > >http://databaseadvisors.com/mailman/listinfo/accessd > > >Website: http://www.databaseadvisors.com > > > >_________________________________________________________________ > >Add MSN 8 Internet Software to your current Internet access and enjoy > >patented spam control and more. Get two months FREE! > >http://join.msn.com/?page=dept/byoa > > > >_______________________________________________ > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > > > > > >_______________________________________________ > >AccessD mailing list > >AccessD at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/accessd > >Website: http://www.databaseadvisors.com > >_________________________________________________________________ >Surf and talk on the phone at the same time with broadband Internet access. >Get high-speed for as low as $29.95/month (depending on the local service >providers in your area). https://broadband.msn.com > >_______________________________________________ >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com > > >_______________________________________________ >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com _________________________________________________________________ Fast, faster, fastest: Upgrade to Cable or DSL today! https://broadband.msn.com _______________________________________________ AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com