There does not seem to be anything special about that site. I just threw this page together...
And it displays fine in IE8. The HTML for the frame is...
myFrame
myFrame
Heading 2
Normal
This Web Page Created with PageBreeze Free HTML
Editor
Lambert
-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence
Sent: Thursday, June 03, 2010 11:24 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Is IE8 crippled?
Hi Lambert:
That is interesting Lambert. I wonder if " http://www.w3schools.com " has some kind of meta tag setting that fixes IE8?
Jim
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Thursday, June 03, 2010 6:34 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Is IE8 crippled?
I'm currently looking at this site in IE8
http://www.w3schools.com/tags/tryit.asp?filename=tryhtml_iframe
And it is displaying the iFrame perfectly well, and no, w3schiools.com is
*not* in the compatibility mode list.
Lambert
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Karen Rosenstiel
Sent: Thursday, June 03, 2010 8:40 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Is IE8 crippled?
1. It is supposed to have a compatibility mode -- set it to be backwards compatible.
2. Uninstall IE8.
http://support.microsoft.com/kb/956197
Regards,
Karen Rosenstiel
Seattle WA USA
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence
Sent: Thursday, June 03, 2010 12:03 AM
To: 'Discussion of Hardware and Software issues'; 'Access Developers discussion and problem solving'
Subject: [AccessD] Is IE8 crippled?
Importance: High
I must have been out of the loop but I have just installed the latest version of IE8 on one of my test computers as I am doing a series of browser tests for a new client's web site.
It appears the IE8 does not support IFRAMES even for local domains... This is going to require a major rewrite with a lot of coding... as well it screws up JQuery in various ways. To say the least IE8 looks like a nightmare.
Any help or suggestions?
Jim
--
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
From Chester_Kaup at kindermorgan.com Thu Jun 3 11:17:37 2010
From: Chester_Kaup at kindermorgan.com (Kaup, Chester)
Date: Thu, 3 Jun 2010 11:17:37 -0500
Subject: [AccessD] Query question
In-Reply-To:
References: <0B2BF8524B73A248A2F1B81BA751ED3C191E187C71@houex1.kindermorgan.com>
<4C06BCB9.4000303@trapo.com>
<0B2BF8524B73A248A2F1B81BA751ED3C191E187CCB@houex1.kindermorgan.com>
<4C06D2BF.30607@trapo.com>
Message-ID: <0B2BF8524B73A248A2F1B81BA751ED3C191E187E34@houex1.kindermorgan.com>
Yes 100 records.
I tried the change to the SQL listed below and get the same result as the original query. Just much cleaner.
-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David McAfee
Sent: Wednesday, June 02, 2010 5:34 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Query question
Chester, if you take the WHERE caluse out, how many records do you get? 100?
If so, then it is because of the "True = -1" and that would mean
returning only 4 records is correct.
On Wed, Jun 2, 2010 at 3:08 PM, David McAfee wrote:
> This is true.
>
> Chester , what happens if change the WHERE clause to the following:
>
> WHERE ?([Design_Fluid_Status_Id]='WI' AND ([Status]='WAGC' OR [Status]='CI'))
> ? ? ? ?OR ([Design_Fluid_Status_Id]='CI' AND ([Status]='WAGW' OR [Status]='WI'))
>
>
>
> On Wed, Jun 2, 2010 at 2:53 PM, Fred Hooper wrote:
>> Agreed, weird. I guess it comes down to what's right: 100 or 4 records?
>>
>> On 6/2/2010 5:07 PM, David McAfee wrote:
>>> That's so weird. It's basically saying WHERE True = -1 ? or WHERE False =-1
>>>
>>> On Wed, Jun 2, 2010 at 1:55 PM, Kaup, Chester
>>> wrote:
>>>
>>>> Apparently something else is going on because without the -1 I get 100 records and with it 4 records. If I look at the results each record returns a 0 or 1.
>>>>
>>>> -----Original Message-----
>>>> From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
>>>> Sent: Wednesday, June 02, 2010 3:19 PM
>>>> To: Access Developers discussion and problem solving
>>>> Subject: Re: [AccessD] Query question
>>>>
>>>> Hi Chester,
>>>>
>>>> It looks like "-1" is a synonym for True, and therefore redundant in a Where clause as nothing would be returned unless the Where clause were True
>>>> WHERE (
>>>> (([Status]='WAGC' And [Design_Fluid_Status_Id]='WI')
>>>> Or ([Status]='WAGW' And [Design_Fluid_Status_Id]='CI')
>>>> Or ([Status]='CI' And [Design_Fluid_Status_Id]='WI')
>>>> Or ([Status]='WI' And [Design_Fluid_Status_Id]='CI'))
>>>> =-1)
>>>>
>>>> This would do the same thing:
>>>> WHERE
>>>> (([Status]='WAGC' And [Design_Fluid_Status_Id]='WI')
>>>> Or ([Status]='WAGW' And [Design_Fluid_Status_Id]='CI')
>>>> Or ([Status]='CI' And [Design_Fluid_Status_Id]='WI')
>>>> Or ([Status]='WI' And [Design_Fluid_Status_Id]='CI'))
>>>>
>>>> Fred Hooper
>>>>
>>>> On 6/2/2010 3:13 PM, Kaup, Chester wrote:
>>>>
>>>>
>>>>> This is part of a query that someone gave me. I am not sure what it is really doing. I am thinking it returns a value of -1 if any of the conditions are true. Is that correct? I have not in my limited experience see anything like this before. Is this the best way to do this? Thanks
>>>>>
>>>>> WHERE ((([Status]='WAGC' And [Design_Fluid_Status_Id]='WI')
>>>>> Or ([Status]='WAGW' And [Design_Fluid_Status_Id]='CI')
>>>>> Or ([Status]='CI' And [Design_Fluid_Status_Id]='WI')
>>>>> Or ([Status]='WI' And [Design_Fluid_Status_Id]='CI'))=-1)
>>>>>
>>>>>
>>>>> Chester Kaup
>>>>> Engineering Technician
>>>>> Kinder Morgan CO2 Company, LLP
>>>>> Office (432) 688-3797
>>>>> FAX (432) 688-3799
>>>>>
>>>>>
>>>>> No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced.
>>>>>
>>>>>
>>>>>
>>>>>
>>>> --
>>>> 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
From accessd at shaw.ca Thu Jun 3 11:30:43 2010
From: accessd at shaw.ca (Jim Lawrence)
Date: Thu, 3 Jun 2010 09:30:43 -0700
Subject: [AccessD] Is IE8 crippled?
In-Reply-To: <2122575519.4233341275579564710.JavaMail.root@sz0037a.emeryville.ca.mail.comcast.net>
References: <66F01ECD9666410E8C706CB6468115E9@creativesystemdesigns.com>
<2122575519.4233341275579564710.JavaMail.root@sz0037a.emeryville.ca.mail.comcast.net>
Message-ID: <77E0D23FC7B9493281AFD3983E7C4EF4@creativesystemdesigns.com>
Hi Karen and Lambert:
I discovered what the problem was and the solution.
Preamble: My main web development server is having some hardware issues and
is currently limping along until I can replace the motherboard, CPU and Hard
drives, etc... That server hosts my Dreamweaver and VS packages. In the
meantime, I have been using Developers' Notepad as I know all the standard
HTML syntax and do not necessarily need to be prompted.
On a particular page, the one with the IFrame on it, I had just cut a pasted
the header off the nearest website I could find and then carried on. In my
defense, late at night things are not always obvious:
And it should have read...
And of course the page filling the IFrame had a different header. All other
browsers except IE8 seemed unconcerned.
Anyway the problem is solved and solution discovered. Thanks again for your
help.
Jim
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
krosenstiel at comcast.net
Sent: Thursday, June 03, 2010 8:39 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Is IE8 crippled?
Don't know about testing whether IE8 compatibility mode is on or off -- for
a multiple-install site, right?
Karen Rosenstiel
Seattle WA USA
----- Original Message -----
From: "Jim Lawrence"
To: "Access Developers discussion and problem solving"
Sent: Thursday, June 3, 2010 8:19:56 AM GMT -08:00 US/Canada Pacific
Subject: Re: [AccessD] Is IE8 crippled?
Hi Karen:
Although I am very tempted to use item 2, item 1 will have to do. Thank you
so much Karen. 8-)
A fellow IT guy says that about a month ago, on a large install of Windows7
his crew removed IE8 from all the stations and are still holding high hopes
for IE9. It does seem drastic but at 2:00AM this morning, a much larger
culling did not seem inappropriate.
I was just reading an excellent MS article on how to do overlapping IFrames
so it seems so odd that they do not allow their browsers to support even
local domain IFrames out of the box so to speak? I know what you are going
to say about there being a 'local' compatibility mode but it does not work.
While we are on the subject do you have a method handy for testing whether a
version of IE8 has set compatibility mode of or still off.
TIA
Jim
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Karen Rosenstiel
Sent: Thursday, June 03, 2010 5:40 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Is IE8 crippled?
1. It is supposed to have a compatibility mode -- set it to be backwards
compatible.
2. Uninstall IE8.
http://support.microsoft.com/kb/956197
Regards,
Karen Rosenstiel
Seattle WA USA
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence
Sent: Thursday, June 03, 2010 12:03 AM
To: 'Discussion of Hardware and Software issues'; 'Access Developers
discussion and problem solving'
Subject: [AccessD] Is IE8 crippled?
Importance: High
I must have been out of the loop but I have just installed the latest
version of IE8 on one of my test computers as I am doing a series of browser
tests for a new client's web site.
It appears the IE8 does not support IFRAMES even for local domains... This
is going to require a major rewrite with a lot of coding... as well it
screws up JQuery in various ways. To say the least IE8 looks like a
nightmare.
Any help or suggestions?
Jim
--
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
From mmattys at rochester.rr.com Thu Jun 3 11:50:40 2010
From: mmattys at rochester.rr.com (Mike Mattys)
Date: Thu, 3 Jun 2010 12:50:40 -0400
Subject: [AccessD] Is IE8 crippled?
References: <66F01ECD9666410E8C706CB6468115E9@creativesystemdesigns.com><2122575519.4233341275579564710.JavaMail.root@sz0037a.emeryville.ca.mail.comcast.net>
<77E0D23FC7B9493281AFD3983E7C4EF4@creativesystemdesigns.com>
Message-ID: <336DF1DCB4564EC7905D894507F19C60@Gateway>
Hi Jim,
Although it has become an Access-D traditional method to discover this just
seconds after
hitting the send key on the initial help request, there is always room for
finesse.
Thanks for the lesson.
Michael R Mattys
Business Process Developers
www.mattysconsulting.com
----- Original Message -----
From: "Jim Lawrence"
To: "'Access Developers discussion and problem solving'"
Sent: Thursday, June 03, 2010 12:30 PM
Subject: Re: [AccessD] Is IE8 crippled?
> Hi Karen and Lambert:
>
> I discovered what the problem was and the solution.
>
> Preamble: My main web development server is having some hardware issues
> and
> is currently limping along until I can replace the motherboard, CPU and
> Hard
> drives, etc... That server hosts my Dreamweaver and VS packages. In the
> meantime, I have been using Developers' Notepad as I know all the standard
> HTML syntax and do not necessarily need to be prompted.
>
> On a particular page, the one with the IFrame on it, I had just cut a
> pasted
> the header off the nearest website I could find and then carried on. In my
> defense, late at night things are not always obvious:
>
> "DTD/xhtml1-strict.dtd">
>
>
> And it should have read...
>
> "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
>
>
> And of course the page filling the IFrame had a different header. All
> other
> browsers except IE8 seemed unconcerned.
>
> Anyway the problem is solved and solution discovered. Thanks again for
> your
> help.
>
> Jim
>
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> krosenstiel at comcast.net
> Sent: Thursday, June 03, 2010 8:39 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Is IE8 crippled?
>
> Don't know about testing whether IE8 compatibility mode is on or off --
> for
> a multiple-install site, right?
>
> Karen Rosenstiel
> Seattle WA USA
>
> ----- Original Message -----
> From: "Jim Lawrence"
> To: "Access Developers discussion and problem solving"
>
> Sent: Thursday, June 3, 2010 8:19:56 AM GMT -08:00 US/Canada Pacific
> Subject: Re: [AccessD] Is IE8 crippled?
>
> Hi Karen:
>
> Although I am very tempted to use item 2, item 1 will have to do. Thank
> you
> so much Karen. 8-)
>
> A fellow IT guy says that about a month ago, on a large install of
> Windows7
> his crew removed IE8 from all the stations and are still holding high
> hopes
> for IE9. It does seem drastic but at 2:00AM this morning, a much larger
> culling did not seem inappropriate.
>
> I was just reading an excellent MS article on how to do overlapping
> IFrames
> so it seems so odd that they do not allow their browsers to support even
> local domain IFrames out of the box so to speak? I know what you are going
> to say about there being a 'local' compatibility mode but it does not
> work.
>
> While we are on the subject do you have a method handy for testing whether
> a
>
> version of IE8 has set compatibility mode of or still off.
>
> TIA
> Jim
>
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Karen
> Rosenstiel
> Sent: Thursday, June 03, 2010 5:40 AM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Is IE8 crippled?
>
> 1. It is supposed to have a compatibility mode -- set it to be backwards
> compatible.
>
> 2. Uninstall IE8.
>
> http://support.microsoft.com/kb/956197
>
> Regards,
>
> Karen Rosenstiel
> Seattle WA USA
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence
> Sent: Thursday, June 03, 2010 12:03 AM
> To: 'Discussion of Hardware and Software issues'; 'Access Developers
> discussion and problem solving'
> Subject: [AccessD] Is IE8 crippled?
> Importance: High
>
> I must have been out of the loop but I have just installed the latest
> version of IE8 on one of my test computers as I am doing a series of
> browser
>
> tests for a new client's web site.
>
> It appears the IE8 does not support IFRAMES even for local domains... This
> is going to require a major rewrite with a lot of coding... as well it
> screws up JQuery in various ways. To say the least IE8 looks like a
> nightmare.
>
> Any help or suggestions?
>
> Jim
>
> --
> 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
>
From adtp at airtelmail.in Thu Jun 3 13:41:22 2010
From: adtp at airtelmail.in (A.D. Tejpal)
Date: Fri, 4 Jun 2010 00:11:22 +0530
Subject: [AccessD] Attachment Data Type
References:
Message-ID:
Arthur,
Sample procedure named P_ExportImgAttachmentsToWord() as given below,
will export the .jpg type attachments on current record of the form, to
destination word document. The images get inserted at pre-existing
sequential bookmarks.
The bookmarks can be in any alphanumeric series. The first bookmark
where insertion of images is required to commence, can be passed as an
argument. If starting bookmark is not specified, it defaults to "Pic001".
Sample call in click event of form's command button would be as follows
(SampleWord.doc is the destination word document located in the same folder
that holds the access db. Fatt is the name of control bound to attachment
type field):
' Code in form's module:
'=============================
Private Sub CmdExpToWord_Click()
P_ExportImgAttachmentsToWord Me, _
"Fatt", CurrentProject.Path & _
"\SampleWord.doc", "Pic001"
End Sub
'=============================
Note:
(a) The bookmarks can be any alphanumeric series. For example, if "Img005"
is passed as an argument for starting bookmark, the available images will
get inserted at "Img005", "Img006", "Img007" and so on.
(b) Simultaneously, copy of each exported image gets stored in the temporary folder.
Best wishes,
A.D. Tejpal
------------
' Code in general module
'=====================================
' Declarations section
Public Const TempFolderName As String = "ZZZTemp"
'--------------------------------------------------------
Sub P_ExportImgAttachmentsToWord( _
fm As Access.Form, _
ControlName As String, _
WordDocPath As String, _
Optional StartBkMark As _
String = "Pic001")
On Error Resume Next
Dim wd As Word.Application
Dim rst As DAO.Recordset2
Dim fdAtch As DAO.Field2
Dim fso As FileSystemObject
Dim Fpt As String, Cnt As Long
Dim DocName As String, FmtString As String
Dim BkMark As String, Pfx As String
Dim TempFolderPath As String
Set fso = New FileSystemObject
Pfx = Fn_Prefix(StartBkMark)
FmtString = String(Len(StartBkMark) - _
Len(Pfx), "0")
Cnt = Val(Mid(StartBkMark, Len(Pfx) + 1)) - 1
' Set temp folder path
' This temp folder is placed within the folder
' housing this db and will get created if missing.
TempFolderPath = CurrentProject.Path & "\" & _
TempFolderName
If Not fso.FolderExists(Fpt) Then
MkDir Fpt
End If
Set wd = New Word.Application
wd.Documents.Open WordDocPath
Set rst = fm.Recordset.Fields( _
fm(ControlName).ControlSource).Value
With rst
.MoveFirst
Do Until .EOF
DocName = .Fields("FileName")
If DocName Like "*.jpg" Then
Cnt = Cnt + 1
BkMark = Pfx & Format(Cnt, FmtString)
' Set path for temp file
Fpt = TempFolderPath & "\" & DocName
' Delete any such file if existing
fso.DeleteFile Fpt
' Set fdAtch to binary data for the
' attachment component
Set fdAtch = .Fields("FileData")
' Save to destn path in temp folder
fdAtch.SaveToFile Fpt
' Insert this image file at proper
' bookmark in word doc and exit
' if export not successful
Err.Clear
wd.Selection.GoTo What:=wdGoToBookmark, _
Name:=BkMark
If Err.Number <> 0 Then
MsgBox "No more sequential bookmarks available"
Exit Do
End If
wd.Selection.InlineShapes.AddPicture FileName:= _
Fpt, LinkToFile:=False, _
SaveWithDocument:=True
End If
.MoveNext
Loop
.Close
End With
wd.ActiveDocument.Save
wd.Quit
MsgBox "Images attached to current record " & _
"have been exported to " & _
WordDocPath & vbCrLf & vbCrLf & _
"Copies also extracted to folder " & _
TempFolderName & vbCrLf & _
"(Placed in the main folder housing this db)"
Set wd = Nothing
Set fdAtch = Nothing
Set rst = Nothing
Set fso = Nothing
On Error GoTo 0
End Sub
'-----------------------------------------------------
Function Fn_Prefix(ByVal Fdv As Variant) As String
' Returns The Vaue Of Non-Numeric Prefix
' In Field Value Fdv
On Error Resume Next
Dim Pfx As String, Pos As Integer, Cnt As Integer, Txt As String
Pfx = ""
Fdv = Fdv & ""
If Len(Fdv) > 0 Then
Else
GoTo ExitPoint
End If ' Len(Fdv) > 0
Pos = 1
Do While Pos <= Len(Fdv)
If IsNumeric(Mid(Fdv, Pos, 1)) Then
Exit Do
End If
Pos = Pos + 1
Loop
If Pos > 1 Then
Pfx = Left(Fdv, Pos - 1)
End If ' Pos > 1
ExitPoint:
Fn_Prefix = Pfx
On Error GoTo 0
End Function
'=============================
----- Original Message -----
From: Arthur Fuller
To: Access Developers discussion and problem solving
Sent: Wednesday, June 02, 2010 18:47
Subject: [AccessD] Attachment Data Type
I have been playing with the Attachment data type, introduced in Access
2007. Using the samples provided by Helen Fedemma and A.D. Tejpal, I have
learned how to perform the basic operations (insert, remove, extract, and
open in original app), but now I want to go a step further.
Assume a Word document containing bookmarks which are populated from Access
code. I have all that working fine. But now I want to auto-populate four new
bookmarks (call them Pic1...4) with photos that are stored as Attachments on
the Access record of interest. I have no clue how to achieve this.
Any help or pointer to a sample will be much appreciated.
TIA,
Arthur
From accessd at shaw.ca Thu Jun 3 14:17:55 2010
From: accessd at shaw.ca (Jim Lawrence)
Date: Thu, 3 Jun 2010 12:17:55 -0700
Subject: [AccessD] Is IE8 crippled?
In-Reply-To: <336DF1DCB4564EC7905D894507F19C60@Gateway>
References: <66F01ECD9666410E8C706CB6468115E9@creativesystemdesigns.com>
<2122575519.4233341275579564710.JavaMail.root@sz0037a.emeryville.ca.mail.comcast.net>
<77E0D23FC7B9493281AFD3983E7C4EF4@creativesystemdesigns.com>
<336DF1DCB4564EC7905D894507F19C60@Gateway>
Message-ID: <0F91D6952183463A8462D64AF924D679@creativesystemdesigns.com>
Hi Michael:
I have developed a bit of a following for being able to assemble websites
that emulate much of the features that a desktop app can provide. I would
not attribute that to my brilliance but to my ability "find" (I do not like
the word pilfer) excellent internet implementations and re-work them to any
client's specifications.
Now that the site is working perfectly, for all other browsers and is
tricked up to the hilt, the two days working on the site will most like
double by the time MS is satisfied. One day I would like to not have to add
a "*" as a prefix through out my CSS so to assist Microsoft in its various
idiosyncrasies and challenges.
Jim
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mike Mattys
Sent: Thursday, June 03, 2010 9:51 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Is IE8 crippled?
Hi Jim,
Although it has become an Access-D traditional method to discover this just
seconds after
hitting the send key on the initial help request, there is always room for
finesse.
Thanks for the lesson.
Michael R Mattys
Business Process Developers
www.mattysconsulting.com
----- Original Message -----
From: "Jim Lawrence"
To: "'Access Developers discussion and problem solving'"
Sent: Thursday, June 03, 2010 12:30 PM
Subject: Re: [AccessD] Is IE8 crippled?
> Hi Karen and Lambert:
>
> I discovered what the problem was and the solution.
>
> Preamble: My main web development server is having some hardware issues
> and
> is currently limping along until I can replace the motherboard, CPU and
> Hard
> drives, etc... That server hosts my Dreamweaver and VS packages. In the
> meantime, I have been using Developers' Notepad as I know all the standard
> HTML syntax and do not necessarily need to be prompted.
>
> On a particular page, the one with the IFrame on it, I had just cut a
> pasted
> the header off the nearest website I could find and then carried on. In my
> defense, late at night things are not always obvious:
>
> "DTD/xhtml1-strict.dtd">
>
>
> And it should have read...
>
> "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
>
>
> And of course the page filling the IFrame had a different header. All
> other
> browsers except IE8 seemed unconcerned.
>
> Anyway the problem is solved and solution discovered. Thanks again for
> your
> help.
>
> Jim
>
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> krosenstiel at comcast.net
> Sent: Thursday, June 03, 2010 8:39 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Is IE8 crippled?
>
> Don't know about testing whether IE8 compatibility mode is on or off --
> for
> a multiple-install site, right?
>
> Karen Rosenstiel
> Seattle WA USA
>
> ----- Original Message -----
> From: "Jim Lawrence"
> To: "Access Developers discussion and problem solving"
>
> Sent: Thursday, June 3, 2010 8:19:56 AM GMT -08:00 US/Canada Pacific
> Subject: Re: [AccessD] Is IE8 crippled?
>
> Hi Karen:
>
> Although I am very tempted to use item 2, item 1 will have to do. Thank
> you
> so much Karen. 8-)
>
> A fellow IT guy says that about a month ago, on a large install of
> Windows7
> his crew removed IE8 from all the stations and are still holding high
> hopes
> for IE9. It does seem drastic but at 2:00AM this morning, a much larger
> culling did not seem inappropriate.
>
> I was just reading an excellent MS article on how to do overlapping
> IFrames
> so it seems so odd that they do not allow their browsers to support even
> local domain IFrames out of the box so to speak? I know what you are going
> to say about there being a 'local' compatibility mode but it does not
> work.
>
> While we are on the subject do you have a method handy for testing whether
> a
>
> version of IE8 has set compatibility mode of or still off.
>
> TIA
> Jim
>
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Karen
> Rosenstiel
> Sent: Thursday, June 03, 2010 5:40 AM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Is IE8 crippled?
>
> 1. It is supposed to have a compatibility mode -- set it to be backwards
> compatible.
>
> 2. Uninstall IE8.
>
> http://support.microsoft.com/kb/956197
>
> Regards,
>
> Karen Rosenstiel
> Seattle WA USA
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence
> Sent: Thursday, June 03, 2010 12:03 AM
> To: 'Discussion of Hardware and Software issues'; 'Access Developers
> discussion and problem solving'
> Subject: [AccessD] Is IE8 crippled?
> Importance: High
>
> I must have been out of the loop but I have just installed the latest
> version of IE8 on one of my test computers as I am doing a series of
> browser
>
> tests for a new client's web site.
>
> It appears the IE8 does not support IFRAMES even for local domains... This
> is going to require a major rewrite with a lot of coding... as well it
> screws up JQuery in various ways. To say the least IE8 looks like a
> nightmare.
>
> Any help or suggestions?
>
> Jim
>
> --
> 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
>
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
From Chester_Kaup at kindermorgan.com Thu Jun 3 15:10:01 2010
From: Chester_Kaup at kindermorgan.com (Kaup, Chester)
Date: Thu, 3 Jun 2010 15:10:01 -0500
Subject: [AccessD] Excel process hangs
Message-ID: <0B2BF8524B73A248A2F1B81BA751ED3C191E187EE5@houex1.kindermorgan.com>
I have the following module that opens Excel does some work and then closes Excel. Problem is that even though Excel closes the process is still running. What am I missing on killing the process. Thanks.
Function GetTemperature()
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.WorkBooks.Open "C:\Files\Excel\NOAA Data.xls"
xl.Visible = True
xl.Sheets("Sheet1").Select
xl.Range("A1").Select
xl.ActiveCell.QueryTable.Refresh
xl.Application.Run "Macro1"
strSql = "DELETE * from [tbl Temperature];"
DBEngine(0)(0).Execute strSql, dbFailOnError
DoCmd.TransferSpreadsheet acImport, 8, "tbl Temperature", "c:\files\excel\NOAA Data.xls", True, "Sheet3!a1:b32767"
xl.DisplayAlerts = False
xl.Save
xl.DisplayAlerts = True
xl.Quit
Set xlWorkBooks = Nothing
Set xl = Nothing
End Function
Chester Kaup
Engineering Technician
Kinder Morgan CO2 Company, LLP
Office (432) 688-3797
FAX (432) 688-3799
?
No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced.
From lmrazek at lcm-res.com Thu Jun 3 16:24:48 2010
From: lmrazek at lcm-res.com (Lawrence Mrazek)
Date: Thu, 3 Jun 2010 16:24:48 -0500
Subject: [AccessD] Reports over Pre-printed forms
In-Reply-To:
References:
Message-ID: <021a01cb0363$330da910$9928fb30$@com>
Hi Folks:
I'm wondering if anyone else has dealt with this scenario.
Client has to fill out standardized forms from a government agency, and
we've scanned the forms in to allow us to out our data over the pre-printed
form.
Basically, scenario is this:
Page 1: basic information, Address, etc.
Page 2: detail information, with slots for up to 6 detail records
(this is the problem)
(if page 2 has more than 6 records we need to be able to print another page
with the same form background, starting on record #7). I need the report to
be able to adjust to cope with a report with more than 6 records.
Any advice would be appreciated ... Thanks!
Larry Mrazek
ph. 314-496-1645
lmrazek at lcm-res.com
http://www.lcm-res.com
From fuller.artful at gmail.com Thu Jun 3 18:03:05 2010
From: fuller.artful at gmail.com (Arthur Fuller)
Date: Thu, 3 Jun 2010 19:03:05 -0400
Subject: [AccessD] Attachment Data Type
In-Reply-To:
References:
Message-ID:
Wow! Thanks so much, A.D.
Arthur
From Darryl.Collins at iag.com.au Thu Jun 3 19:10:38 2010
From: Darryl.Collins at iag.com.au (Darryl Collins)
Date: Fri, 4 Jun 2010 10:10:38 +1000
Subject: [AccessD] Excel process hangs
In-Reply-To: <0B2BF8524B73A248A2F1B81BA751ED3C191E187EE5@houex1.kindermorgan.com>
Message-ID: <201006040010.o540AawC024679@databaseadvisors.com>
_______________________________________________________________________________________
Note: This e-mail is subject to the disclaimer contained at the bottom of this message.
_______________________________________________________________________________________
Hi Cheser,
When you say the process is still running, do you mean the Excel Application is still running, or the something else?
You can make you code a bit sharper if you are interested. I also recommend setting the workbook as well as the app. Code not tested.
'--------------------------------------------------------------------------------------------------------------------
Dim objExcelApp As Object
Dim objExcelWB as Excel.workbook
Set objExcelApp= CreateObject("Excel.Application")
With objExcelApp
.WorkBooks.Open "C:\Files\Excel\NOAA Data.xls"
.Visible = False ' Do you need to see this happen at all? Set to true if you do.
End with
Set objExcelWB = objExcelApp.ActiveWorkbook
With objExcelWB
.Sheets("Sheet1").Range("A1").QueryTable.Refresh
.Run "Macro1"
strSql = "DELETE * from [tbl Temperature];"
DBEngine(0)(0).Execute strSql, dbFailOnError
DoCmd.TransferSpreadsheet acImport, 8, "tbl Temperature", "c:\files\excel\NOAA Data.xls", True, "Sheet3!a1:b32767"
.Close True ' This will close and save the workbook without prompts
End with
Set objExcelWB = Nothing
objExcelApp.Quit
Set objExcelApp = Nothing
'----------------------------------------------------------------
Cheers
Darryl
-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester
Sent: Friday, 4 June 2010 6:10 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Excel process hangs
I have the following module that opens Excel does some work and then closes Excel. Problem is that even though Excel closes the process is still running. What am I missing on killing the process. Thanks.
Function GetTemperature()
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.WorkBooks.Open "C:\Files\Excel\NOAA Data.xls"
xl.Visible = True
xl.Sheets("Sheet1").Select
xl.Range("A1").Select
xl.ActiveCell.QueryTable.Refresh
xl.Application.Run "Macro1"
strSql = "DELETE * from [tbl Temperature];"
DBEngine(0)(0).Execute strSql, dbFailOnError
DoCmd.TransferSpreadsheet acImport, 8, "tbl Temperature", "c:\files\excel\NOAA Data.xls", True, "Sheet3!a1:b32767"
xl.DisplayAlerts = False
xl.Save
xl.DisplayAlerts = True
xl.Quit
Set xlWorkBooks = Nothing
Set xl = Nothing
End Function
Chester Kaup
Engineering Technician
Kinder Morgan CO2 Company, LLP
Office (432) 688-3797
FAX (432) 688-3799
?
No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced.
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
_______________________________________________________________________________________
The information transmitted in this message and its attachments (if any) is intended
only for the person or entity to which it is addressed.
The message may contain confidential and/or privileged material. Any review,
retransmission, dissemination or other use of, or taking of any action in reliance
upon this information, by persons or entities other than the intended recipient is
prohibited.
If you have received this in error, please contact the sender and delete this e-mail
and associated material from any computer.
The intended recipient of this e-mail may only use, reproduce, disclose or distribute
the information contained in this e-mail and any attached files, with the permission
of the sender.
This message has been scanned for viruses.
_______________________________________________________________________________________
From Chester_Kaup at kindermorgan.com Fri Jun 4 07:17:39 2010
From: Chester_Kaup at kindermorgan.com (Kaup, Chester)
Date: Fri, 4 Jun 2010 07:17:39 -0500
Subject: [AccessD] Excel process hangs
In-Reply-To: <201006040010.o540AawC024679@databaseadvisors.com>
References: <0B2BF8524B73A248A2F1B81BA751ED3C191E187EE5@houex1.kindermorgan.com>
<201006040010.o540AawC024679@databaseadvisors.com>
Message-ID: <0B2BF8524B73A248A2F1B81BA751ED3C191E187F6D@houex1.kindermorgan.com>
Excel does not show to be open on the windows toolbar at the bottom of the screen however if I open the task manager and look at processes EXCEL.EXE still shows to be running.
Thanks for the code hints.
Excel was set to visible only for development purposes.
Thanks.
-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darryl Collins
Sent: Thursday, June 03, 2010 7:11 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Excel process hangs
_______________________________________________________________________________________
Note: This e-mail is subject to the disclaimer contained at the bottom of this message.
_______________________________________________________________________________________
Hi Cheser,
When you say the process is still running, do you mean the Excel Application is still running, or the something else?
You can make you code a bit sharper if you are interested. I also recommend setting the workbook as well as the app. Code not tested.
'--------------------------------------------------------------------------------------------------------------------
Dim objExcelApp As Object
Dim objExcelWB as Excel.workbook
Set objExcelApp= CreateObject("Excel.Application")
With objExcelApp
.WorkBooks.Open "C:\Files\Excel\NOAA Data.xls"
.Visible = False ' Do you need to see this happen at all? Set to true if you do.
End with
Set objExcelWB = objExcelApp.ActiveWorkbook
With objExcelWB
.Sheets("Sheet1").Range("A1").QueryTable.Refresh
.Run "Macro1"
strSql = "DELETE * from [tbl Temperature];"
DBEngine(0)(0).Execute strSql, dbFailOnError
DoCmd.TransferSpreadsheet acImport, 8, "tbl Temperature", "c:\files\excel\NOAA Data.xls", True, "Sheet3!a1:b32767"
.Close True ' This will close and save the workbook without prompts
End with
Set objExcelWB = Nothing
objExcelApp.Quit
Set objExcelApp = Nothing
'----------------------------------------------------------------
Cheers
Darryl
-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester
Sent: Friday, 4 June 2010 6:10 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Excel process hangs
I have the following module that opens Excel does some work and then closes Excel. Problem is that even though Excel closes the process is still running. What am I missing on killing the process. Thanks.
Function GetTemperature()
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.WorkBooks.Open "C:\Files\Excel\NOAA Data.xls"
xl.Visible = True
xl.Sheets("Sheet1").Select
xl.Range("A1").Select
xl.ActiveCell.QueryTable.Refresh
xl.Application.Run "Macro1"
strSql = "DELETE * from [tbl Temperature];"
DBEngine(0)(0).Execute strSql, dbFailOnError
DoCmd.TransferSpreadsheet acImport, 8, "tbl Temperature", "c:\files\excel\NOAA Data.xls", True, "Sheet3!a1:b32767"
xl.DisplayAlerts = False
xl.Save
xl.DisplayAlerts = True
xl.Quit
Set xlWorkBooks = Nothing
Set xl = Nothing
End Function
Chester Kaup
Engineering Technician
Kinder Morgan CO2 Company, LLP
Office (432) 688-3797
FAX (432) 688-3799
?
No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced.
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
_______________________________________________________________________________________
The information transmitted in this message and its attachments (if any) is intended
only for the person or entity to which it is addressed.
The message may contain confidential and/or privileged material. Any review,
retransmission, dissemination or other use of, or taking of any action in reliance
upon this information, by persons or entities other than the intended recipient is
prohibited.
If you have received this in error, please contact the sender and delete this e-mail
and associated material from any computer.
The intended recipient of this e-mail may only use, reproduce, disclose or distribute
the information contained in this e-mail and any attached files, with the permission
of the sender.
This message has been scanned for viruses.
_______________________________________________________________________________________
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
From BradM at blackforestltd.com Fri Jun 4 14:32:23 2010
From: BradM at blackforestltd.com (Brad Marks)
Date: Fri, 4 Jun 2010 14:32:23 -0500
Subject: [AccessD] Access 2007 Generated SQL "Join" Question
Message-ID:
I have a question regarding the SQL that is generated by Access 2007.
To ask this question, I put together this simple example.
Two small test tables were set up.
Customer Table has two fields; Cust_Name and Cust_State
Example data
John Doe
NY
State Table has two fields; State_Code and State_Name
Example data
NY
New York
As you can see, Cust_State and State_Code is the "common" field
~ ~ ~ ~
Using Access 2007 Query Design View with "Criteria" for State_Code =
[tbl_Customers].[Cust_State]
generates this SQL -
SELECT tbl_Customers.Cust_Name, tbl_Customers.Cust_State,
tbl_State.State_Code, tbl_State.State_Name
FROM tbl_Customers, tbl_State
WHERE (((tbl_State.State_Code)=[tbl_Customers].[Cust_State]));
~ ~ ~ ~
Using Query Design View and using "Join Properties" (I picked Option 1
in the join properties). There is now line connecting the two tables in
the upper portion of the Query Design View. Here is the SQL that is
generated from this approach.
SELECT tbl_Customers.Cust_Name, tbl_Customers.Cust_State,
tbl_State.State_Code, tbl_State.State_Name
FROM tbl_Customers INNER JOIN tbl_State ON tbl_Customers.Cust_State =
tbl_State.State_Code;
~ ~ ~ ~
Even though the generated SQL is different, both approaches produce the
same end results.
Does it make any difference which approach is used?
The first approach is "joining" the two tables, even though we don't see
the word "join" in the generated SQL.
Are there performance implications when the tables contain large numbers
of records?
Thanks,
Brad
~ ~ ~ ~ ~ ~ ~
From Chester_Kaup at kindermorgan.com Fri Jun 4 15:32:32 2010
From: Chester_Kaup at kindermorgan.com (Kaup, Chester)
Date: Fri, 4 Jun 2010 15:32:32 -0500
Subject: [AccessD] Excel process hangs
In-Reply-To: <201006040010.o540AawC024679@databaseadvisors.com>
References: <0B2BF8524B73A248A2F1B81BA751ED3C191E187EE5@houex1.kindermorgan.com>
<201006040010.o540AawC024679@databaseadvisors.com>
Message-ID: <0B2BF8524B73A248A2F1B81BA751ED3C191E1880A4@houex1.kindermorgan.com>
Problem has been solved for now. Seems that when access runs the excel macro it open another instance of Excel. Ended up killing the process with the following.
Dim RetVal
RetVal = Shell("taskkill /IM EXCEL.EXE /f")
RetVal = Shell("tasklist")
Thanks for the help.
-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darryl Collins
Sent: Thursday, June 03, 2010 7:11 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Excel process hangs
_______________________________________________________________________________________
Note: This e-mail is subject to the disclaimer contained at the bottom of this message.
_______________________________________________________________________________________
Hi Cheser,
When you say the process is still running, do you mean the Excel Application is still running, or the something else?
You can make you code a bit sharper if you are interested. I also recommend setting the workbook as well as the app. Code not tested.
'--------------------------------------------------------------------------------------------------------------------
Dim objExcelApp As Object
Dim objExcelWB as Excel.workbook
Set objExcelApp= CreateObject("Excel.Application")
With objExcelApp
.WorkBooks.Open "C:\Files\Excel\NOAA Data.xls"
.Visible = False ' Do you need to see this happen at all? Set to true if you do.
End with
Set objExcelWB = objExcelApp.ActiveWorkbook
With objExcelWB
.Sheets("Sheet1").Range("A1").QueryTable.Refresh
.Run "Macro1"
strSql = "DELETE * from [tbl Temperature];"
DBEngine(0)(0).Execute strSql, dbFailOnError
DoCmd.TransferSpreadsheet acImport, 8, "tbl Temperature", "c:\files\excel\NOAA Data.xls", True, "Sheet3!a1:b32767"
.Close True ' This will close and save the workbook without prompts
End with
Set objExcelWB = Nothing
objExcelApp.Quit
Set objExcelApp = Nothing
'----------------------------------------------------------------
Cheers
Darryl
-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester
Sent: Friday, 4 June 2010 6:10 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Excel process hangs
I have the following module that opens Excel does some work and then closes Excel. Problem is that even though Excel closes the process is still running. What am I missing on killing the process. Thanks.
Function GetTemperature()
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.WorkBooks.Open "C:\Files\Excel\NOAA Data.xls"
xl.Visible = True
xl.Sheets("Sheet1").Select
xl.Range("A1").Select
xl.ActiveCell.QueryTable.Refresh
xl.Application.Run "Macro1"
strSql = "DELETE * from [tbl Temperature];"
DBEngine(0)(0).Execute strSql, dbFailOnError
DoCmd.TransferSpreadsheet acImport, 8, "tbl Temperature", "c:\files\excel\NOAA Data.xls", True, "Sheet3!a1:b32767"
xl.DisplayAlerts = False
xl.Save
xl.DisplayAlerts = True
xl.Quit
Set xlWorkBooks = Nothing
Set xl = Nothing
End Function
Chester Kaup
Engineering Technician
Kinder Morgan CO2 Company, LLP
Office (432) 688-3797
FAX (432) 688-3799
?
No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced.
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
_______________________________________________________________________________________
The information transmitted in this message and its attachments (if any) is intended
only for the person or entity to which it is addressed.
The message may contain confidential and/or privileged material. Any review,
retransmission, dissemination or other use of, or taking of any action in reliance
upon this information, by persons or entities other than the intended recipient is
prohibited.
If you have received this in error, please contact the sender and delete this e-mail
and associated material from any computer.
The intended recipient of this e-mail may only use, reproduce, disclose or distribute
the information contained in this e-mail and any attached files, with the permission
of the sender.
This message has been scanned for viruses.
_______________________________________________________________________________________
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
From jwcolby at colbyconsulting.com Fri Jun 4 16:18:12 2010
From: jwcolby at colbyconsulting.com (jwcolby)
Date: Fri, 04 Jun 2010 17:18:12 -0400
Subject: [AccessD] How would you cross index
Message-ID: <4C096D94.90108@colbyconsulting.com>
Imagine you had 10 tables of names / addresses. Each table came from a different source. You could
get more such tables at a moment's notice. Each table has a different number of records, real life
examples - 12 million, 23 million, 65 million, 75 million etc.
Each table has a autonumber PKID that (typically) starts at zero and works up, incrementing by one.
Each table has three hash fields (SHA as it happens).
1) Addr / zip5 / zip4
2) LName / Addr / Zip5 / Zip4
3) FName / LName / Zip5 / Zip4
You wanted to cross index these tables. In other words you wanted to know how many exact matches
you had (FName, LName, Addr, City, St, Zip5, Zip4) between any given tables.
Further imagine that each table had additional DIFFERENT fields that gave specific information about
the names in that table. One might be "owns a dog / cat", another might be "has kids in age
brackets..."
What method would you use to allow a cross index?
The only method that I am coming up with would be to have a name/Address table with additional
fields to store the PKID from each table. Add each unique name / address into the table one time.
Use the name hash in inner joins to discover exact matches. Update the PKID fields in each column
for the table(s) that the match(es) occur. Add a new column every time you get a new table.
Your ideas?
--
John W. Colby
www.ColbyConsulting.com
From pete at vftt.co.uk Fri Jun 4 16:50:33 2010
From: pete at vftt.co.uk (Pete Phillipps)
Date: Fri, 4 Jun 2010 22:50:33 +0100
Subject: [AccessD] Is IE8 crippled?
In-Reply-To:
References: <4C0579F3.5758.49DBB99@stuart.lexacorp.com.pg>
Message-ID: <7B8781B4350544E2B45B02457CA90842@Kilchoan7RTM>
Hi Everyone,
<>
That might not be so bad if it had been true as IFRAMEs are being
used to spread the Clickjack attacks on Facebook!
'Facebook "clickjacking" spreads across site'
http://news.bbc.co.uk/1/hi/technology/10224434.stm
Pete
From stuart at lexacorp.com.pg Fri Jun 4 17:33:31 2010
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Sat, 05 Jun 2010 08:33:31 +1000
Subject: [AccessD] Excel process hangs
In-Reply-To: <0B2BF8524B73A248A2F1B81BA751ED3C191E1880A4@houex1.kindermorgan.com>
References: <0B2BF8524B73A248A2F1B81BA751ED3C191E187EE5@houex1.kindermorgan.com>,
<201006040010.o540AawC024679@databaseadvisors.com>,
<0B2BF8524B73A248A2F1B81BA751ED3C191E1880A4@houex1.kindermorgan.com>
Message-ID: <4C097F3B.26993.A8A828E@stuart.lexacorp.com.pg>
Looks like a variation on the old "unqualified reference"
http://support.microsoft.com/kb/319832
When you write code to use an Excel object, method, or property,
you should always precede the call with the appropriate object variable.
If you do not, Visual Basic establishes its own reference to Excel.
Looking at the Run command in Excel Help, I found:
If a string is used, the string will be evaluated in the context of the active
sheet.
So as a WAG, you may need something like:
xl.Application.Run xl.ActiveSheet.Macros("Macro1')
--
Stuart
On 4 Jun 2010 at 15:32, Kaup, Chester wrote:
> Problem has been solved for now. Seems that when access runs the excel
> macro it open another instance of Excel. Ended up killing the process
> with the following.
>
>
> Dim RetVal
> RetVal = Shell("taskkill /IM EXCEL.EXE /f")
> RetVal = Shell("tasklist")
>
> Thanks for the help.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darryl Collins
> Sent: Thursday, June 03, 2010 7:11 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Excel process hangs
>
>
> _______________________________________________________________________________________
>
> Note: This e-mail is subject to the disclaimer contained at the bottom of this message.
> _______________________________________________________________________________________
>
>
>
> Hi Cheser,
>
> When you say the process is still running, do you mean the Excel Application is still running, or the something else?
>
> You can make you code a bit sharper if you are interested. I also recommend setting the workbook as well as the app. Code not tested.
> '--------------------------------------------------------------------------------------------------------------------
> Dim objExcelApp As Object
> Dim objExcelWB as Excel.workbook
>
> Set objExcelApp= CreateObject("Excel.Application")
>
> With objExcelApp
> .WorkBooks.Open "C:\Files\Excel\NOAA Data.xls"
> .Visible = False ' Do you need to see this happen at all? Set to true if you do.
> End with
>
> Set objExcelWB = objExcelApp.ActiveWorkbook
>
> With objExcelWB
> .Sheets("Sheet1").Range("A1").QueryTable.Refresh
> .Run "Macro1"
> strSql = "DELETE * from [tbl Temperature];"
> DBEngine(0)(0).Execute strSql, dbFailOnError
> DoCmd.TransferSpreadsheet acImport, 8, "tbl Temperature", "c:\files\excel\NOAA Data.xls", True, "Sheet3!a1:b32767"
> .Close True ' This will close and save the workbook without prompts
> End with
>
> Set objExcelWB = Nothing
> objExcelApp.Quit
> Set objExcelApp = Nothing
>
> '----------------------------------------------------------------
>
> Cheers
> Darryl
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester
> Sent: Friday, 4 June 2010 6:10 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Excel process hangs
>
> I have the following module that opens Excel does some work and then closes Excel. Problem is that even though Excel closes the process is still running. What am I missing on killing the process. Thanks.
>
> Function GetTemperature()
>
> Dim xl As Object
> Set xl = CreateObject("Excel.Application")
> xl.WorkBooks.Open "C:\Files\Excel\NOAA Data.xls"
> xl.Visible = True
> xl.Sheets("Sheet1").Select
> xl.Range("A1").Select
> xl.ActiveCell.QueryTable.Refresh
> xl.Application.Run "Macro1"
> strSql = "DELETE * from [tbl Temperature];"
> DBEngine(0)(0).Execute strSql, dbFailOnError
> DoCmd.TransferSpreadsheet acImport, 8, "tbl Temperature", "c:\files\excel\NOAA Data.xls", True, "Sheet3!a1:b32767"
> xl.DisplayAlerts = False
> xl.Save
> xl.DisplayAlerts = True
> xl.Quit
> Set xlWorkBooks = Nothing
> Set xl = Nothing
>
>
> End Function
>
> Chester Kaup
> Engineering Technician
> Kinder Morgan CO2 Company, LLP
> Office (432) 688-3797
> FAX (432) 688-3799
>
> ?
> No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced.
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> _______________________________________________________________________________________
>
> The information transmitted in this message and its attachments (if any) is intended
> only for the person or entity to which it is addressed.
> The message may contain confidential and/or privileged material. Any review,
> retransmission, dissemination or other use of, or taking of any action in reliance
> upon this information, by persons or entities other than the intended recipient is
> prohibited.
>
> If you have received this in error, please contact the sender and delete this e-mail
> and associated material from any computer.
>
> The intended recipient of this e-mail may only use, reproduce, disclose or distribute
> the information contained in this e-mail and any attached files, with the permission
> of the sender.
>
> This message has been scanned for viruses.
> _______________________________________________________________________________________
>
> --
> 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
>
From stuart at lexacorp.com.pg Fri Jun 4 17:44:09 2010
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Sat, 05 Jun 2010 08:44:09 +1000
Subject: [AccessD] How would you cross index
In-Reply-To: <4C096D94.90108@colbyconsulting.com>
References: <4C096D94.90108@colbyconsulting.com>
Message-ID: <4C0981B9.14986.A943E1F@stuart.lexacorp.com.pg>
At first glance, that's the way I would handle it too.
One advantage is that once you have updated the master table, you can drop all the
name/address columns from the data tables and save quite a bit of space :-)
--
Stuart
On 4 Jun 2010 at 17:18, jwcolby wrote:
> What method would you use to allow a cross index?
>
> The only method that I am coming up with would be to have a name/Address table with additional
> fields to store the PKID from each table. Add each unique name / address into the table one time.
> Use the name hash in inner joins to discover exact matches. Update the PKID fields in each column
> for the table(s) that the match(es) occur. Add a new column every time you get a new table.
From accessd at shaw.ca Fri Jun 4 17:46:40 2010
From: accessd at shaw.ca (Jim Lawrence)
Date: Fri, 4 Jun 2010 15:46:40 -0700
Subject: [AccessD] Is IE8 crippled?
In-Reply-To: <7B8781B4350544E2B45B02457CA90842@Kilchoan7RTM>
References:
<4C0579F3.5758.49DBB99@stuart.lexacorp.com.pg>
<7B8781B4350544E2B45B02457CA90842@Kilchoan7RTM>
Message-ID:
Hi Pete:
That observation was found to be incorrect. It was to do with the header on
the hosting and the framed web pages. They must have certain similarities or
they will not connect... It was an error created by late night programming
but it has since been resolved.
Jim
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Pete Phillipps
Sent: Friday, June 04, 2010 2:51 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Is IE8 crippled?
Hi Everyone,
<>
That might not be so bad if it had been true as IFRAMEs are being
used to spread the Clickjack attacks on Facebook!
'Facebook "clickjacking" spreads across site'
http://news.bbc.co.uk/1/hi/technology/10224434.stm
Pete
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
From darren at activebilling.com.au Mon Jun 7 01:02:13 2010
From: darren at activebilling.com.au (Darren - Active Billing)
Date: Mon, 7 Jun 2010 16:02:13 +1000
Subject: [AccessD] A2003: SQL Server - Create Users
Message-ID: <2EAA5D179DE0454BAB3CA2F2AEF62357@darrendPC>
Hi team
In my Access 2003 app connecting to a 2005 SQL Server
I want to
1 Create a user (This I can do) with a PWD (This I can do)
I also want to
2 Add this user to a 'default' database
And
3 Assign them to 3 already configured roles on this default dB
Make sense?
This is all I have so far (Part 1)
use SOMEDB
exec sp_droplogin Me.txtLoginName
exec sp_addlogin Me.txtLoginName, Me.txtLoginPassword
This will drop and create the user with password
Anyone got any suggestions for the other 2 bits?
Many thanks
Darren
From Gustav at cactus.dk Mon Jun 7 06:25:05 2010
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 07 Jun 2010 13:25:05 +0200
Subject: [AccessD] OT: Late Friday Humour
Message-ID:
Hi all
Ever thought of building your own ink printer?
http://www.youtube.com/watch?v=zX09WnGU6ZY
/gustav
From delam at zyterra.com Mon Jun 7 08:47:09 2010
From: delam at zyterra.com (Debbie)
Date: Mon, 7 Jun 2010 08:47:09 -0500
Subject: [AccessD] Record locking
Message-ID: <25144563-4369-462D-B392-C811715E78DC@zyterra.com>
I have a form that locks other users out when the form is dirty. I
have tried lots of things including explicitly setting locking to no
locks and saving on dirty with code. Unless someone can give me a new
idea, I think I am going to have to try and rebuild the form as
unbound. Can anyone offer any alternative methods?
Debbie
Sent from my iPhone
From rockysmolin at bchacc.com Mon Jun 7 08:53:25 2010
From: rockysmolin at bchacc.com (Rocky Smolin)
Date: Mon, 7 Jun 2010 06:53:25 -0700
Subject: [AccessD] Record locking
In-Reply-To: <25144563-4369-462D-B392-C811715E78DC@zyterra.com>
References: <25144563-4369-462D-B392-C811715E78DC@zyterra.com>
Message-ID:
Can you trap the locking error and issue a Me.Dirty = False in the error
routine then Resume Next?
Rocky
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Debbie
Sent: Monday, June 07, 2010 6:47 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Record locking
I have a form that locks other users out when the form is dirty. I have
tried lots of things including explicitly setting locking to no locks and
saving on dirty with code. Unless someone can give me a new idea, I think I
am going to have to try and rebuild the form as unbound. Can anyone offer
any alternative methods?
Debbie
Sent from my iPhone
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
From delam at zyterra.com Mon Jun 7 09:06:22 2010
From: delam at zyterra.com (Debbie)
Date: Mon, 7 Jun 2010 09:06:22 -0500
Subject: [AccessD] Record locking
In-Reply-To:
References: <25144563-4369-462D-B392-C811715E78DC@zyterra.com>
Message-ID:
Trouble is the error is happening on the user that is not dirty. The
user that is dirty is working fine, he just locks at least one other
user out while he is dirty.
Debbie
Sent from my iPhone
On Jun 7, 2010, at 8:53 AM, "Rocky Smolin"
wrote:
> Can you trap the locking error and issue a Me.Dirty = False in the
> error
> routine then Resume Next?
>
> Rocky
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Debbie
> Sent: Monday, June 07, 2010 6:47 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Record locking
>
> I have a form that locks other users out when the form is dirty. I
> have
> tried lots of things including explicitly setting locking to no
> locks and
> saving on dirty with code. Unless someone can give me a new idea, I
> think I
> am going to have to try and rebuild the form as unbound. Can anyone
> offer
> any alternative methods?
>
> Debbie
>
> Sent from my iPhone
> --
> 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
>
From rusty.hammond at cpiqpc.com Mon Jun 7 09:11:27 2010
From: rusty.hammond at cpiqpc.com (Rusty Hammond)
Date: Mon, 7 Jun 2010 09:11:27 -0500
Subject: [AccessD] A2003: SQL Server - Create Users
In-Reply-To: <2EAA5D179DE0454BAB3CA2F2AEF62357@darrendPC>
References: <2EAA5D179DE0454BAB3CA2F2AEF62357@darrendPC>
Message-ID: <49A286ABF515E94A8505CD14DEB721700DCFD5C5@CPIEMAIL-EVS1.CPIQPC.NET>
Have you tried creating a user on the SQL server then scripting that
user? That should give show you everything you need to create a new
user. To script a user, just right click on the user, select Script
User as, then Create to, then you have the option of a new query window,
a file, the clipboard for saving the sql script.
HTH,
Rusty
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren -
Active Billing
Sent: Monday, June 07, 2010 1:02 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] A2003: SQL Server - Create Users
Hi team
In my Access 2003 app connecting to a 2005 SQL Server
I want to
1 Create a user (This I can do) with a PWD (This I can do)
I also want to
2 Add this user to a 'default' database
And
3 Assign them to 3 already configured roles on this default dB
Make sense?
This is all I have so far (Part 1)
use SOMEDB
exec sp_droplogin Me.txtLoginName
exec sp_addlogin Me.txtLoginName, Me.txtLoginPassword
This will drop and create the user with password Anyone got any
suggestions for the other 2 bits?
Many thanks
Darren
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
**********************************************************************
WARNING: All e-mail sent to and from this address will be received,
scanned or otherwise recorded by the CPI Qualified Plan Consultants, Inc.
corporate e-mail system and is subject to archival, monitoring or review
by, and/or disclosure to, someone other than the recipient.
**********************************************************************
From rockysmolin at bchacc.com Mon Jun 7 09:27:27 2010
From: rockysmolin at bchacc.com (Rocky Smolin)
Date: Mon, 7 Jun 2010 07:27:27 -0700
Subject: [AccessD] Record locking
In-Reply-To:
References: <25144563-4369-462D-B392-C811715E78DC@zyterra.com>
Message-ID: <1920C59421BE436F92610F587106DE0C@HAL9005>
I don't know if user 2 issuing a Me.Dirty = False will clear the problem.
Maybe someone else knows.
Failing that, how about issuing the Me.Dirty = False in a key place in the
code - like maybe the form's After Update event - to reduce the problem or
maybe eliminate it.
At least you could trap the locking error, give the user a descriptive
message with maybe an option to retry the update?
Rocky
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Debbie
Sent: Monday, June 07, 2010 7:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Record locking
Trouble is the error is happening on the user that is not dirty. The user
that is dirty is working fine, he just locks at least one other user out
while he is dirty.
Debbie
Sent from my iPhone
On Jun 7, 2010, at 8:53 AM, "Rocky Smolin"
wrote:
> Can you trap the locking error and issue a Me.Dirty = False in the
> error routine then Resume Next?
>
> Rocky
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Debbie
> Sent: Monday, June 07, 2010 6:47 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Record locking
>
> I have a form that locks other users out when the form is dirty. I
> have tried lots of things including explicitly setting locking to no
> locks and saving on dirty with code. Unless someone can give me a new
> idea, I think I am going to have to try and rebuild the form as
> unbound. Can anyone offer any alternative methods?
>
> Debbie
>
> Sent from my iPhone
> --
> 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
From roz.clarke at barclays.com Mon Jun 7 09:29:39 2010
From: roz.clarke at barclays.com (roz.clarke at barclays.com)
Date: Mon, 7 Jun 2010 15:29:39 +0100
Subject: [AccessD] How would you cross index
In-Reply-To: <4C096D94.90108@colbyconsulting.com>
References: <4C096D94.90108@colbyconsulting.com>
Message-ID: <174A69C31E290B47A4898DFFDB5BFCD901F9AF2E@MUKPBCC1XMB0403.collab.barclayscorp.com>
I don't have any better ideas than yours JC and maybe nobody does either
but I'm curious so I thought I'd give this a bit of a bump.
Roz
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jwcolby
Sent: 04 June 2010 22:18
To: Access Developers discussion and problem solving; Sqlserver-Dba; VBA
Subject: [AccessD] How would you cross index
Imagine you had 10 tables of names / addresses. Each table came from a
different source. You could get more such tables at a moment's notice.
Each table has a different number of records, real life examples - 12
million, 23 million, 65 million, 75 million etc.
Each table has a autonumber PKID that (typically) starts at zero and
works up, incrementing by one.
Each table has three hash fields (SHA as it happens).
1) Addr / zip5 / zip4
2) LName / Addr / Zip5 / Zip4
3) FName / LName / Zip5 / Zip4
You wanted to cross index these tables. In other words you wanted to
know how many exact matches you had (FName, LName, Addr, City, St, Zip5,
Zip4) between any given tables.
Further imagine that each table had additional DIFFERENT fields that
gave specific information about the names in that table. One might be
"owns a dog / cat", another might be "has kids in age brackets..."
What method would you use to allow a cross index?
The only method that I am coming up with would be to have a name/Address
table with additional fields to store the PKID from each table. Add
each unique name / address into the table one time.
Use the name hash in inner joins to discover exact matches. Update the
PKID fields in each column for the table(s) that the match(es) occur.
Add a new column every time you get a new table.
Your ideas?
--
John W. Colby
www.ColbyConsulting.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
This e-mail and any attachments are confidential and intended solely for the addressee and may also be privileged or exempt from disclosure under applicable law. If you are not the addressee, or have received this e-mail in error, please notify the sender immediately, delete it from your system and do not copy, disclose or otherwise act upon any part of this e-mail or its attachments.
Internet communications are not guaranteed to be secure or virus-free.
The Barclays Group does not accept responsibility for any loss arising from unauthorised access to, or interference with, any Internet communications by any third party, or from the transmission of any viruses. Replies to this e-mail may be monitored by the Barclays Group for operational or business reasons.
Any opinion or other information in this e-mail or its attachments that does not relate to the business of the Barclays Group is personal to the sender and is not given or endorsed by the Barclays Group.
Barclays Bank PLC.Registered in England and Wales (registered no. 1026167).
Registered Office: 1 Churchill Place, London, E14 5HP, United Kingdom.
Barclays Bank PLC is authorised and regulated by the Financial Services Authority.
From DWUTKA at Marlow.com Mon Jun 7 09:52:06 2010
From: DWUTKA at Marlow.com (Drew Wutka)
Date: Mon, 7 Jun 2010 09:52:06 -0500
Subject: [AccessD] OT: Late Friday Humour
In-Reply-To:
References:
Message-ID:
Dude! That was GREAT! I've already spread that link around!
Drew
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Monday, June 07, 2010 6:25 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] OT: Late Friday Humour
Hi all
Ever thought of building your own ink printer?
http://www.youtube.com/watch?v=zX09WnGU6ZY
/gustav
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
The information contained in this transmission is intended only for the person or entity
to which it is addressed and may contain II-VI Proprietary and/or II-VI Business
Sensitive material. If you are not the intended recipient, please contact the sender
immediately and destroy the material in its entirety, whether electronic or hard copy.
You are notified that any review, retransmission, copying, disclosure, dissemination,
or other use of, or taking of any action in reliance upon this information by persons
or entities other than the intended recipient is prohibited.
From jimdettman at verizon.net Mon Jun 7 10:30:23 2010
From: jimdettman at verizon.net (Jim Dettman)
Date: Mon, 07 Jun 2010 11:30:23 -0400
Subject: [AccessD] Record locking
In-Reply-To:
References: <25144563-4369-462D-B392-C811715E78DC@zyterra.com>
Message-ID: <119617BE3F92417C8909CD0F7076FFC6@XPS>
Debbie,
<>
"No Locks" is a misnomer. It doesn't mean that locking is not occurring.
It means "No Edit Locks", so what you end up with is optimistic locking
(Edit locks is pessimistic). The difference between the two is when the
lock gets placed on a record.
With Edit locks, or pessimistic locking, the lock is placed as soon as the
record starts to be edited and it is not cleared until the record is saved.
With no edit locks, or optimistic locking, the record is locked only for a
brief period when it is trying to be saved. That sounds good, but the risk
there is that someone else may come along, read the record, and then modify
it. If that happens, when the first user goes to save, they'll get a dialog
that the record has been modified since they ready it, with a couple of
options (discard their changes or overwrite what's there).
When locking occurs, the lock may be on a single record with JET 4.0, or
it may be on the page. However there are a bunch of issues with record
level locking in JET 4.0 and basically, it doesn't work :(
So what your getting (even though you may be set to record level locking)
and describe is page level locking.
A quick "fix" on tables with high concurrency issues is to pad the record
length so that the record takes up more then half a page.
Since JET must place the entire fixed portion of the record on a single
page (everything except Memo and OLE fields), this in effect gives you
record level locking without the hassles of trying to get it to work
properly through JET itself.
Add text fields and fill them so that the record will be larger then 2048
bytes when saved.
Jim.
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Debbie
Sent: Monday, June 07, 2010 10:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Record locking
Trouble is the error is happening on the user that is not dirty. The
user that is dirty is working fine, he just locks at least one other
user out while he is dirty.
Debbie
Sent from my iPhone
On Jun 7, 2010, at 8:53 AM, "Rocky Smolin"
wrote:
> Can you trap the locking error and issue a Me.Dirty = False in the
> error
> routine then Resume Next?
>
> Rocky
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Debbie
> Sent: Monday, June 07, 2010 6:47 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Record locking
>
> I have a form that locks other users out when the form is dirty. I
> have
> tried lots of things including explicitly setting locking to no
> locks and
> saving on dirty with code. Unless someone can give me a new idea, I
> think I
> am going to have to try and rebuild the form as unbound. Can anyone
> offer
> any alternative methods?
>
> Debbie
>
> Sent from my iPhone
> --
> 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
From davidmcafee at gmail.com Mon Jun 7 11:13:37 2010
From: davidmcafee at gmail.com (David McAfee)
Date: Mon, 7 Jun 2010 09:13:37 -0700
Subject: [AccessD] Access 2007 Generated SQL "Join" Question
In-Reply-To:
References:
Message-ID:
The first design is called a cartesian join.
The second join is a full inner join, this is the correct way to do it.
For your simple join of the two tables, they both work (and probably
perform) the same way,
but with large tables of many records the second would perform faster.
David
On Fri, Jun 4, 2010 at 12:32 PM, Brad Marks wrote:
> I have a question regarding the SQL that is generated by Access 2007.
> To ask this question, I put together this simple example.
>
>
>
> Two small test tables were set up.
>
>
>
> Customer Table has two fields; Cust_Name and Cust_State
>
> Example data
>
> John Doe
>
> NY
>
>
>
>
>
> State Table has two fields; State_Code and State_Name
>
>
>
> Example data
>
> NY
>
> New York
>
>
>
>
>
> As you can see, Cust_State and State_Code is the "common" field
>
> ~ ~ ~ ~
>
> Using Access 2007 Query Design View with "Criteria" for State_Code =
> [tbl_Customers].[Cust_State]
>
> generates this SQL -
>
>
>
> SELECT tbl_Customers.Cust_Name, tbl_Customers.Cust_State,
> tbl_State.State_Code, tbl_State.State_Name
>
> FROM tbl_Customers, tbl_State
>
> WHERE (((tbl_State.State_Code)=[tbl_Customers].[Cust_State]));
>
>
>
> ~ ~ ~ ~
>
> Using Query Design View and using "Join Properties" (I picked Option 1
> in the join properties). ?There is now line connecting the two tables in
> the upper portion of the Query Design View. ?Here is the SQL that is
> generated from this approach.
>
>
>
> SELECT tbl_Customers.Cust_Name, tbl_Customers.Cust_State,
> tbl_State.State_Code, tbl_State.State_Name
>
> FROM tbl_Customers INNER JOIN tbl_State ON tbl_Customers.Cust_State =
> tbl_State.State_Code;
>
>
>
> ~ ~ ~ ~
>
> Even though the generated SQL is different, both approaches produce the
> same end results.
>
> Does it make any difference which approach is used?
>
> The first approach is "joining" the two tables, even though we don't see
> the word "join" in the generated SQL.
>
> Are there performance implications when the tables contain large numbers
> of records?
>
>
>
> Thanks,
>
> Brad
>
> ~ ~ ~ ~ ~ ~ ~
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
From davidmcafee at gmail.com Mon Jun 7 11:20:09 2010
From: davidmcafee at gmail.com (David McAfee)
Date: Mon, 7 Jun 2010 09:20:09 -0700
Subject: [AccessD] A2003: SQL Server - Create Users
In-Reply-To: <2EAA5D179DE0454BAB3CA2F2AEF62357@darrendPC>
References:
<2EAA5D179DE0454BAB3CA2F2AEF62357@darrendPC>
Message-ID:
I do this for one of my databases:
CREATE PROCEDURE [dbo].[stpAddUser](@uid AS VARCHAR(36), @pwd AS VARCHAR(36)) AS
/*
--Debug/Test variables
DECLARE @uid AS VARCHAR(36)
DECLARE @pwd AS VARCHAR(36)
SET @uid = 'dmcafee1'
SET @pwd = 'testPW1'
*/
IF NOT EXISTS (select * from master.dbo.syslogins where loginname = @uid)
BEGIN
-- Print 'Login does not exist, create login:'
EXEC sp_addLogin @uid, @pwd, 'YOURSQLDBNAMEHERE'
-- PRINT 'EXEC sp_addLogin ' + @uid + ', ' + @pwd + ', YOURSQLDBNAMEHERE'
EXEC sp_grantdbaccess @uid, @uid
-- PRINT 'sp_grantdbaccess ' + @uid + ', ' + @uid
EXEC sp_addrolemember N'MomsUpdate', @uid
-- PRINT 'EXEC sp_addrolemember YourRoleNameHere, ' + @uid
END
--To delete
--EXEC YOURSQLDBNAMEHERE.dbo.sp_DropUser '00046'
On Sun, Jun 6, 2010 at 11:02 PM, Darren - Active Billing
wrote:
> Hi team
>
>
>
> In my Access 2003 app connecting to a 2005 SQL Server
>
> I want to
>
> 1 ? ? ? ?Create a user (This I can do) with a PWD (This I can do)
> I also want to
> 2 ? ? ? ?Add this user to a 'default' database
>
> And
>
> 3 ? ? ? ?Assign them to 3 already configured roles on this default dB
>
> Make sense?
>
> This is all I have so far (Part 1)
>
>
>
> use SOMEDB
>
> exec sp_droplogin Me.txtLoginName
>
> exec sp_addlogin Me.txtLoginName, Me.txtLoginPassword
>
>
>
> This will drop and create the user with password
> Anyone got any suggestions for the other 2 bits?
>
> Many thanks
>
> Darren
>
>
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
From Chester_Kaup at kindermorgan.com Mon Jun 7 14:16:12 2010
From: Chester_Kaup at kindermorgan.com (Kaup, Chester)
Date: Mon, 7 Jun 2010 14:16:12 -0500
Subject: [AccessD] Excel process hangs
In-Reply-To: <4C097F3B.26993.A8A828E@stuart.lexacorp.com.pg>
References: <0B2BF8524B73A248A2F1B81BA751ED3C191E187EE5@houex1.kindermorgan.com>,
<201006040010.o540AawC024679@databaseadvisors.com>,
<0B2BF8524B73A248A2F1B81BA751ED3C191E1880A4@houex1.kindermorgan.com>
<4C097F3B.26993.A8A828E@stuart.lexacorp.com.pg>
Message-ID: <0B2BF8524B73A248A2F1B81BA751ED3C191E18829E@houex1.kindermorgan.com>
I tried some of the stuff in the article but to no avail. The statement xl.Application.Run xl.ActiveSheet.Macros("Macro1') does not work. From my understanding of Excel macros are at the application level not the workbook or worksheet level.
-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: Friday, June 04, 2010 5:34 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Excel process hangs
Looks like a variation on the old "unqualified reference"
http://support.microsoft.com/kb/319832
When you write code to use an Excel object, method, or property,
you should always precede the call with the appropriate object variable.
If you do not, Visual Basic establishes its own reference to Excel.
Looking at the Run command in Excel Help, I found:
If a string is used, the string will be evaluated in the context of the active
sheet.
So as a WAG, you may need something like:
xl.Application.Run xl.ActiveSheet.Macros("Macro1')
--
Stuart
On 4 Jun 2010 at 15:32, Kaup, Chester wrote:
> Problem has been solved for now. Seems that when access runs the excel
> macro it open another instance of Excel. Ended up killing the process
> with the following.
>
>
> Dim RetVal
> RetVal = Shell("taskkill /IM EXCEL.EXE /f")
> RetVal = Shell("tasklist")
>
> Thanks for the help.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darryl Collins
> Sent: Thursday, June 03, 2010 7:11 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Excel process hangs
>
>
> _______________________________________________________________________________________
>
> Note: This e-mail is subject to the disclaimer contained at the bottom of this message.
> _______________________________________________________________________________________
>
>
>
> Hi Cheser,
>
> When you say the process is still running, do you mean the Excel Application is still running, or the something else?
>
> You can make you code a bit sharper if you are interested. I also recommend setting the workbook as well as the app. Code not tested.
> '--------------------------------------------------------------------------------------------------------------------
> Dim objExcelApp As Object
> Dim objExcelWB as Excel.workbook
>
> Set objExcelApp= CreateObject("Excel.Application")
>
> With objExcelApp
> .WorkBooks.Open "C:\Files\Excel\NOAA Data.xls"
> .Visible = False ' Do you need to see this happen at all? Set to true if you do.
> End with
>
> Set objExcelWB = objExcelApp.ActiveWorkbook
>
> With objExcelWB
> .Sheets("Sheet1").Range("A1").QueryTable.Refresh
> .Run "Macro1"
> strSql = "DELETE * from [tbl Temperature];"
> DBEngine(0)(0).Execute strSql, dbFailOnError
> DoCmd.TransferSpreadsheet acImport, 8, "tbl Temperature", "c:\files\excel\NOAA Data.xls", True, "Sheet3!a1:b32767"
> .Close True ' This will close and save the workbook without prompts
> End with
>
> Set objExcelWB = Nothing
> objExcelApp.Quit
> Set objExcelApp = Nothing
>
> '----------------------------------------------------------------
>
> Cheers
> Darryl
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester
> Sent: Friday, 4 June 2010 6:10 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Excel process hangs
>
> I have the following module that opens Excel does some work and then closes Excel. Problem is that even though Excel closes the process is still running. What am I missing on killing the process. Thanks.
>
> Function GetTemperature()
>
> Dim xl As Object
> Set xl = CreateObject("Excel.Application")
> xl.WorkBooks.Open "C:\Files\Excel\NOAA Data.xls"
> xl.Visible = True
> xl.Sheets("Sheet1").Select
> xl.Range("A1").Select
> xl.ActiveCell.QueryTable.Refresh
> xl.Application.Run "Macro1"
> strSql = "DELETE * from [tbl Temperature];"
> DBEngine(0)(0).Execute strSql, dbFailOnError
> DoCmd.TransferSpreadsheet acImport, 8, "tbl Temperature", "c:\files\excel\NOAA Data.xls", True, "Sheet3!a1:b32767"
> xl.DisplayAlerts = False
> xl.Save
> xl.DisplayAlerts = True
> xl.Quit
> Set xlWorkBooks = Nothing
> Set xl = Nothing
>
>
> End Function
>
> Chester Kaup
> Engineering Technician
> Kinder Morgan CO2 Company, LLP
> Office (432) 688-3797
> FAX (432) 688-3799
>
> ?
> No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced.
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> _______________________________________________________________________________________
>
> The information transmitted in this message and its attachments (if any) is intended
> only for the person or entity to which it is addressed.
> The message may contain confidential and/or privileged material. Any review,
> retransmission, dissemination or other use of, or taking of any action in reliance
> upon this information, by persons or entities other than the intended recipient is
> prohibited.
>
> If you have received this in error, please contact the sender and delete this e-mail
> and associated material from any computer.
>
> The intended recipient of this e-mail may only use, reproduce, disclose or distribute
> the information contained in this e-mail and any attached files, with the permission
> of the sender.
>
> This message has been scanned for viruses.
> _______________________________________________________________________________________
>
> --
> 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
From delam at zyterra.com Mon Jun 7 14:55:40 2010
From: delam at zyterra.com (Debbie)
Date: Mon, 7 Jun 2010 14:55:40 -0500
Subject: [AccessD] Record locking
In-Reply-To: <119617BE3F92417C8909CD0F7076FFC6@XPS>
References: <25144563-4369-462D-B392-C811715E78DC@zyterra.com>
<119617BE3F92417C8909CD0F7076FFC6@XPS>
Message-ID:
I thunk that is it. Thanks!
Debbie
Sent from my iPhone
On Jun 7, 2010, at 10:30 AM, "Jim Dettman"
wrote:
> Debbie,
>
> < have tried lots of things including explicitly setting locking to no
> locks and saving on dirty with code. Unless someone can give me a new
> idea, I think I am going to have to try and rebuild the form as
> unbound. Can anyone offer any alternative methods?>>
>
> "No Locks" is a misnomer. It doesn't mean that locking is not
> occurring.
> It means "No Edit Locks", so what you end up with is optimistic
> locking
> (Edit locks is pessimistic). The difference between the two is when
> the
> lock gets placed on a record.
>
> With Edit locks, or pessimistic locking, the lock is placed as soon
> as the
> record starts to be edited and it is not cleared until the record is
> saved.
> With no edit locks, or optimistic locking, the record is locked only
> for a
> brief period when it is trying to be saved. That sounds good, but
> the risk
> there is that someone else may come along, read the record, and then
> modify
> it. If that happens, when the first user goes to save, they'll get
> a dialog
> that the record has been modified since they ready it, with a couple
> of
> options (discard their changes or overwrite what's there).
>
> When locking occurs, the lock may be on a single record with JET
> 4.0, or
> it may be on the page. However there are a bunch of issues with
> record
> level locking in JET 4.0 and basically, it doesn't work :(
>
> So what your getting (even though you may be set to record level
> locking)
> and describe is page level locking.
>
> A quick "fix" on tables with high concurrency issues is to pad the
> record
> length so that the record takes up more then half a page.
>
> Since JET must place the entire fixed portion of the record on a
> single
> page (everything except Memo and OLE fields), this in effect gives you
> record level locking without the hassles of trying to get it to work
> properly through JET itself.
>
> Add text fields and fill them so that the record will be larger
> then 2048
> bytes when saved.
>
> Jim.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Debbie
> Sent: Monday, June 07, 2010 10:06 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Record locking
>
> Trouble is the error is happening on the user that is not dirty. The
> user that is dirty is working fine, he just locks at least one other
> user out while he is dirty.
>
> Debbie
>
> Sent from my iPhone
>
> On Jun 7, 2010, at 8:53 AM, "Rocky Smolin"
> wrote:
>
>> Can you trap the locking error and issue a Me.Dirty = False in the
>> error
>> routine then Resume Next?
>>
>> Rocky
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Debbie
>> Sent: Monday, June 07, 2010 6:47 AM
>> To: Access Developers discussion and problem solving
>> Subject: [AccessD] Record locking
>>
>> I have a form that locks other users out when the form is dirty. I
>> have
>> tried lots of things including explicitly setting locking to no
>> locks and
>> saving on dirty with code. Unless someone can give me a new idea, I
>> think I
>> am going to have to try and rebuild the form as unbound. Can anyone
>> offer
>> any alternative methods?
>>
>> Debbie
>>
>> Sent from my iPhone
>> --
>> 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
>
From darren at activebilling.com.au Mon Jun 7 23:18:36 2010
From: darren at activebilling.com.au (Darren - Active Billing)
Date: Tue, 8 Jun 2010 14:18:36 +1000
Subject: [AccessD] A2003: SQL Server - Create Users
In-Reply-To:
References: <2EAA5D179DE0454BAB3CA2F2AEF62357@darrendPC>
Message-ID:
Hi Rusty and David
Rusty - I never knew I could do this - now I'm impressed
David - I copied elements of your paste below and it worked first go
Thank you men folk - I just need to wrap this into an access screen with a
function or two and we are done
Many thanks again - I'm delighted :-)
Darren
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David McAfee
Sent: Tuesday, 8 June 2010 2:20 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] A2003: SQL Server - Create Users
I do this for one of my databases:
CREATE PROCEDURE [dbo].[stpAddUser](@uid AS VARCHAR(36), @pwd AS
VARCHAR(36)) AS
/*
--Debug/Test variables
DECLARE @uid AS VARCHAR(36)
DECLARE @pwd AS VARCHAR(36)
SET @uid = 'dmcafee1'
SET @pwd = 'testPW1'
*/
IF NOT EXISTS (select * from master.dbo.syslogins where loginname = @uid)
BEGIN
-- Print 'Login does not exist, create login:'
EXEC sp_addLogin @uid, @pwd, 'YOURSQLDBNAMEHERE'
-- PRINT 'EXEC sp_addLogin ' + @uid + ', ' + @pwd + ',
YOURSQLDBNAMEHERE'
EXEC sp_grantdbaccess @uid, @uid
-- PRINT 'sp_grantdbaccess ' + @uid + ', ' + @uid
EXEC sp_addrolemember N'MomsUpdate', @uid
-- PRINT 'EXEC sp_addrolemember YourRoleNameHere, ' + @uid
END
--To delete
--EXEC YOURSQLDBNAMEHERE.dbo.sp_DropUser '00046'
On Sun, Jun 6, 2010 at 11:02 PM, Darren - Active Billing
wrote:
> Hi team
>
>
>
> In my Access 2003 app connecting to a 2005 SQL Server
>
> I want to
>
> 1 ? ? ? ?Create a user (This I can do) with a PWD (This I can do)
> I also want to
> 2 ? ? ? ?Add this user to a 'default' database
>
> And
>
> 3 ? ? ? ?Assign them to 3 already configured roles on this default dB
>
> Make sense?
>
> This is all I have so far (Part 1)
>
>
>
> use SOMEDB
>
> exec sp_droplogin Me.txtLoginName
>
> exec sp_addlogin Me.txtLoginName, Me.txtLoginPassword
>
>
>
> This will drop and create the user with password
> Anyone got any suggestions for the other 2 bits?
>
> Many thanks
>
> Darren
>
>
>
>
>
> --
> 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
From adtp at airtelmail.in Tue Jun 8 07:21:09 2010
From: adtp at airtelmail.in (A.D. Tejpal)
Date: Tue, 8 Jun 2010 17:51:09 +0530
Subject: [AccessD] Reports over Pre-printed forms
References:
<021a01cb0363$330da910$9928fb30$@com>
Message-ID: <0C9A61593385445C90BB90ED5C7ACBF4@personal4a8ede>
Larry,
My sample db named Report_FixedRowsPerPgOrGrp might be of interest to you. It is in access 2000 file format and is available at Rogers Access Library. Link -
http://www.rogersaccesslibrary.com/forum/forum_topics.asp?FID=45
You could adapt the underlying approach suitably, for your specific needs.
Best wishes,
A.D. Tejpal
------------
----- Original Message -----
From: Lawrence Mrazek
To: 'Access Developers discussion and problem solving'
Sent: Friday, June 04, 2010 02:54
Subject: [AccessD] Reports over Pre-printed forms
Hi Folks:
I'm wondering if anyone else has dealt with this scenario.
Client has to fill out standardized forms from a government agency, and
we've scanned the forms in to allow us to out our data over the pre-printed
form.
Basically, scenario is this:
Page 1: basic information, Address, etc.
Page 2: detail information, with slots for up to 6 detail records
(this is the problem)
(if page 2 has more than 6 records we need to be able to print another page
with the same form background, starting on record #7). I need the report to
be able to adjust to cope with a report with more than 6 records.
Any advice would be appreciated ... Thanks!
Larry Mrazek
ph. 314-496-1645
lmrazek at lcm-res.com
http://www.lcm-res.com
From rockysmolin at bchacc.com Tue Jun 8 09:14:15 2010
From: rockysmolin at bchacc.com (Rocky Smolin)
Date: Tue, 8 Jun 2010 07:14:15 -0700
Subject: [AccessD] Item Not Found In This Collection
Message-ID: <0696C7A9041F4DE883F4131D2A484E15@HAL9005>
Dear List:
I am cloning a purchase order, so I'm cycling through the PO detail lines,
creating a new PO Detail record for each existing detail record. I've
already copied the PO Header record and have the PK available. All's well
until it comes to one specific field in the PODetail copy code and then I
get the message 'Item Not Found In This Collection'.
The code to copy is:
rsPODetailNew.AddNew
rsPODetailNew!fldPOHID = rsPOHeader!fldPOHID
rsPODetailNew!fldPODLineNumber = rsPODetail!fldPODLineNumber
rsPODetailNew!fldPODPartNumber = rsPODetail!fldPODPartNumber
rsPODetailNew!fldPODVendorPart = rsPODetail!fldPODVendorPart
rsPODetailNew!fldPODPartDescription =
rsPODetail!fldPODPartDescription
rsPODetailNew!fldPODUOM = rsPODetail!fldPODUOM
rsPODetailNew!fldPODUnitCost = rsPODetail!fldPODUnitCost
rsPODetailNew!fldPODDateRequired = rsPODetail!fldPODDateRequired
rsPODetailNew!fldPODQuantityOrdered =
rsPODetail!fldPODQuantityOrdered
rsPODetailNew!fldPODQuantityReceived =
rsPODetail!fldPODQuantityReceived
rsPODetailNew!fldPODTaxable = rsPODetail!fldPODTaxable
rsPODetailNew!fldPODPosted = rsPODetail!fldPODPosted
rsPODetailNew!fldPODRevision = rsPODetail!fldPODRevision
rsPODetailNew.Update
and the offending line is rsPODetailNew!fldPODRevision =
rsPODetail!fldPODRevision. Where fldPOHID is the FK to the Header.
Both rsPODetailNew!fldPODRevision and rsPODetail!fldPODRevision show as not
being in the collection when I hover over them with the pointer. So it's
common to both recordsets.
The two recordsets are opened thusly:
Set rsPODetail = db.OpenRecordset("Select * FROM tblPODetail WHERE fldPOHID
= " & Me.fldPOHID)
Set rsPODetailNew = db.OpenRecordset("Select * FROM tblPODetail")
where Me.fldPOHID is the PK of the PO to be copied.
Very straightforward.
The Field fldPODRevision is in the table - I did a cut and poaste to avoid
typos. All the other fields copy fine. When I comment out the line with
the problem, the PO copies perfectly.
Usually this kind of intractable problem can be solved by writing out the
description to the list and in the process I see where the error is and
never send the email. In this case, here I am at the end of the post and
still can't see why that one field should no be in the collection.
Ay speculations welcome.
MTIA
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com
www.bchacc.com
From Gustav at cactus.dk Tue Jun 8 09:49:05 2010
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 08 Jun 2010 16:49:05 +0200
Subject: [AccessD] Item Not Found In This Collection
Message-ID:
Hi Rocky
Will this return a record:
Set rsPODetail = db.OpenRecordset("Select fldPODRevision FROM tblPODetail WHERE fldPOHID = " & Me.fldPOHID)
Further, why not just open the table once:
Set rsPODetailNew = db.OpenRecordset("Select * FROM tblPODetail WHERE fldPOHID = " & Me.fldPOHID)
Set rsPODetail = rsPODetailNew.Clone
/gustav
>>> rockysmolin at bchacc.com 08-06-2010 16:14 >>>
Dear List:
I am cloning a purchase order, so I'm cycling through the PO detail lines,
creating a new PO Detail record for each existing detail record. I've
already copied the PO Header record and have the PK available. All's well
until it comes to one specific field in the PODetail copy code and then I
get the message 'Item Not Found In This Collection'.
The code to copy is:
rsPODetailNew.AddNew
rsPODetailNew!fldPOHID = rsPOHeader!fldPOHID
rsPODetailNew!fldPODLineNumber = rsPODetail!fldPODLineNumber
rsPODetailNew!fldPODPartNumber = rsPODetail!fldPODPartNumber
rsPODetailNew!fldPODVendorPart = rsPODetail!fldPODVendorPart
rsPODetailNew!fldPODPartDescription = rsPODetail!fldPODPartDescription
rsPODetailNew!fldPODUOM = rsPODetail!fldPODUOM
rsPODetailNew!fldPODUnitCost = rsPODetail!fldPODUnitCost
rsPODetailNew!fldPODDateRequired = rsPODetail!fldPODDateRequired
rsPODetailNew!fldPODQuantityOrdered = rsPODetail!fldPODQuantityOrdered
rsPODetailNew!fldPODQuantityReceived = rsPODetail!fldPODQuantityReceived
rsPODetailNew!fldPODTaxable = rsPODetail!fldPODTaxable
rsPODetailNew!fldPODPosted = rsPODetail!fldPODPosted
rsPODetailNew!fldPODRevision = rsPODetail!fldPODRevision
rsPODetailNew.Update
and the offending line is rsPODetailNew!fldPODRevision = rsPODetail!fldPODRevision. Where fldPOHID is the FK to the Header.
Both rsPODetailNew!fldPODRevision and rsPODetail!fldPODRevision show as not
being in the collection when I hover over them with the pointer. So it's
common to both recordsets.
The two recordsets are opened thusly:
Set rsPODetail = db.OpenRecordset("Select * FROM tblPODetail WHERE fldPOHID = " & Me.fldPOHID)
Set rsPODetailNew = db.OpenRecordset("Select * FROM tblPODetail")
where Me.fldPOHID is the PK of the PO to be copied.
Very straightforward.
The Field fldPODRevision is in the table - I did a cut and poaste to avoid
typos. All the other fields copy fine. When I comment out the line with
the problem, the PO copies perfectly.
Usually this kind of intractable problem can be solved by writing out the
description to the list and in the process I see where the error is and
never send the email. In this case, here I am at the end of the post and
still can't see why that one field should no be in the collection.
Ay speculations welcome.
MTIA
Rocky Smolin
Beach Access Software
858-259-4334
From jimdettman at verizon.net Tue Jun 8 09:57:56 2010
From: jimdettman at verizon.net (Jim Dettman)
Date: Tue, 08 Jun 2010 10:57:56 -0400
Subject: [AccessD] Item Not Found In This Collection
In-Reply-To:
References:
Message-ID:
Rocky,
<>
You sure you looked in the right table or that your using the table with
the field in it? Sounds to me like the field is either not there or
mis-spelled.
Jim.
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Tuesday, June 08, 2010 10:49 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Item Not Found In This Collection
Hi Rocky
Will this return a record:
Set rsPODetail = db.OpenRecordset("Select fldPODRevision FROM tblPODetail
WHERE fldPOHID = " & Me.fldPOHID)
Further, why not just open the table once:
Set rsPODetailNew = db.OpenRecordset("Select * FROM tblPODetail WHERE
fldPOHID = " & Me.fldPOHID)
Set rsPODetail = rsPODetailNew.Clone
/gustav
>>> rockysmolin at bchacc.com 08-06-2010 16:14 >>>
Dear List:
I am cloning a purchase order, so I'm cycling through the PO detail lines,
creating a new PO Detail record for each existing detail record. I've
already copied the PO Header record and have the PK available. All's well
until it comes to one specific field in the PODetail copy code and then I
get the message 'Item Not Found In This Collection'.
The code to copy is:
rsPODetailNew.AddNew
rsPODetailNew!fldPOHID = rsPOHeader!fldPOHID
rsPODetailNew!fldPODLineNumber = rsPODetail!fldPODLineNumber
rsPODetailNew!fldPODPartNumber = rsPODetail!fldPODPartNumber
rsPODetailNew!fldPODVendorPart = rsPODetail!fldPODVendorPart
rsPODetailNew!fldPODPartDescription =
rsPODetail!fldPODPartDescription
rsPODetailNew!fldPODUOM = rsPODetail!fldPODUOM
rsPODetailNew!fldPODUnitCost = rsPODetail!fldPODUnitCost
rsPODetailNew!fldPODDateRequired = rsPODetail!fldPODDateRequired
rsPODetailNew!fldPODQuantityOrdered =
rsPODetail!fldPODQuantityOrdered
rsPODetailNew!fldPODQuantityReceived =
rsPODetail!fldPODQuantityReceived
rsPODetailNew!fldPODTaxable = rsPODetail!fldPODTaxable
rsPODetailNew!fldPODPosted = rsPODetail!fldPODPosted
rsPODetailNew!fldPODRevision = rsPODetail!fldPODRevision
rsPODetailNew.Update
and the offending line is rsPODetailNew!fldPODRevision =
rsPODetail!fldPODRevision. Where fldPOHID is the FK to the Header.
Both rsPODetailNew!fldPODRevision and rsPODetail!fldPODRevision show as not
being in the collection when I hover over them with the pointer. So it's
common to both recordsets.
The two recordsets are opened thusly:
Set rsPODetail = db.OpenRecordset("Select * FROM tblPODetail WHERE fldPOHID
= " & Me.fldPOHID)
Set rsPODetailNew = db.OpenRecordset("Select * FROM tblPODetail")
where Me.fldPOHID is the PK of the PO to be copied.
Very straightforward.
The Field fldPODRevision is in the table - I did a cut and poaste to avoid
typos. All the other fields copy fine. When I comment out the line with
the problem, the PO copies perfectly.
Usually this kind of intractable problem can be solved by writing out the
description to the list and in the process I see where the error is and
never send the email. In this case, here I am at the end of the post and
still can't see why that one field should no be in the collection.
Ay speculations welcome.
MTIA
Rocky Smolin
Beach Access Software
858-259-4334
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
From rockysmolin at bchacc.com Tue Jun 8 10:09:18 2010
From: rockysmolin at bchacc.com (Rocky Smolin)
Date: Tue, 8 Jun 2010 08:09:18 -0700
Subject: [AccessD] Item Not Found In This Collection
In-Reply-To:
References:
Message-ID:
Gustav:
Yes. I inserted this code:
Set rsPODetail = db.OpenRecordset("Select fldPODRevision FROM tblPODetail
WHERE fldPOHID = " & Me.fldPOHID)
If rsPODetail.BOF = False And rsPODetail.EOF = False Then
rsPODetail.MoveLast
MsgBox rsPODetail.RecordCount
Do While rsPODetail.EOF = False
MsgBox rsPODetail!fldPODRevision
and the record count comes up with 3 - that's correct. And the MsgBox
displayed rsPODetail!fldPODRevision without a problem.
Any clues there?
TIA
Rocky
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Tuesday, June 08, 2010 7:49 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Item Not Found In This Collection
Hi Rocky
Will this return a record:
Set rsPODetail = db.OpenRecordset("Select fldPODRevision FROM tblPODetail
WHERE fldPOHID = " & Me.fldPOHID)
Further, why not just open the table once:
Set rsPODetailNew = db.OpenRecordset("Select * FROM tblPODetail WHERE
fldPOHID = " & Me.fldPOHID) Set rsPODetail = rsPODetailNew.Clone
/gustav
>>> rockysmolin at bchacc.com 08-06-2010 16:14 >>>
Dear List:
I am cloning a purchase order, so I'm cycling through the PO detail lines,
creating a new PO Detail record for each existing detail record. I've
already copied the PO Header record and have the PK available. All's well
until it comes to one specific field in the PODetail copy code and then I
get the message 'Item Not Found In This Collection'.
The code to copy is:
rsPODetailNew.AddNew
rsPODetailNew!fldPOHID = rsPOHeader!fldPOHID
rsPODetailNew!fldPODLineNumber = rsPODetail!fldPODLineNumber
rsPODetailNew!fldPODPartNumber = rsPODetail!fldPODPartNumber
rsPODetailNew!fldPODVendorPart = rsPODetail!fldPODVendorPart
rsPODetailNew!fldPODPartDescription =
rsPODetail!fldPODPartDescription
rsPODetailNew!fldPODUOM = rsPODetail!fldPODUOM
rsPODetailNew!fldPODUnitCost = rsPODetail!fldPODUnitCost
rsPODetailNew!fldPODDateRequired = rsPODetail!fldPODDateRequired
rsPODetailNew!fldPODQuantityOrdered =
rsPODetail!fldPODQuantityOrdered
rsPODetailNew!fldPODQuantityReceived =
rsPODetail!fldPODQuantityReceived
rsPODetailNew!fldPODTaxable = rsPODetail!fldPODTaxable
rsPODetailNew!fldPODPosted = rsPODetail!fldPODPosted
rsPODetailNew!fldPODRevision = rsPODetail!fldPODRevision
rsPODetailNew.Update
and the offending line is rsPODetailNew!fldPODRevision =
rsPODetail!fldPODRevision. Where fldPOHID is the FK to the Header.
Both rsPODetailNew!fldPODRevision and rsPODetail!fldPODRevision show as not
being in the collection when I hover over them with the pointer. So it's
common to both recordsets.
The two recordsets are opened thusly:
Set rsPODetail = db.OpenRecordset("Select * FROM tblPODetail WHERE fldPOHID
= " & Me.fldPOHID) Set rsPODetailNew = db.OpenRecordset("Select * FROM
tblPODetail")
where Me.fldPOHID is the PK of the PO to be copied.
Very straightforward.
The Field fldPODRevision is in the table - I did a cut and poaste to avoid
typos. All the other fields copy fine. When I comment out the line with
the problem, the PO copies perfectly.
Usually this kind of intractable problem can be solved by writing out the
description to the list and in the process I see where the error is and
never send the email. In this case, here I am at the end of the post and
still can't see why that one field should no be in the collection.
Ay speculations welcome.
MTIA
Rocky Smolin
Beach Access Software
858-259-4334
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
From rockysmolin at bchacc.com Tue Jun 8 10:10:42 2010
From: rockysmolin at bchacc.com (Rocky Smolin)
Date: Tue, 8 Jun 2010 08:10:42 -0700
Subject: [AccessD] Item Not Found In This Collection
In-Reply-To:
References:
Message-ID: <8F0D5492A7434BDFBDB44082FD754E1B@HAL9005>
That was my first thought as well. But that field appears only in one table
and I almost always cut and paste to avoid the typos.
I tried Gustav's experiment and it worked (please see my post back to him)
so the field is there and can be accessed.
Rocky
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Tuesday, June 08, 2010 7:58 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Item Not Found In This Collection
Rocky,
<>
You sure you looked in the right table or that your using the table with
the field in it? Sounds to me like the field is either not there or
mis-spelled.
Jim.
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Tuesday, June 08, 2010 10:49 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Item Not Found In This Collection
Hi Rocky
Will this return a record:
Set rsPODetail = db.OpenRecordset("Select fldPODRevision FROM tblPODetail
WHERE fldPOHID = " & Me.fldPOHID)
Further, why not just open the table once:
Set rsPODetailNew = db.OpenRecordset("Select * FROM tblPODetail WHERE
fldPOHID = " & Me.fldPOHID) Set rsPODetail = rsPODetailNew.Clone
/gustav
>>> rockysmolin at bchacc.com 08-06-2010 16:14 >>>
Dear List:
I am cloning a purchase order, so I'm cycling through the PO detail lines,
creating a new PO Detail record for each existing detail record. I've
already copied the PO Header record and have the PK available. All's well
until it comes to one specific field in the PODetail copy code and then I
get the message 'Item Not Found In This Collection'.
The code to copy is:
rsPODetailNew.AddNew
rsPODetailNew!fldPOHID = rsPOHeader!fldPOHID
rsPODetailNew!fldPODLineNumber = rsPODetail!fldPODLineNumber
rsPODetailNew!fldPODPartNumber = rsPODetail!fldPODPartNumber
rsPODetailNew!fldPODVendorPart = rsPODetail!fldPODVendorPart
rsPODetailNew!fldPODPartDescription =
rsPODetail!fldPODPartDescription
rsPODetailNew!fldPODUOM = rsPODetail!fldPODUOM
rsPODetailNew!fldPODUnitCost = rsPODetail!fldPODUnitCost
rsPODetailNew!fldPODDateRequired = rsPODetail!fldPODDateRequired
rsPODetailNew!fldPODQuantityOrdered =
rsPODetail!fldPODQuantityOrdered
rsPODetailNew!fldPODQuantityReceived =
rsPODetail!fldPODQuantityReceived
rsPODetailNew!fldPODTaxable = rsPODetail!fldPODTaxable
rsPODetailNew!fldPODPosted = rsPODetail!fldPODPosted
rsPODetailNew!fldPODRevision = rsPODetail!fldPODRevision
rsPODetailNew.Update
and the offending line is rsPODetailNew!fldPODRevision =
rsPODetail!fldPODRevision. Where fldPOHID is the FK to the Header.
Both rsPODetailNew!fldPODRevision and rsPODetail!fldPODRevision show as not
being in the collection when I hover over them with the pointer. So it's
common to both recordsets.
The two recordsets are opened thusly:
Set rsPODetail = db.OpenRecordset("Select * FROM tblPODetail WHERE fldPOHID
= " & Me.fldPOHID) Set rsPODetailNew = db.OpenRecordset("Select * FROM
tblPODetail")
where Me.fldPOHID is the PK of the PO to be copied.
Very straightforward.
The Field fldPODRevision is in the table - I did a cut and poaste to avoid
typos. All the other fields copy fine. When I comment out the line with
the problem, the PO copies perfectly.
Usually this kind of intractable problem can be solved by writing out the
description to the list and in the process I see where the error is and
never send the email. In this case, here I am at the end of the post and
still can't see why that one field should no be in the collection.
Ay speculations welcome.
MTIA
Rocky Smolin
Beach Access Software
858-259-4334
--
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
From Gustav at cactus.dk Tue Jun 8 10:31:20 2010
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 08 Jun 2010 17:31:20 +0200
Subject: [AccessD] Item Not Found In This Collection
Message-ID:
Hi Rocky
Try adding the other fields one by one.
/gustav
>>> rockysmolin at bchacc.com 08-06-2010 17:09 >>>
Gustav:
Yes. I inserted this code:
Set rsPODetail = db.OpenRecordset("Select fldPODRevision FROM tblPODetail
WHERE fldPOHID = " & Me.fldPOHID)
If rsPODetail.BOF = False And rsPODetail.EOF = False Then
rsPODetail.MoveLast
MsgBox rsPODetail.RecordCount
Do While rsPODetail.EOF = False
MsgBox rsPODetail!fldPODRevision
and the record count comes up with 3 - that's correct. And the MsgBox
displayed rsPODetail!fldPODRevision without a problem.
Any clues there?
TIA
Rocky
From rockysmolin at bchacc.com Tue Jun 8 10:41:39 2010
From: rockysmolin at bchacc.com (Rocky Smolin)
Date: Tue, 8 Jun 2010 08:41:39 -0700
Subject: [AccessD] Item Not Found In This Collection
In-Reply-To:
References:
Message-ID:
Gustav:
So I changed the set of the PODetail recordsets from:
'Set rsPODetail = db.OpenRecordset("Select * FROM tblPODetail WHERE fldPOHID
= " & Me.fldPOHID)
'Set rsPODetailNew = db.OpenRecordset("Select * FROM tblPODetail")
to:
Set rsPODetail = db.OpenRecordset("Select fldPODRevision, fldPODPosted,
fldPODTaxable, " _
& " fldPODQuantityReceived, fldPODQuantityOrdered, fldPODDateRequired, "
_
& "fldPODUnitCost, fldPODUOM, fldPODPartDescription, fldPODVendorPart, "
_
& "fldPODPartNumber, fldPODLineNumber, fldPOHID, fldPODID " _
& "FROM tblPODetail WHERE fldPOHID = " & Me.fldPOHID)
Set rsPODetailNew = db.OpenRecordset("Select fldPODRevision, fldPODPosted,
fldPODTaxable, " _
& " fldPODQuantityReceived, fldPODQuantityOrdered, fldPODDateRequired, "
_
& "fldPODUnitCost, fldPODUOM, fldPODPartDescription, fldPODVendorPart, "
_
& "fldPODPartNumber, fldPODLineNumber, fldPOHID, fldPODID FROM
tblPODetail")
And that works. But why?
Rocky
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Tuesday, June 08, 2010 8:31 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Item Not Found In This Collection
Hi Rocky
Try adding the other fields one by one.
/gustav
>>> rockysmolin at bchacc.com 08-06-2010 17:09 >>>
Gustav:
Yes. I inserted this code:
Set rsPODetail = db.OpenRecordset("Select fldPODRevision FROM tblPODetail
WHERE fldPOHID = " & Me.fldPOHID)
If rsPODetail.BOF = False And rsPODetail.EOF = False Then
rsPODetail.MoveLast MsgBox rsPODetail.RecordCount
Do While rsPODetail.EOF = False
MsgBox rsPODetail!fldPODRevision
and the record count comes up with 3 - that's correct. And the MsgBox
displayed rsPODetail!fldPODRevision without a problem.
Any clues there?
TIA
Rocky
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
From Gustav at cactus.dk Tue Jun 8 11:20:57 2010
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 08 Jun 2010 18:20:57 +0200
Subject: [AccessD] Item Not Found In This Collection
Message-ID:
Hi Rocky
I'm out of ideas. I've never seen something similar.
/gustav
>>> rockysmolin at bchacc.com 08-06-2010 17:41 >>>
Gustav:
So I changed the set of the PODetail recordsets from:
'Set rsPODetail = db.OpenRecordset("Select * FROM tblPODetail WHERE fldPOHID
= " & Me.fldPOHID)
'Set rsPODetailNew = db.OpenRecordset("Select * FROM tblPODetail")
to:
Set rsPODetail = db.OpenRecordset("Select fldPODRevision, fldPODPosted,
fldPODTaxable, " _
& " fldPODQuantityReceived, fldPODQuantityOrdered, fldPODDateRequired, "
_
& "fldPODUnitCost, fldPODUOM, fldPODPartDescription, fldPODVendorPart, "
_
& "fldPODPartNumber, fldPODLineNumber, fldPOHID, fldPODID " _
& "FROM tblPODetail WHERE fldPOHID = " & Me.fldPOHID)
Set rsPODetailNew = db.OpenRecordset("Select fldPODRevision, fldPODPosted,
fldPODTaxable, " _
& " fldPODQuantityReceived, fldPODQuantityOrdered, fldPODDateRequired, "
_
& "fldPODUnitCost, fldPODUOM, fldPODPartDescription, fldPODVendorPart, "
_
& "fldPODPartNumber, fldPODLineNumber, fldPOHID, fldPODID FROM
tblPODetail")
And that works. But why?
Rocky
From darren at activebilling.com.au Tue Jun 8 11:25:47 2010
From: darren at activebilling.com.au (Darren - Active Billing)
Date: Wed, 9 Jun 2010 02:25:47 +1000
Subject: [AccessD] A2003:Add User to Small Business server
Message-ID:
Hi All
In my app I now have the addition of persons to the SQL Server working a
treat - thanks guys
Now I want to create a user on a Small Business Server 2003 and add them to
a template and add them to a Security Group
EG - Assume the following
FullName = 'John smith'
Username = 'smithy'
PWD = 'jon123'
Template = 'Mobile User Template'
SecurityGroup = 'SomeGroup' (Member Of)
Anyone know how could I create these 5 elements from say a script I can run
as a batch file from my A2003 app?
I have played with addusr.exe but had no success
I have looked on the net but am unable to get the various things that have
been suggested to work
I was optimistically :-) hoping something like this might work
Addusr.exe -fn 'John Smith' -un 'smithy' -pwd 'jon123' -t 'Mobile User
Template' -sg 'SomeGroup'
But this is very optimistic (and doesn't work) - So over to the brains trust
Many thanks in advance team
Darren
From jimdettman at verizon.net Tue Jun 8 11:50:41 2010
From: jimdettman at verizon.net (Jim Dettman)
Date: Tue, 08 Jun 2010 12:50:41 -0400
Subject: [AccessD] Item Not Found In This Collection
In-Reply-To:
References:
Message-ID: