Excel for Life: 19 new messages in 13 topics

microsoft.public.access.modulesdaovba
http://groups.google.com/group/microsoft.public.access.modulesdaovba?hl=en

microsoft.public.access.modulesdaovba@googlegroups.com

Today's topics:

==============================================================================
TOPIC: Access with Linked SQL Tables
http://groups.google.com/group/microsoft.public.access.modulesdaovba/browse_thread/thread/969a336c09c7dfd3?hl=en
==============================================================================

== 1 of 1 ==
Date: Fri, Nov 16 2007 3:00 pm
From: "David W. Fenton"

"Albert D. Kallal" <PleaseNOOOsPAMmkallal@msn.com> wrote in
news:#qIhzZHKIHA.1168@TK2MSFTNGP02.phx.gbl:

> Without
> question, jet will pull the whole table when you do complex joins.
> So, the SIMPLY solution stated in that paragraph is to simply
> create a view on the sql server side (another possible solution is
> to use pass-through query).

This is simply not true, Albert. Jet may or may not pull the entire
table -- it depends entirely on the indexing.

What I have found is that Jet executes SQL Server inner joins very
efficiently (i.e., it passes them off to the server), but outer
joins are *very* slow, even when you create a view on the server.
Because of this, I recommend avoiding outer joins whenever you can,
as there is really no way to optimize them.

--
David W. Fenton

http://www.dfenton.com/

usenet at dfenton dot com

http://www.dfenton.com/DFA/

==============================================================================
TOPIC: Combobox record source query results not visible in form
http://groups.google.com/group/microsoft.public.access.modulesdaovba/browse_thread/thread/b0b748eceff3b668?hl=en
==============================================================================

== 1 of 1 ==
Date: Fri, Nov 16 2007 3:45 pm
From: CT3or4

Thank you George! Yes, I'm using V. 2003.
I suspected as much re: updates &/or SP3 but thought... well, you
know.[Accustomed to OTHER vendors' apps failing after updates, et al.]

The only formatting in the BE field was "!" as Left Align.
Removal, save, close & reopen (BE & FEs alike) has not produced a working
Combobox in the various FEs. Please keep this thread open & alive pending a
fix of some sort.
I'll respond if reboots are involved in a fix by format - or lack thereof.
Thanks again, very much.
--
CT3or4

"George Nicholson" wrote:

> You don't say what version of Access you are using. I am going to guess that
> its 2003 and that the problems started as soon as SP3 was applied.
>
> What you are seeing is *one* of the known bugs caused by SP3. (Sure explains
> sudden and universal, huh?)
> http://allenbrowne.com/tips.html
>
> Not 100% sure, but I believe the fix is to open the backend and remove any
> formatting applied to the field that displays in the combo. You might check
> other posts for something a bit more definitive on that score.
>
> --
> HTH,
> George
>
>
> "CT3or4" <CT3or4@discussions.microsoft.com> wrote in message
> news:1E25600C-E867-4459-A2C3-20ADBF3F8235@microsoft.com...
> > The least complex table in the db Backend is suddenly not "viewable" in
> > Combobox results of multiple Frontends & forms.
> > The recordsource queries are always visible in all FE form properties.
> > "Visible" property is YES throughout every Properties (2 wekks pouring
> > over
> > code).
> > No module in BE exists nor FE exists or, should relate to the table or
> > related controls in the various FEs.
> >
> > Table comprises: ID(autonumber), Text, the ID again as an appended text
> > string.
> >
> > Constantly tweaking the FEs but the disappearance of the query result in
> > the
> > forms was sudden & universal, unrelated to any changes made in some
> > (because
> > tweaks were not made in all); each has independent forms/controls affected
> > in
> > addition to some shared/linked.
> > I've checked the table in BE, of course. Again, no module at all except
> > Gobal (IsLoaded); it remains unchanged since BE created 2 years ago. Table
> > Properties unchanged since creation, as best I can tell.
> >
> > Worst case: is the a utility that will show when & where changes were made
> > in code &/or macros? I'll go fish, db-by-db, if needed.
> > Thanks,
> > --
> > CT3or4
>
>
>

==============================================================================
TOPIC: Go to new record in table
http://groups.google.com/group/microsoft.public.access.modulesdaovba/browse_thread/thread/a3c62ccc21966872?hl=en
==============================================================================

== 1 of 2 ==
Date: Fri, Nov 16 2007 3:54 pm
From: Del

I use code to create a table. Then I want to store data in the table from
unbound controls on a form. What code can I use to write this data?

--
Thank you,
Del

== 2 of 2 ==
Date: Fri, Nov 16 2007 4:48 pm
From: John W. Vinson

On Fri, 16 Nov 2007 15:54:00 -0800, Del <Del@discussions.microsoft.com> wrote:

>I use code to create a table. Then I want to store data in the table from
>unbound controls on a form. What code can I use to write this data?

Open a Recordset based on the table; use the recordset's AddNew method; set
the fields to the desired values.

Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("[tablename]", dbOpenDynaset)
rs.AddNew
rs!ThisField = Me![txtThisField]
rs!ThatField ] = Me![txtThatField]
<etc>
rs.Update
rs.Close
Set rs = Nothing

Why do it the hard way though??? Creating new tables ad hoc is (in my
experience) *very* rarely either necessary or a good idea.

John W. Vinson [MVP]

==============================================================================
TOPIC: Getting Procedure Name
http://groups.google.com/group/microsoft.public.access.modulesdaovba/browse_thread/thread/037f7a39f60699dc?hl=en
==============================================================================

== 1 of 3 ==
Date: Fri, Nov 16 2007 4:17 pm
From: lyle

On Nov 15, 10:20 am, "Neil" <nos...@nospam.net> wrote:
> Can I get the name of a procedure from within the procedure? In my error
> handler, I write the error to an error table. I'd like to write the name of
> the procedure that's writing the error. But, rather than customizing each
> error handler with the procedure name, it would be nice to be able to call a
> system variable or function that gives me the procedure name and module
> name. Is that possible?

It would be a couple of hours work I suppose to write code that would
put into each procedure as line two and three:
Dim VBProcedureName$
VBProcedureName = "Module13:Temp"
for Procedure "Temp" in Module 13.
or whatever. I suppose one would want the Module13 bit to
differentiate among various Temp private subs in various Modules.

But to what purpose?
I write my own error handling code only when I feel I need to be sure
that nothing non-VBAish is left dangling. A low level file handle is
one of these. Somewhere in the mists of time when Access was only a
gleam in the Wicked Witch of the West's eye I learned that these
should be closed. So when I open one, I do it within error handling
that will close it on error.
But almost none of my modules require that kind of fail-safe garbage
deletion. And almost none has its own error-handling.
Yes, I know, thousands of developers who write code superior to mine
are going to protest here. Such is life.

Having run the code once, then what? If we run it again we'll get
Dim VBProcedureName$
VBProcedureName = "Module13:Temp"
Dim VBProcedureName$
VBProcedureName = "Module13:Temp"

which will raise a compile error. So now we have to be sure the lines
are not already there. And if we change the name of a procedure ... I
suspect that ifs just keep rolling on here.

== 2 of 3 ==
Date: Fri, Nov 16 2007 10:56 pm
From: "Neil"

I don't know -- I just put an error handler in every proc, and it's worked
out well for me. For things like closing files or other things that I always
want to do, I put those under the exit label, and have the error handler
transfer to there.

In any case, you gave me an idea with the below: I could use a proc name
variable in the error handler, and set the variable at the top of the proc.
That would allow me to use a standard template for error handlers (with a
default proc name of ""), and then fill in the names as needed (in the more
problematic routines). Probably, if I had the VBProcName = "" in the
template, I'd just automatically fill it in when I start a new proc, anyway.

But, you know, it would be simple to do something like this with a Word
macro -- just plop the whole module into Word, record/write a macro that
does what's needed, and then plop the module text back into Access. Only
problem is: losing the link to event procedures. If I could be sure that the
links to control's event procedures would remain in place after I paste in
the new procs from Word, then this would be fine. But I've had bad
experiences with that in the past. Any notes/tips/etc. on trying to get the
procs to remain linked or to relink them after an event such as this?

Thanks!

Neil

"lyle" <lyle.fairfield@gmail.com> wrote in message
news:213a25f4-e6d6-4673-a8dc-e4991219f8cd@i37g2000hsd.googlegroups.com...
> On Nov 15, 10:20 am, "Neil" <nos...@nospam.net> wrote:
>> Can I get the name of a procedure from within the procedure? In my error
>> handler, I write the error to an error table. I'd like to write the name
>> of
>> the procedure that's writing the error. But, rather than customizing each
>> error handler with the procedure name, it would be nice to be able to
>> call a
>> system variable or function that gives me the procedure name and module
>> name. Is that possible?
>
> It would be a couple of hours work I suppose to write code that would
> put into each procedure as line two and three:
> Dim VBProcedureName$
> VBProcedureName = "Module13:Temp"
> for Procedure "Temp" in Module 13.
> or whatever. I suppose one would want the Module13 bit to
> differentiate among various Temp private subs in various Modules.
>
> But to what purpose?
> I write my own error handling code only when I feel I need to be sure
> that nothing non-VBAish is left dangling. A low level file handle is
> one of these. Somewhere in the mists of time when Access was only a
> gleam in the Wicked Witch of the West's eye I learned that these
> should be closed. So when I open one, I do it within error handling
> that will close it on error.
> But almost none of my modules require that kind of fail-safe garbage
> deletion. And almost none has its own error-handling.
> Yes, I know, thousands of developers who write code superior to mine
> are going to protest here. Such is life.
>
> Having run the code once, then what? If we run it again we'll get
> Dim VBProcedureName$
> VBProcedureName = "Module13:Temp"
> Dim VBProcedureName$
> VBProcedureName = "Module13:Temp"
>
> which will raise a compile error. So now we have to be sure the lines
> are not already there. And if we change the name of a procedure ... I
> suspect that ifs just keep rolling on here.
>
>

== 3 of 3 ==
Date: Fri, Nov 16 2007 11:31 pm
From: boblarson

Look into using the free MZ Tools. It has a customizable error handler that
you can set (it has a default which gives you info on the procedure it is in)
and you just have to put your cursor in the procedure and click the button to
add the error handler. It also has a procedure, and module, header button
which allows you to auto insert information about the procedure and header.
I use it all of the time and it is wonderful.

Plus there are other tools in that same tool set that are very useful.
--
Bob Larson
Access World Forums Super Moderator
Utter Access VIP
Tutorials at http://www.btabdevelopment.com
__________________________________
If my post was helpful to you, please rate the post.

"Neil" wrote:

> I don't know -- I just put an error handler in every proc, and it's worked
> out well for me. For things like closing files or other things that I always
> want to do, I put those under the exit label, and have the error handler
> transfer to there.
>
> In any case, you gave me an idea with the below: I could use a proc name
> variable in the error handler, and set the variable at the top of the proc.
> That would allow me to use a standard template for error handlers (with a
> default proc name of ""), and then fill in the names as needed (in the more
> problematic routines). Probably, if I had the VBProcName = "" in the
> template, I'd just automatically fill it in when I start a new proc, anyway.
>
> But, you know, it would be simple to do something like this with a Word
> macro -- just plop the whole module into Word, record/write a macro that
> does what's needed, and then plop the module text back into Access. Only
> problem is: losing the link to event procedures. If I could be sure that the
> links to control's event procedures would remain in place after I paste in
> the new procs from Word, then this would be fine. But I've had bad
> experiences with that in the past. Any notes/tips/etc. on trying to get the
> procs to remain linked or to relink them after an event such as this?
>
> Thanks!
>
> Neil
>
>
>
> "lyle" <lyle.fairfield@gmail.com> wrote in message
> news:213a25f4-e6d6-4673-a8dc-e4991219f8cd@i37g2000hsd.googlegroups.com...
> > On Nov 15, 10:20 am, "Neil" <nos...@nospam.net> wrote:
> >> Can I get the name of a procedure from within the procedure? In my error
> >> handler, I write the error to an error table. I'd like to write the name
> >> of
> >> the procedure that's writing the error. But, rather than customizing each
> >> error handler with the procedure name, it would be nice to be able to
> >> call a
> >> system variable or function that gives me the procedure name and module
> >> name. Is that possible?
> >
> > It would be a couple of hours work I suppose to write code that would
> > put into each procedure as line two and three:
> > Dim VBProcedureName$
> > VBProcedureName = "Module13:Temp"
> > for Procedure "Temp" in Module 13.
> > or whatever. I suppose one would want the Module13 bit to
> > differentiate among various Temp private subs in various Modules.
> >
> > But to what purpose?
> > I write my own error handling code only when I feel I need to be sure
> > that nothing non-VBAish is left dangling. A low level file handle is
> > one of these. Somewhere in the mists of time when Access was only a
> > gleam in the Wicked Witch of the West's eye I learned that these
> > should be closed. So when I open one, I do it within error handling
> > that will close it on error.
> > But almost none of my modules require that kind of fail-safe garbage
> > deletion. And almost none has its own error-handling.
> > Yes, I know, thousands of developers who write code superior to mine
> > are going to protest here. Such is life.
> >
> > Having run the code once, then what? If we run it again we'll get
> > Dim VBProcedureName$
> > VBProcedureName = "Module13:Temp"
> > Dim VBProcedureName$
> > VBProcedureName = "Module13:Temp"
> >
> > which will raise a compile error. So now we have to be sure the lines
> > are not already there. And if we change the name of a procedure ... I
> > suspect that ifs just keep rolling on here.
> >
> >
>
>
>

==============================================================================
TOPIC: Visible = True Vs Visble = False
http://groups.google.com/group/microsoft.public.access.modulesdaovba/browse_thread/thread/ab35e58d40612388?hl=en
==============================================================================

== 1 of 2 ==
Date: Fri, Nov 16 2007 4:37 pm
From: Marshall Barton

You might want to try a completely different approach that I
think(?) does what you want without any complicated logic.

Create a group with header for each of the fields you want
to hide. Add a text box for the field to the group header
and make sure the group header sections are the same height
as the detail section. The code for the group header
sections' Format event would simply be:
Me.MoveLayout = False

The only controls in the detail section would be the ones
you want to display on every line. The only(?) code needed
for the detail section would be the line drawing code.
--
Marsh
MVP [MS Access]

dsc2bjn wrote:
>I have a report which returns a series of records for which I wish to
>suppress the duplicate values for a few fields. The "Hide Duplicate"
>attribute will only hide the duplicates on a single page of the report. I
>which to hide all duplicates for like values throughout the report.
>
>My VB skills are weak (ok practically non-existant); however, I inherited
>this DB from someone who's code kind of works, but not in all instances.
>
>Data Structure for the Report is:
>FunctionOrder, Function, ActivityOrder, Activity, Risk.
>
>Each Function may contain mulitple Activities.
>Each Activity may contain multiple Risk.
>
>I wish to supress the display for the FunctionOrder, Function,
>ActivityOrder, and Activity for all but the first record.
>
>Below is the code I inherited, it kind of works. On some pages the
>FunctionOrder, Function, ActivtyOrder, and Activity repeat. I am resonably
>sure it occurs when a new activity starts on a new page and the risks
>associated to the Activity can not fit on the page.
>
>Any suggestions would be greatly appreciated.
>
>Code:
>---------------
>Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
>' Declaring Function and pageno variables locally and as static
>' So that if another report is running at same time, it will not use them
>' as it might had they been declared publicly or with the same
>' name as in the other report.
>
>' Note - this report has code which controls manually when and where the
>' "F-", the function order and the function print on the page.
>' To handle this manually or programmatically, the code gets somewhat
>complicated.
>' One aspect handled is the suppression of this function information on the
>' next page when a function begins on the previous page and continued to the
>next
>' page.
>Static strrptRIAFunction As String
>Static strrptRIAActivity As String
>
>Static reccount As Integer
>'set line width
>Me.DrawWidth = 10
>'create gridlines
>Me.Line (0, 0)-(0, 15000)
>Me.Line (3115, 0)-(3115, 15000)
>Me.Line (6780, 0)-(6780, 15000)
>Me.Line (8980, 0)-(8980, 15000)
>Me.Line (9540, 0)-(9540, 15000)
>Me.Line (11830, 0)-(11830, 15000)
>Me.Line (14300, 0)-(14300, 15000)
>Me.Line (15110, 0)-(15110, 15000)
>
>' Defines the Text Fields used to designate Function and Activity (prefix
>for FunctionOrder and ActivityOrder
>Me.Text14 = "F-"
>Me.Text101 = "A-"
>
>' Set default of visible
>Me.Text14.Visible = True
>Me.Function.Visible = True
>Me.FunctionOrder.Visible = True
>Me.Text101.Visible = True
>Me.ActivityOrder.Visible = True
>Me.Activity.Visible = True
>
>' Set Visibility
>If Me.Function.OldValue <> strrptRIAFunction Then
> Me.Text14.Visible = True
> Me!FunctionOrder.Visible = True
> Me!Function.Visible = True
>End If
>
>If Me.Function.OldValue = strrptRIAFunction Then
> Me.Text14.Visible = False
> Me!FunctionOrder.Visible = False
> Me!Function.Visible = False
>End If
>
>
>If Me.Activity.OldValue <> strrptRIAActivity Then
> Me.Text101.Visible = True
> Me!ActivityOrder.Visible = True
> Me!Activity.Visible = True
>End If
>
>If Me.Activity.OldValue = strrptRIAActivity Then
> Me.Text101.Visible = False
> Me!ActivityOrder.Visible = False
> Me!Activity.Visible = False
>End If
>
>
>strrptRIAFunction = Nz(Me.Function.OldValue)
>strrptRIAActivity = Nz(Me.Activity.OldValue)
>
>End Sub
>
>

== 2 of 2 ==
Date: Fri, Nov 16 2007 9:10 pm
From: dsc2bjn

Customer doesn't like using the Single Header lines. They want it to look
similiar to an Excel spreadsheet, but only to display the FunctionOrder,
Function, ActivityOrder, and Activity when the value changes.

F-1 Function1Text A-1 Activity1Text Risk
Risk
Risk
A-2 Activity2Text Risk
Risk
F-2 Function2Text A-1 Activity1Text Risk
Risk
A-2 Activity2Text Risk
F-3 Function3Text A-1 Activity3Text Risk

"Marshall Barton" wrote:

> You might want to try a completely different approach that I
> think(?) does what you want without any complicated logic.
>
> Create a group with header for each of the fields you want
> to hide. Add a text box for the field to the group header
> and make sure the group header sections are the same height
> as the detail section. The code for the group header
> sections' Format event would simply be:
> Me.MoveLayout = False
>
> The only controls in the detail section would be the ones
> you want to display on every line. The only(?) code needed
> for the detail section would be the line drawing code.
> --
> Marsh
> MVP [MS Access]
>
>
> dsc2bjn wrote:
> >I have a report which returns a series of records for which I wish to
> >suppress the duplicate values for a few fields. The "Hide Duplicate"
> >attribute will only hide the duplicates on a single page of the report. I
> >which to hide all duplicates for like values throughout the report.
> >
> >My VB skills are weak (ok practically non-existant); however, I inherited
> >this DB from someone who's code kind of works, but not in all instances.
> >
> >Data Structure for the Report is:
> >FunctionOrder, Function, ActivityOrder, Activity, Risk.
> >
> >Each Function may contain mulitple Activities.
> >Each Activity may contain multiple Risk.
> >
> >I wish to supress the display for the FunctionOrder, Function,
> >ActivityOrder, and Activity for all but the first record.
> >
> >Below is the code I inherited, it kind of works. On some pages the
> >FunctionOrder, Function, ActivtyOrder, and Activity repeat. I am resonably
> >sure it occurs when a new activity starts on a new page and the risks
> >associated to the Activity can not fit on the page.
> >
> >Any suggestions would be greatly appreciated.
> >
> >Code:
> >---------------
> >Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
> >' Declaring Function and pageno variables locally and as static
> >' So that if another report is running at same time, it will not use them
> >' as it might had they been declared publicly or with the same
> >' name as in the other report.
> >
> >' Note - this report has code which controls manually when and where the
> >' "F-", the function order and the function print on the page.
> >' To handle this manually or programmatically, the code gets somewhat
> >complicated.
> >' One aspect handled is the suppression of this function information on the
> >' next page when a function begins on the previous page and continued to the
> >next
> >' page.
> >Static strrptRIAFunction As String
> >Static strrptRIAActivity As String
> >
> >Static reccount As Integer
> >'set line width
> >Me.DrawWidth = 10
> >'create gridlines
> >Me.Line (0, 0)-(0, 15000)
> >Me.Line (3115, 0)-(3115, 15000)
> >Me.Line (6780, 0)-(6780, 15000)
> >Me.Line (8980, 0)-(8980, 15000)
> >Me.Line (9540, 0)-(9540, 15000)
> >Me.Line (11830, 0)-(11830, 15000)
> >Me.Line (14300, 0)-(14300, 15000)
> >Me.Line (15110, 0)-(15110, 15000)
> >
> >' Defines the Text Fields used to designate Function and Activity (prefix
> >for FunctionOrder and ActivityOrder
> >Me.Text14 = "F-"
> >Me.Text101 = "A-"
> >
> >' Set default of visible
> >Me.Text14.Visible = True
> >Me.Function.Visible = True
> >Me.FunctionOrder.Visible = True
> >Me.Text101.Visible = True
> >Me.ActivityOrder.Visible = True
> >Me.Activity.Visible = True
> >
> >' Set Visibility
> >If Me.Function.OldValue <> strrptRIAFunction Then
> > Me.Text14.Visible = True
> > Me!FunctionOrder.Visible = True
> > Me!Function.Visible = True
> >End If
> >
> >If Me.Function.OldValue = strrptRIAFunction Then
> > Me.Text14.Visible = False
> > Me!FunctionOrder.Visible = False
> > Me!Function.Visible = False
> >End If
> >
> >
> >If Me.Activity.OldValue <> strrptRIAActivity Then
> > Me.Text101.Visible = True
> > Me!ActivityOrder.Visible = True
> > Me!Activity.Visible = True
> >End If
> >
> >If Me.Activity.OldValue = strrptRIAActivity Then
> > Me.Text101.Visible = False
> > Me!ActivityOrder.Visible = False
> > Me!Activity.Visible = False
> >End If
> >
> >
> >strrptRIAFunction = Nz(Me.Function.OldValue)
> >strrptRIAActivity = Nz(Me.Activity.OldValue)
> >
> >End Sub
> >
> >
>
>

==============================================================================
TOPIC: Access 2003 Gurus
http://groups.google.com/group/microsoft.public.access.modulesdaovba/browse_thread/thread/cbbff51344badbb2?hl=en
==============================================================================

== 1 of 2 ==
Date: Fri, Nov 16 2007 5:27 pm
From: Geno

What forum or suggestion can someone offer to assist me in addressing an
issue I'm having with an access database. The database is pretty simple
actually, but I did not compile it and I'm having a difficult time in finding
the problem I'm currently having with a particular form. I guess I would need
to send it to someone for a quick analysis. Thank You!

== 2 of 2 ==
Date: Fri, Nov 16 2007 7:05 pm
From: boblarson

Two good ones:

Access World Forums -http://www.access-programmers.co.uk/forums/index.php

Utter Access - http://www.utteraccess.com/forums/index.php?Cat=
--
Bob Larson
Access World Forums Super Moderator
Utter Access VIP
Tutorials at http://www.btabdevelopment.com
__________________________________
If my post was helpful to you, please rate the post.

"Geno" wrote:

> What forum or suggestion can someone offer to assist me in addressing an
> issue I'm having with an access database. The database is pretty simple
> actually, but I did not compile it and I'm having a difficult time in finding
> the problem I'm currently having with a particular form. I guess I would need
> to send it to someone for a quick analysis. Thank You!

==============================================================================
TOPIC: Upgrading to Access 2007
http://groups.google.com/group/microsoft.public.access.modulesdaovba/browse_thread/thread/f7c099223b418381?hl=en
==============================================================================

== 1 of 2 ==
Date: Fri, Nov 16 2007 7:13 pm
From: Eddie Price

I have a large application written in access 97 and would like to upgrade to
Access 2007 soon. My current application has a lot of menu bars. Will these
work well in 2007 or will ribbons be an issue for me? Any easy solution?

== 2 of 2 ==
Date: Fri, Nov 16 2007 10:39 pm
From: Tom van Stiphout

On Fri, 16 Nov 2007 19:13:00 -0800, Eddie Price
<EddiePrice@discussions.microsoft.com> wrote:

The easy solution is to embrace the ribbon, and redesign your menu
bars along those lines. Once you get the hang of it, ribbons are
really pretty nice.

-Tom.

>I have a large application written in access 97 and would like to upgrade to
>Access 2007 soon. My current application has a lot of menu bars. Will these
>work well in 2007 or will ribbons be an issue for me? Any easy solution?

==============================================================================
TOPIC: ADO Connection
http://groups.google.com/group/microsoft.public.access.modulesdaovba/browse_thread/thread/7189f0bec8d7fe75?hl=en
==============================================================================

== 1 of 1 ==
Date: Fri, Nov 16 2007 7:15 pm
From: boblarson

If your tables are linked then use the CurrentProject.Connection one. If
they are not, you will need to use the other.
--
Bob Larson
Access World Forums Super Moderator
Utter Access VIP
Tutorials at http://www.btabdevelopment.com
__________________________________
If my post was helpful to you, please rate the post.

"Rio" wrote:

> When establishing an ADO connection when should I use
>
> Set cn = CurrentProject.Connection
>
> vs
>
> cnn.Open "Provider=sqloledb;" & _
> "Data Source=yourServerName;" & _
> "Initial Catalog=yourDatabaseName;" & _
> "Integrated Security=SSPI"
>
> My app is Access (front-end) and SQL Server (back-end)
>
> Thanks!

==============================================================================
TOPIC: Looping through controls
http://groups.google.com/group/microsoft.public.access.modulesdaovba/browse_thread/thread/86ccbdf3634a1c3b?hl=en
==============================================================================

== 1 of 1 ==
Date: Fri, Nov 16 2007 7:21 pm
From: boblarson

Doug:

As an FYI, there is an Undo event in A2K3 (don't know about 2002 as I don't
have that one) and it isn't in 2000.
--
Bob Larson
Access World Forums Super Moderator
Utter Access VIP
Tutorials at http://www.btabdevelopment.com
__________________________________
If my post was helpful to you, please rate the post.

"Douglas J. Steele" wrote:

> Try something like:
>
> Dim ctlSubform As Control
> Dim ctrLoop As Control
>
> For Each ctlSubform In Me.Controls
> If TypeOf ctlSubform Is Subform Then
> For Each ctrLoop In ctlSubform.Form.Controls
> ' ctrLoop.OnUndo = "myProcedure"
> Next ctrLoop
> End If
> Next frmLoop
>
> However, I'm not aware of an Undo event (I only have Access 97 on this
> machine, and it definitely doesn't have that event) If there is an Undo
> event, the property would likely be called Undo, not OnUndo, and not every
> control would have one (for example, since you can't type in a label or
> line, there wouldn't be an Undo event for them). What you might want to do
> is add a function like the following:
>
> Function HasEvent(ControlObject As Control, EventName As String) As Boolean
> On Error Resume Next
>
> Dim strCurrProc As String
>
> strCurrProc = ControlObject.Properties(EventName)
> HasEvent = (Err.Number = 0)
>
> End Function
>
> You could then use
>
> Dim ctlSubform As Control
> Dim ctrLoop As Control
>
> For Each ctlSubform In Me.Controls
> If TypeOf ctlSubform Is Subform Then
> For Each ctrLoop In ctlSubform.Form.Controls
> If HasEvent(ctlLoop, "Undo") Then
> ctrLoop.Undo = "myProcedure"
> End If
> Next ctrLoop
> End If
> Next frmLoop
>
>
> --
> Doug Steele, Microsoft Access MVP
> http://I.Am/DougSteele
> (no e-mails, please!)
>
>
> "NasaDBGuy" <NasaDBGuy@discussions.microsoft.com> wrote in message
> news:955CD9DC-291A-4FD7-8C20-DF2E2ABCC689@microsoft.com...
> > is there a way I can loop through all the controls in all the subforms in
> > an
> > Access form? I want to call a function in each control, so I have
> > something
> > like:
> >
> > Dim frmLoop As Form
> > Dim ctrLoop As Control
> >
> >
> > For Each frmLoop In Forms
> > For Each ctrLoop In frmLoop
> > Me.frmLoop.Controls.ctrLoop.OnUndo = "myProcedure"
> >
> > Next ctrLoop
> > Next frmLoop
> >
> > Am I on the right track? I know my syntax is bad. That's why it's not
> > working? Thanks for any help
>
>
>

==============================================================================
TOPIC: no option selected
http://groups.google.com/group/microsoft.public.access.modulesdaovba/browse_thread/thread/7b63dc9497a0b74c?hl=en
==============================================================================

== 1 of 1 ==
Date: Fri, Nov 16 2007 7:40 pm
From: "tina"

since you're using A2007, there may be something going on that i'm unaware
of - i know nothing about A2007. sorry i wasn't able to help; good luck with
it. tina

"MKM" <MKM@discussions.microsoft.com> wrote in message
news:57D86FEB-ED4D-45F6-8EA9-ECA0F43DC14E@microsoft.com...
> I even created a new one (via Wizard) and choose "No default" I got a
default!
>
> "tina" wrote:
>
> > open the form in Design view, click on the option group "frame" to
select
> > it. in the Properties box, go to the Default line. type a number 1 in
the
> > line, and press the Down arrow on the keyboard once. press the Up arrow
> > once; the number 1 should be highlighted - DON'T touch it with the
mouse.
> > press the Delete key on the keyboard to delete the 1 value on the
Default
> > property line. press the Down arrow on the keyboard once. save the form
and
> > close it.
> >
> > hth
> >
> >
> > "MKM" <MKM@discussions.microsoft.com> wrote in message
> > news:ED263981-B6BD-47F9-AF89-83B9A6FE7682@microsoft.com...
> > > I should have mentioned...I already tried setting the Default Value of
the
> > > frame to Null (literally typed in) and I also tried deleting the
contents
> > of
> > > the Default property field in the property box. I also tried setting
the
> > > default value to "". When the form opens it always has option 1
selected.
> > > Maybe setting it in the OnOpen event?
> > >
> > > "tina" wrote:
> > >
> > > > in A2003 and prior, you would remove the Default value in the option
> > control
> > > > (the "frame").
> > > >
> > > > hth
> > > >
> > > >
> > > > "MKM" <MKM@discussions.microsoft.com> wrote in message
> > > > news:098A0A17-B622-4076-BA5B-2B18C19E5C15@microsoft.com...
> > > > > I have two option btns in an option group. When the form opens I
want
> > > > > neither selected. What property controls that? is it a frame
> > property or
> > > > a
> > > > > property of each btn? I'm using Access 2007, but it must be the
same
> > for
> > > > > earlier versions...maybe!
> > > >
> > > >
> > > >
> >
> >
> >

==============================================================================
TOPIC: MI5 Persecution: BA984 LHR->TXL 13/6/98 (644)
http://groups.google.com/group/microsoft.public.access.modulesdaovba/browse_thread/thread/161e7bd446822bf8?hl=en
==============================================================================

== 1 of 1 ==
Date: Fri, Nov 16 2007 6:35 pm
From: MI5Victim@mi5.gov.uk

BA984 LHR->TXL 13/June/1998

Certainty level: 100%

In June 1998 I travelled on the above British Airways flight to Berlin
with my mother, to visit her family. There were two women in seats 30D/E,
about 4/5 rows behind us. It was quite obvious from the torrent of abuse
during these flight that these women had been instructed to harass me
and attempt to obtain a reaction.

I did manage to record much of the flight, but unfortunately much of the
recording is unclear because of high background noise on the aircraft.
The following three excerpts from the recording are the best I can do.

The segment at position 11:34 minutes on my recording contains a fairly
quiet word "paranoid", followed immediately by a much louder
"yeah, he's paranoid, yeah". During the flight the abuse was not sexual,
as it so often is elsewhere, but attacking my mental health.

One of the women in seats 30D/E said "paranoid" very clearly towards the
end of the flight, but unfortunately I had run out of minidisc space and
stopped recording by then. There is absolutely no doubt in my mind that
these women were directed to harass me. This harassment happens without
fail on British Airways flights; I've been on something like three or
four BA flights in the last 5 years and it's happened each time.
Presumably this is because of international law which says incidents on
aircraft during flight are actionable in the airline's country of
origin - so my persecutors want a reaction from me, and they want to see
me "done" in the UK where they can influence the justice system.

These incidents never happen on foreign-domiciled carriers.

644

--
Posted via NewsDemon.com - Premium Uncensored Newsgroup Service
------->>>>>>http://www.NewsDemon.com<<<<<<------
Unlimited Access, Anonymous Accounts, Uncensored Broadband Access

==============================================================================
TOPIC: Show me function
http://groups.google.com/group/microsoft.public.access.modulesdaovba/browse_thread/thread/8c24e13f4016cce5?hl=en
==============================================================================

== 1 of 1 ==
Date: Fri, Nov 16 2007 10:40 pm
From: Tom van Stiphout

On Fri, 16 Nov 2007 11:29:01 -0800, Del
<Del@discussions.microsoft.com> wrote:

What did the help file or the vendor of this ocx say when you asked
them?

-Tom.

>How do I turn on the "Show me" function that Ouactrl.ocx update disabled?

==============================================================================
TOPIC: MI5 Persecution: BHS Croydon 18/12/98 (2819)
http://groups.google.com/group/microsoft.public.access.modulesdaovba/browse_thread/thread/c4aefba32f706d1e?hl=en
==============================================================================

== 1 of 1 ==
Date: Fri, Nov 16 2007 7:52 pm
From: MI5Victim@mi5.gov.uk

Evil old bat in BHS 18/12/98

Certainty level: 40%

Not quite sure how sure I am about this one. I went down to Croydon (Surrey)
with my mother to buy her a beret. After doing the shopping, we went to
the BHS store restaurant to lunch on fish and chips.

You can guess the rest. Auditory hallucinations my shrink calls them,
faithfully recorded on Sony minidisc. Some old cow going on about
"see that chap, the one over there, something's wrong with him".

It is quite tiring being attacked by random idiots in the street, or as
in this case, by some random, evil old bat in a restaurant. Fortunately
it is only a sporadic occurrence. My enemies seem of late reluctant to
waste resources in my direction. Should I take this as an insult? Am I not
worth the millions of taxpayers money which has been wasted on me? Are the
obsessives of MI5 themselves the "nutters" and "really mad" which they
accuse me of being? Interestingly this suggestion as to the psychological
profiles of Security Service personnel has been made by others... it does
lead one to wonder, doesn't it?

2819

--
Posted via NewsDemon.com - Premium Uncensored Newsgroup Service
------->>>>>>http://www.NewsDemon.com<<<<<<------
Unlimited Access, Anonymous Accounts, Uncensored Broadband Access

==============================================================================

You received this message because you are subscribed to the Google Groups "microsoft.public.access.modulesdaovba"
group.

To post to this group, visit http://groups.google.com/group/microsoft.public.access.modulesdaovba?hl=en

To unsubscribe from this group, send email to microsoft.public.access.modulesdaovba-unsubscribe@googlegroups.com

To change the way you get mail from this group, visit:
http://groups.google.com/group/microsoft.public.access.modulesdaovba/subscribe?hl=en

To report abuse, send email explaining the problem to abuse@googlegroups.com

==============================================================================
Google Groups: http://groups.google.com?hl=en

Excel for Life

Sabtu, 17 November 2007

19 new messages in 13 topics - digest

Tidak ada komentar:

Arsip Blog

Blogeroll

Mengenai Saya