From bheid at appdevgrp.com Thu Jun 1 09:20:13 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Thu, 1 Jun 2006 10:20:13 -0400 Subject: [AccessD] OT SQL Server In-Reply-To: <916187228923D311A6FE00A0CC3FAA30DC1AE7@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D35492@ADGSERVER> I signed up for this on 5/19. Just today, I got emails pointing me to the online versions of the May and June issues (you can download them also). I'm not sure, but I think I will get the paper version also. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Martin Reid Sent: Wednesday, May 31, 2006 3:58 PM To: Access Developers discussion and problem solving Subject: [AccessD] OT SQL Server Got this email and its valid. Give it a go. As a valued member of the SQL Server Community, you have been authorized to receive a FREE digital subscription to SQL Server Magazine -- up to a $49.95* value. This is a one-time only exclusive offer and will not be repeated. With your subscription, you will be introduced to the #1 guide to building world-class applications and every month you will receive: --Expert advice from the most respected industry gurus --Up-to-the-minute information you can't be without --Comprehensive SQL Server 2005 coverage of high availability features, management tools, new CLR features, reporting services and other hot industry topics --Thousands of solutions to help you get more done in less time --Quick tips and practical "how-to" content --Comparative, independent product review --A community to connect and interact with your peers A very limited supply of these complimentary subscriptions are available (first come, first serve), so sign up for your free subscription now: http://lists.sqlmag.com/t?ctl=2CE5B:8DF71 *Sorry, this special offer is for new subscribers only! U.S. rate. Valid postal and email addresses are required to qualify. First issue will arrive in 4 to 6 weeks. From robert at servicexp.com Thu Jun 1 16:51:24 2006 From: robert at servicexp.com (Robert) Date: Thu, 1 Jun 2006 17:51:24 -0400 Subject: [AccessD] Autonumber Duplication???? In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D35492@ADGSERVER> Message-ID: <000c01c685c5$87bdeb20$6401a8c0@roberts> Hello All, I have run into something that I have not seen before. I have an autonumber field that has simply started producing duplicate numbers in the 400 range while the data in the field is over 500.. The doesn't seem to be any corruption, any ideas?? Thanks Robert From cfoust at infostatsystems.com Thu Jun 1 16:57:53 2006 From: cfoust at infostatsystems.com (Charlotte Foust) Date: Thu, 1 Jun 2006 14:57:53 -0700 Subject: [AccessD] Autonumber Duplication???? In-Reply-To: <000c01c685c5$87bdeb20$6401a8c0@roberts> Message-ID: Sorry, but I don't understand. What data in which field is over 500? You mean you have autonumbers over 500 and you're suddenly hitting duplicates of earlier autonumbers? What version of Access are you running and what service packs/jet service packs? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Robert Sent: Thursday, June 01, 2006 2:51 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Autonumber Duplication???? Hello All, I have run into something that I have not seen before. I have an autonumber field that has simply started producing duplicate numbers in the 400 range while the data in the field is over 500.. The doesn't seem to be any corruption, any ideas?? Thanks Robert -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From robert at servicexp.com Thu Jun 1 17:37:26 2006 From: robert at servicexp.com (Robert) Date: Thu, 1 Jun 2006 18:37:26 -0400 Subject: [AccessD] Autonumber Duplication???? In-Reply-To: Message-ID: <000d01c685cb$f5ca02b0$6401a8c0@roberts> Charlotte, Sorry about that, that is exactly what has started to happen. It's seems the autonumber field was reset to earlier number, I'm current combing through my code to see if I caused this. FE AXP Latest SP/Jet BE A2K Robert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Thursday, June 01, 2006 5:58 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Autonumber Duplication???? Sorry, but I don't understand. What data in which field is over 500? You mean you have autonumbers over 500 and you're suddenly hitting duplicates of earlier autonumbers? What version of Access are you running and what service packs/jet service packs? Charlotte Foust -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Robert Sent: Thursday, June 01, 2006 2:51 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Autonumber Duplication???? Hello All, I have run into something that I have not seen before. I have an autonumber field that has simply started producing duplicate numbers in the 400 range while the data in the field is over 500.. The doesn't seem to be any corruption, any ideas?? Thanks Robert -- 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 dw-murphy at cox.net Thu Jun 1 17:53:35 2006 From: dw-murphy at cox.net (Doug Murphy) Date: Thu, 1 Jun 2006 15:53:35 -0700 Subject: [AccessD] Autonumber Duplication???? In-Reply-To: <000c01c685c5$87bdeb20$6401a8c0@roberts> Message-ID: <000e01c685ce$36dae470$0200a8c0@murphy3234aaf1> This is apparently a Jet 4 bug. See http://groups.google.com/group/microsoft.public.access.tablesdbdesign/browse _thread/thread/2d3bd84a93079101/15f25bc8674fae29%2315f25bc8674fae29 Watch for line wrap. Doug -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Robert Sent: Thursday, June 01, 2006 2:51 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Autonumber Duplication???? Hello All, I have run into something that I have not seen before. I have an autonumber field that has simply started producing duplicate numbers in the 400 range while the data in the field is over 500.. The doesn't seem to be any corruption, any ideas?? Thanks Robert -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From robert at servicexp.com Thu Jun 1 18:32:36 2006 From: robert at servicexp.com (Robert) Date: Thu, 1 Jun 2006 19:32:36 -0400 Subject: [AccessD] Autonumber Duplication???? In-Reply-To: <000e01c685ce$36dae470$0200a8c0@murphy3234aaf1> Message-ID: <000e01c685d3$aaa34be0$6401a8c0@roberts> Doug, Thank you very much. This is a HUGE time saver.... Robert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Doug Murphy Sent: Thursday, June 01, 2006 6:54 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Autonumber Duplication???? This is apparently a Jet 4 bug. See http://groups.google.com/group/microsoft.public.access.tablesdbdesign/browse _thread/thread/2d3bd84a93079101/15f25bc8674fae29%2315f25bc8674fae29 Watch for line wrap. Doug -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Robert Sent: Thursday, June 01, 2006 2:51 PM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Autonumber Duplication???? Hello All, I have run into something that I have not seen before. I have an autonumber field that has simply started producing duplicate numbers in the 400 range while the data in the field is over 500.. The doesn't seem to be any corruption, any ideas?? Thanks Robert -- 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 dw-murphy at cox.net Thu Jun 1 21:51:35 2006 From: dw-murphy at cox.net (Doug Murphy) Date: Thu, 1 Jun 2006 19:51:35 -0700 Subject: [AccessD] This file is located outside your intranet or on an untrusted site In-Reply-To: <000e01c685d3$aaa34be0$6401a8c0@roberts> Message-ID: <000401c685ef$7638cdf0$0200a8c0@murphy3234aaf1> Folks, I sent a client an access 2003 database in 2000 format. The file was zipped when sent. She extracted it and tried to open and gets the message: Microsoft Access cannot open this file. This file is located outside your intranet or on an untrusted site. Microsoft Access will not open the file due to potential security problems. To open the file, copy it to your computer or an accessible network location. I looked this up and the knowledge base article talks about in internet explorer security setting. This seems a little bazar so I thought I'd query this group on possible causes and solutions. The client is running Access XP. She has Jet 4 and we tried setting the sandbox setting to 0. No help. The interesting thing is that I took a preliminary set of files to her office on a CD and they ran fine on her machine. I seem to recollect some discussion about this on the list but haven't found anything. Any thoughs, or suggestions. Thanks in advance. Doug From bill_Patten at earthlink.net Thu Jun 1 22:32:29 2006 From: bill_Patten at earthlink.net (Bill Patten) Date: Thu, 1 Jun 2006 20:32:29 -0700 Subject: [AccessD] This file is located outside your intranet or on anuntrusted site References: <000401c685ef$7638cdf0$0200a8c0@murphy3234aaf1> Message-ID: <008f01c685f5$2d61be60$6401a8c0@BPCS> Doug, I think this will fix it. 9/17/2005 From PC Mag Sept 2005 "Can't open file because file is located outside of your intranet ....." XP SP2 marks files as having come from a non secure site, in most cases right clicking on the file and selecting properties, if the secure flag is set, you will see a button labeled unblock at the bottom of the page, click this and you should be home. Sometimes this option may not work, saving the file to a non ntfs format and then copying it back may also fix the problem. Note: the Unblock button does not appear on a file that is not marked. ----- Original Message ----- From: "Doug Murphy" To: "'Access Developers discussion and problem solving'" Sent: Thursday, June 01, 2006 7:51 PM Subject: [AccessD] This file is located outside your intranet or on anuntrusted site Folks, I sent a client an access 2003 database in 2000 format. The file was zipped when sent. She extracted it and tried to open and gets the message: Microsoft Access cannot open this file. This file is located outside your intranet or on an untrusted site. Microsoft Access will not open the file due to potential security problems. To open the file, copy it to your computer or an accessible network location. I looked this up and the knowledge base article talks about in internet explorer security setting. This seems a little bazar so I thought I'd query this group on possible causes and solutions. The client is running Access XP. She has Jet 4 and we tried setting the sandbox setting to 0. No help. The interesting thing is that I took a preliminary set of files to her office on a CD and they ran fine on her machine. I seem to recollect some discussion about this on the list but haven't found anything. Any thoughs, or suggestions. Thanks in advance. Doug -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From bchacc at san.rr.com Thu Jun 1 22:47:27 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 01 Jun 2006 20:47:27 -0700 Subject: [AccessD] Outlook Automation Message-ID: <447FB4CF.4040205@san.rr.com> Dear List: I need to look in a specific outlook folder for mail. I can't find the syntax for this. Can anyone point me in the right direction? MTIA Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From kp at sdsonline.net Thu Jun 1 22:52:16 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Fri, 2 Jun 2006 13:52:16 +1000 Subject: [AccessD] Outlook Automation References: <447FB4CF.4040205@san.rr.com> Message-ID: <002401c685f7$f1358270$6601a8c0@office> Rocky - in the post I sent you a couple of weeks ago the code looks for a specific folder within Inbox. If you need the code again, let me know. If you need to reference a difft. mail folder then I don't have that but maybe you can tweak it? rgds Kath ----- Original Message ----- From: Rocky Smolin - Beach Access Software To: Access Developers discussion and problem solving Sent: Friday, June 02, 2006 1:47 PM Subject: [AccessD] Outlook Automation Dear List: I need to look in a specific outlook folder for mail. I can't find the syntax for this. Can anyone point me in the right direction? MTIA Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From bchacc at san.rr.com Thu Jun 1 23:14:06 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 01 Jun 2006 21:14:06 -0700 Subject: [AccessD] Outlook Automation In-Reply-To: <002401c685f7$f1358270$6601a8c0@office> References: <447FB4CF.4040205@san.rr.com> <002401c685f7$f1358270$6601a8c0@office> Message-ID: <447FBB0E.5020907@san.rr.com> Kath: I thought I remembered something from a few days ago. Yes, I'd appreciate that piece of code. I got as far as: Dim appOutlook As Outlook.Application Dim msgOutlook As Object Dim nSpace As Outlook.NameSpace Dim folderOutlook As Outlook.MAPIFolder Set appOutlook = CreateObject("Outlook.Application") Set nSpace = appOutlook.GetNamespace("MAPI") Set folderOutlook = nSpace.GetDefaultFolder(olFolderInbox) Will this do it? I have to ask the client if I'm to look in the Inbox or if he's directing mail from a certain address into another folder. I assume there's a way to look at the "To" field to see if it's addressed to the mailbox in question. So I guess I have to figure out the object model. And the For Each loop to look at each item int he mailbox. Thanks and regards, Rocky Kath Pelletti wrote: > Rocky - in the post I sent you a couple of weeks ago the code looks for a specific folder within Inbox. If you need the code again, let me know. If you need to reference a difft. mail folder then I don't have that but maybe you can tweak it? > > rgds > Kath > ----- Original Message ----- > From: Rocky Smolin - Beach Access Software > To: Access Developers discussion and problem solving > Sent: Friday, June 02, 2006 1:47 PM > Subject: [AccessD] Outlook Automation > > > Dear List: > > I need to look in a specific outlook folder for mail. I can't find the > syntax for this. Can anyone point me in the right direction? > > MTIA > > Rocky > > -- > Rocky Smolin > Beach Access Software > 858-259-4334 > www.e-z-mrp.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From kp at sdsonline.net Thu Jun 1 23:29:12 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Fri, 2 Jun 2006 14:29:12 +1000 Subject: [AccessD] Outlook Automation References: <447FB4CF.4040205@san.rr.com><002401c685f7$f1358270$6601a8c0@office> <447FBB0E.5020907@san.rr.com> Message-ID: <002f01c685fd$1a91ca20$6601a8c0@office> Rocky - here it is again. This works to retrieve mail messages if you put them in a subfolder of Inbox (in my case 'Customer Inquiries'.) -------------------------------------------------------------------------------- Public Function ProcessMailMessagesInFolder() 'Adapted by K Pelletti from code from Helen Feddema 3-28-2002 Dim strerrormsg As String On Error GoTo Err_Handler Dim appOutlook As New Outlook.Application Dim nms As Outlook.NameSpace Dim fld As Outlook.MAPIFolder Dim myfld As Outlook.MAPIFolder Dim itm As Object Dim msg As Outlook.MailItem Dim strMessage As String Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim strsql As String Dim prj As Object Dim lngItemCount As Long Dim IntFolderNo As Integer Dim IntTotalNoFoldersInInbox As Integer Dim IntNoMailItems As Integer Dim BoolFolderFound As Boolean BoolFolderFound = False Set nms = appOutlook.GetNamespace("MAPI") Set fld = nms.GetDefaultFolder(olFolderInbox) IntFolderNo = 0 IntTotalNoFoldersInInbox = 0 IntNoMailItems = 0 IntTotalNoFoldersInInbox = fld.Folders.Count Do Until IntFolderNo = IntTotalNoFoldersInInbox IntFolderNo = IntFolderNo + 1 Set myfld = fld.Folders(IntFolderNo) If myfld.Name = "Customer Inquiries" Then 'Rocky - put your subfolder Outlook name here BoolFolderFound = True IntNoMailItems = myfld.Items.Count ' MsgBox ("No messages is: " & IntNoMailItems) Exit Do End If Loop If BoolFolderFound = False Then MsgBox ("Unable to find the Customer Inquiries Folder in Outlook." & vbCrLf & vbCrLf & "(The folder should be a subfolder of inbox.)"), , "Hudsons Database" GoTo Normal_exit End If If myfld Is Nothing Then GoTo Err_Handler End If If myfld.DefaultItemType <> olMailItem Then MsgBox "Folder does not contain mail messages; Exiting", , "Importing Mail" GoTo Normal_exit End If lngItemCount = myfld.Items.Count If lngItemCount = 0 Then MsgBox ("There are no mail messages in the Customer Inquiries folder."), , "Hudsons Database" GoTo Normal_exit End If 'Process items in selected folder strsql = "DELETE * FROM tblOutlookMail" DoCmd.SetWarnings False DoCmd.RunSQL strsql Set dbs = CurrentDb Set rst = dbs.OpenRecordset("tblOutlookMail") For Each itm In myfld.Items If itm.Class = olMail Then Set msg = itm With rst .AddNew !Subject = msg.Subject !Body = msg.Body !CC = msg.CC !BCC = msg.BCC !Sent = msg.SentOn !FromName = msg.SenderName .Update End With End If Next itm rst.Close Set prj = Application.CurrentProject If prj.AllForms("frmOutlookMail").IsLoaded = True Then Forms("frmOutlookMail").Requery Else DoCmd.OpenForm "frmOutlookMail", , , , , acDialog End If Normal_exit: ' MsgBox ("No of new mail messages: " & IntNoMailItems), , "Mail Import" Exit Function Err_Handler: MsgBox "Error: [" & Err.Number & "] " & IIf(Len(strerrormsg) > 0, strerrormsg, Err.Description), vbCritical, "Error Message" hCursor = CursorID RetVal = SetCursor(hCursor) Resume Normal_exit End Function Kath From bchacc at san.rr.com Thu Jun 1 23:43:26 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 01 Jun 2006 21:43:26 -0700 Subject: [AccessD] Outlook Automation In-Reply-To: <002f01c685fd$1a91ca20$6601a8c0@office> References: <447FB4CF.4040205@san.rr.com> <002401c685f7$f1358270$6601a8c0@office> <447FBB0E.5020907@san.rr.com> <002f01c685fd$1a91ca20$6601a8c0@office> Message-ID: <447FC1EE.8030905@san.rr.com> Kath: Thank you. Thank you. Thank you. That's what I need. I have to check the "To" to make sure it's coming in to a specific mail address. Do you know offhand what the syntax is for that? Thanks again and regards, Rocky Kath Pelletti wrote: > Rocky - here it is again. > > This works to retrieve mail messages if you put them in a subfolder of Inbox (in my case 'Customer Inquiries'.) > > -------------------------------------------------------------------------------- > > Public Function ProcessMailMessagesInFolder() > 'Adapted by K Pelletti from code from Helen Feddema 3-28-2002 > Dim strerrormsg As String > On Error GoTo Err_Handler > > Dim appOutlook As New Outlook.Application > > Dim nms As Outlook.NameSpace > Dim fld As Outlook.MAPIFolder > Dim myfld As Outlook.MAPIFolder > > Dim itm As Object > Dim msg As Outlook.MailItem > Dim strMessage As String > Dim dbs As DAO.Database > Dim rst As DAO.Recordset > Dim strsql As String > Dim prj As Object > Dim lngItemCount As Long > Dim IntFolderNo As Integer > Dim IntTotalNoFoldersInInbox As Integer > Dim IntNoMailItems As Integer > Dim BoolFolderFound As Boolean > BoolFolderFound = False > > Set nms = appOutlook.GetNamespace("MAPI") > Set fld = nms.GetDefaultFolder(olFolderInbox) > IntFolderNo = 0 > IntTotalNoFoldersInInbox = 0 > IntNoMailItems = 0 > IntTotalNoFoldersInInbox = fld.Folders.Count > > Do Until IntFolderNo = IntTotalNoFoldersInInbox > IntFolderNo = IntFolderNo + 1 > Set myfld = fld.Folders(IntFolderNo) > If myfld.Name = "Customer Inquiries" Then 'Rocky - put your subfolder Outlook name here > BoolFolderFound = True > IntNoMailItems = myfld.Items.Count > ' MsgBox ("No messages is: " & IntNoMailItems) > Exit Do > End If > Loop > > If BoolFolderFound = False Then > MsgBox ("Unable to find the Customer Inquiries Folder in Outlook." & vbCrLf & vbCrLf & "(The folder should be a subfolder of inbox.)"), , "Hudsons Database" > GoTo Normal_exit > End If > > If myfld Is Nothing Then > GoTo Err_Handler > End If > > If myfld.DefaultItemType <> olMailItem Then > MsgBox "Folder does not contain mail messages; Exiting", , "Importing Mail" > GoTo Normal_exit > End If > > lngItemCount = myfld.Items.Count > > If lngItemCount = 0 Then > MsgBox ("There are no mail messages in the Customer Inquiries folder."), , "Hudsons Database" > GoTo Normal_exit > End If > > 'Process items in selected folder > strsql = "DELETE * FROM tblOutlookMail" > DoCmd.SetWarnings False > DoCmd.RunSQL strsql > Set dbs = CurrentDb > Set rst = dbs.OpenRecordset("tblOutlookMail") > > For Each itm In myfld.Items > If itm.Class = olMail Then > Set msg = itm > With rst > .AddNew > !Subject = msg.Subject > !Body = msg.Body > !CC = msg.CC > !BCC = msg.BCC > !Sent = msg.SentOn > !FromName = msg.SenderName > .Update > End With > End If > Next itm > rst.Close > > Set prj = Application.CurrentProject > > If prj.AllForms("frmOutlookMail").IsLoaded = True Then > Forms("frmOutlookMail").Requery > Else > DoCmd.OpenForm "frmOutlookMail", , , , , acDialog > End If > > > Normal_exit: > ' MsgBox ("No of new mail messages: " & IntNoMailItems), , "Mail Import" > Exit Function > Err_Handler: > MsgBox "Error: [" & Err.Number & "] " & IIf(Len(strerrormsg) > 0, strerrormsg, Err.Description), vbCritical, "Error Message" > hCursor = CursorID > RetVal = SetCursor(hCursor) > Resume Normal_exit > > End Function > Kath > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From newsgrps at dalyn.co.nz Fri Jun 2 00:21:37 2006 From: newsgrps at dalyn.co.nz (David Emerson) Date: Fri, 02 Jun 2006 17:21:37 +1200 Subject: [AccessD] Dot Net 2.0 - Clicking into Text Boxes In-Reply-To: <0J0400KAA4J4L8M1@l-daemon> References: <7.0.1.0.0.20060531091216.01a59768@dalyn.co.nz> <0J0400KAA4J4L8M1@l-daemon> Message-ID: <7.0.1.0.0.20060602170502.01b1b710@dalyn.co.nz> Jim, I am new to HTML and .Net, haven't ever used Java, and don't quite follow your suggestion. 1. document.forms[0].textbox1.focus() - I would include one of these functions for each text box - Correct? 2.
I am using Text Boxes to get the information. An example is: 200 I am not sure how to translate this into the example you gave. David At 31/05/2006, you wrote: >Hi David: > >The following is air code but some similar code should work... have a real >example but can not remember where it is at the moment: > > >SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript"> > > >... > > >
> >
> >This is not specifically done through .Net but this would be the direct >approach. This is by no means completed code but it should be a start. > >HTH >Jim > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David Emerson >Sent: Tuesday, May 30, 2006 2:13 PM >To: accessd at databaseadvisors.com >Subject: [AccessD] Dot Net 2.0 - Clicking into Text Boxes > >I have a text box on my web page. When using a mouse, users can only >go into the box when they click on text already entered. If they >click in part of the box that doesn't have any text then the cursor >doesn't move to the box. > >Also, if they delete everything in the box then the only way they can >get back to the box is to click on the associated label (which also >works if some text is in the field) > >This is confusing for the users. Is it possible to make a change so >that clicking anywhere in a text box will move the cursor into the box? > >Regards > >David Emerson >Dalyn Software Ltd >New Zealand From kp at sdsonline.net Fri Jun 2 00:26:23 2006 From: kp at sdsonline.net (Kath Pelletti) Date: Fri, 2 Jun 2006 15:26:23 +1000 Subject: [AccessD] Outlook Automation References: <447FB4CF.4040205@san.rr.com><002401c685f7$f1358270$6601a8c0@office><447FBB0E.5020907@san.rr.com><002f01c685fd$1a91ca20$6601a8c0@office> <447FC1EE.8030905@san.rr.com> Message-ID: <000c01c68605$16f3e940$6601a8c0@office> Rocky - what I did to get around that in my app was add an Outlook mail rule to put messages with a specific 'To' address into the correct subfolder of Inbox. That way you *know" you've got the right ones. Otherwise, from the vba side of things, the item has a '.To' property just as it has a '.CC', '.Body' property etc. HTH Kath ----- Original Message ----- From: Rocky Smolin - Beach Access Software To: Access Developers discussion and problem solving Sent: Friday, June 02, 2006 2:43 PM Subject: Re: [AccessD] Outlook Automation Kath: Thank you. Thank you. Thank you. That's what I need. I have to check the "To" to make sure it's coming in to a specific mail address. Do you know offhand what the syntax is for that? Thanks again and regards, Rocky Kath Pelletti wrote: > Rocky - here it is again. > > This works to retrieve mail messages if you put them in a subfolder of Inbox (in my case 'Customer Inquiries'.) > > -------------------------------------------------------------------------------- > > Public Function ProcessMailMessagesInFolder() > 'Adapted by K Pelletti from code from Helen Feddema 3-28-2002 > Dim strerrormsg As String > On Error GoTo Err_Handler > > Dim appOutlook As New Outlook.Application > > Dim nms As Outlook.NameSpace > Dim fld As Outlook.MAPIFolder > Dim myfld As Outlook.MAPIFolder > > Dim itm As Object > Dim msg As Outlook.MailItem > Dim strMessage As String > Dim dbs As DAO.Database > Dim rst As DAO.Recordset > Dim strsql As String > Dim prj As Object > Dim lngItemCount As Long > Dim IntFolderNo As Integer > Dim IntTotalNoFoldersInInbox As Integer > Dim IntNoMailItems As Integer > Dim BoolFolderFound As Boolean > BoolFolderFound = False > > Set nms = appOutlook.GetNamespace("MAPI") > Set fld = nms.GetDefaultFolder(olFolderInbox) > IntFolderNo = 0 > IntTotalNoFoldersInInbox = 0 > IntNoMailItems = 0 > IntTotalNoFoldersInInbox = fld.Folders.Count > > Do Until IntFolderNo = IntTotalNoFoldersInInbox > IntFolderNo = IntFolderNo + 1 > Set myfld = fld.Folders(IntFolderNo) > If myfld.Name = "Customer Inquiries" Then 'Rocky - put your subfolder Outlook name here > BoolFolderFound = True > IntNoMailItems = myfld.Items.Count > ' MsgBox ("No messages is: " & IntNoMailItems) > Exit Do > End If > Loop > > If BoolFolderFound = False Then > MsgBox ("Unable to find the Customer Inquiries Folder in Outlook." & vbCrLf & vbCrLf & "(The folder should be a subfolder of inbox.)"), , "Hudsons Database" > GoTo Normal_exit > End If > > If myfld Is Nothing Then > GoTo Err_Handler > End If > > If myfld.DefaultItemType <> olMailItem Then > MsgBox "Folder does not contain mail messages; Exiting", , "Importing Mail" > GoTo Normal_exit > End If > > lngItemCount = myfld.Items.Count > > If lngItemCount = 0 Then > MsgBox ("There are no mail messages in the Customer Inquiries folder."), , "Hudsons Database" > GoTo Normal_exit > End If > > 'Process items in selected folder > strsql = "DELETE * FROM tblOutlookMail" > DoCmd.SetWarnings False > DoCmd.RunSQL strsql > Set dbs = CurrentDb > Set rst = dbs.OpenRecordset("tblOutlookMail") > > For Each itm In myfld.Items > If itm.Class = olMail Then > Set msg = itm > With rst > .AddNew > !Subject = msg.Subject > !Body = msg.Body > !CC = msg.CC > !BCC = msg.BCC > !Sent = msg.SentOn > !FromName = msg.SenderName > .Update > End With > End If > Next itm > rst.Close > > Set prj = Application.CurrentProject > > If prj.AllForms("frmOutlookMail").IsLoaded = True Then > Forms("frmOutlookMail").Requery > Else > DoCmd.OpenForm "frmOutlookMail", , , , , acDialog > End If > > > Normal_exit: > ' MsgBox ("No of new mail messages: " & IntNoMailItems), , "Mail Import" > Exit Function > Err_Handler: > MsgBox "Error: [" & Err.Number & "] " & IIf(Len(strerrormsg) > 0, strerrormsg, Err.Description), vbCritical, "Error Message" > hCursor = CursorID > RetVal = SetCursor(hCursor) > Resume Normal_exit > > End Function > Kath > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From bchacc at san.rr.com Fri Jun 2 00:43:26 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Thu, 01 Jun 2006 22:43:26 -0700 Subject: [AccessD] Outlook Automation In-Reply-To: <000c01c68605$16f3e940$6601a8c0@office> References: <447FB4CF.4040205@san.rr.com> <002401c685f7$f1358270$6601a8c0@office> <447FBB0E.5020907@san.rr.com> <002f01c685fd$1a91ca20$6601a8c0@office> <447FC1EE.8030905@san.rr.com> <000c01c68605$16f3e940$6601a8c0@office> Message-ID: <447FCFFE.4050108@san.rr.com> Got it. Thanks again. Rocky Kath Pelletti wrote: > Rocky - what I did to get around that in my app was add an Outlook mail rule to put messages with a specific 'To' address into the correct subfolder of Inbox. That way you *know" you've got the right ones. > Otherwise, from the vba side of things, the item has a '.To' property just as it has a '.CC', '.Body' property etc. > HTH > Kath > > ----- Original Message ----- > From: Rocky Smolin - Beach Access Software > To: Access Developers discussion and problem solving > Sent: Friday, June 02, 2006 2:43 PM > Subject: Re: [AccessD] Outlook Automation > > > Kath: > > Thank you. Thank you. Thank you. That's what I need. I have to check > the "To" to make sure it's coming in to a specific mail address. Do you > know offhand what the syntax is for that? > > Thanks again and regards, > > Rocky > > > Kath Pelletti wrote: > > Rocky - here it is again. > > > > This works to retrieve mail messages if you put them in a subfolder of Inbox (in my case 'Customer Inquiries'.) > > > > -------------------------------------------------------------------------------- > > > > Public Function ProcessMailMessagesInFolder() > > 'Adapted by K Pelletti from code from Helen Feddema 3-28-2002 > > Dim strerrormsg As String > > On Error GoTo Err_Handler > > > > Dim appOutlook As New Outlook.Application > > > > Dim nms As Outlook.NameSpace > > Dim fld As Outlook.MAPIFolder > > Dim myfld As Outlook.MAPIFolder > > > > Dim itm As Object > > Dim msg As Outlook.MailItem > > Dim strMessage As String > > Dim dbs As DAO.Database > > Dim rst As DAO.Recordset > > Dim strsql As String > > Dim prj As Object > > Dim lngItemCount As Long > > Dim IntFolderNo As Integer > > Dim IntTotalNoFoldersInInbox As Integer > > Dim IntNoMailItems As Integer > > Dim BoolFolderFound As Boolean > > BoolFolderFound = False > > > > Set nms = appOutlook.GetNamespace("MAPI") > > Set fld = nms.GetDefaultFolder(olFolderInbox) > > IntFolderNo = 0 > > IntTotalNoFoldersInInbox = 0 > > IntNoMailItems = 0 > > IntTotalNoFoldersInInbox = fld.Folders.Count > > > > Do Until IntFolderNo = IntTotalNoFoldersInInbox > > IntFolderNo = IntFolderNo + 1 > > Set myfld = fld.Folders(IntFolderNo) > > If myfld.Name = "Customer Inquiries" Then 'Rocky - put your subfolder Outlook name here > > BoolFolderFound = True > > IntNoMailItems = myfld.Items.Count > > ' MsgBox ("No messages is: " & IntNoMailItems) > > Exit Do > > End If > > Loop > > > > If BoolFolderFound = False Then > > MsgBox ("Unable to find the Customer Inquiries Folder in Outlook." & vbCrLf & vbCrLf & "(The folder should be a subfolder of inbox.)"), , "Hudsons Database" > > GoTo Normal_exit > > End If > > > > If myfld Is Nothing Then > > GoTo Err_Handler > > End If > > > > If myfld.DefaultItemType <> olMailItem Then > > MsgBox "Folder does not contain mail messages; Exiting", , "Importing Mail" > > GoTo Normal_exit > > End If > > > > lngItemCount = myfld.Items.Count > > > > If lngItemCount = 0 Then > > MsgBox ("There are no mail messages in the Customer Inquiries folder."), , "Hudsons Database" > > GoTo Normal_exit > > End If > > > > 'Process items in selected folder > > strsql = "DELETE * FROM tblOutlookMail" > > DoCmd.SetWarnings False > > DoCmd.RunSQL strsql > > Set dbs = CurrentDb > > Set rst = dbs.OpenRecordset("tblOutlookMail") > > > > For Each itm In myfld.Items > > If itm.Class = olMail Then > > Set msg = itm > > With rst > > .AddNew > > !Subject = msg.Subject > > !Body = msg.Body > > !CC = msg.CC > > !BCC = msg.BCC > > !Sent = msg.SentOn > > !FromName = msg.SenderName > > .Update > > End With > > End If > > Next itm > > rst.Close > > > > Set prj = Application.CurrentProject > > > > If prj.AllForms("frmOutlookMail").IsLoaded = True Then > > Forms("frmOutlookMail").Requery > > Else > > DoCmd.OpenForm "frmOutlookMail", , , , , acDialog > > End If > > > > > > Normal_exit: > > ' MsgBox ("No of new mail messages: " & IntNoMailItems), , "Mail Import" > > Exit Function > > Err_Handler: > > MsgBox "Error: [" & Err.Number & "] " & IIf(Len(strerrormsg) > 0, strerrormsg, Err.Description), vbCritical, "Error Message" > > hCursor = CursorID > > RetVal = SetCursor(hCursor) > > Resume Normal_exit > > > > End Function > > Kath > > > > -- > Rocky Smolin > Beach Access Software > 858-259-4334 > www.e-z-mrp.com > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From dwaters at usinternet.com Fri Jun 2 07:15:04 2006 From: dwaters at usinternet.com (Dan Waters) Date: Fri, 2 Jun 2006 07:15:04 -0500 Subject: [AccessD] Outlook Automation In-Reply-To: <23112236.1149220248068.JavaMail.root@sniper20> Message-ID: <000001c6863e$2e963c90$0200a8c0@danwaters> Hi Rocky, Heenan Lambert gave me some code once which I was able to use to great effect. Below are three procedures which I now use to select any Outlook folder, and then select an email within that folder. This is code behind a form The primary procedure that will help is called SelectOutlookMAPIFolder. It's the second one shown here. Also - look at the error messages - they do help a user to understand Microsoft's 'An application is trying to send messages on your behalf . . .' warning. ---------------------------------------------------------------------------- Private Sub butAttachEmail_Click() If ErrorTrapping = True Then On Error GoTo EH Dim stgDestination As String '-- Can't Attach over an existing file If Not IsNull(txtPartFileTitle) Then FormattedMsgbox GstgNotReady, "The file " _ & vbCrLf & vbCrLf _ & txtPartFileTitle _ & vbCrLf & vbCrLf _ & " is already attached here, and you cannot attach another file over it.@ @", vbExclamation + vbOKOnly, "Cannot Attach Over an Existing File" Exit Sub End If Set modMAPIFolder = SelectOutlookMAPIFolder If modMAPIFolder Is Nothing Then Exit Sub End If Call CreateMessgeList DoCmd.OpenForm "frmAttachEmail", , , , , acDialog Set modMAPIFolder = Nothing Exit Sub EH: Application.Echo True DoCmd.SetWarnings True GlngErrNumber = Err.Number GstgErrDescription = Err.Description Select Case GlngErrNumber Case 287 FormattedMsgbox GstgReminder, "To directly store an email as a file, you must allow Access to your email." _ & vbCrLf & vbCrLf _ & "First, check the Allow Access checkbox to allow 1 minute of access to your email list." _ & vbCrLf & vbCrLf _ & "Then push the Yes button.@ @", vbExclamation + vbOKOnly, "You must grant allow Access to your email!" Case Else Call GlobalErrors("", GlngErrNumber, GstgErrDescription, Me.Name, "butAttachEmail") End Select End Sub ---------------------------------------------------------------------------- Private Function SelectOutlookMAPIFolder() As Outlook.MAPIFolder If ErrorTrapping = True Then On Error GoTo EH Dim oParentMailItem As Outlook.MailItem Dim oParentFolder As Outlook.MAPIFolder Dim olApp As Outlook.Application Set olApp = CreateObject("Outlook.Application") Continue: Set oParentFolder = olApp.GetNamespace("MAPI").PickFolder If oParentFolder Is Nothing Then Exit Function End If If oParentFolder.DefaultItemType <> olMailItem Or oParentFolder.Name = "Deleted Items" Then FormattedMsgbox GstgNotReady, "You must select a Mail Folder!@ @", vbExclamation + vbOKOnly, "Mail Folder Only" Set oParentFolder = Nothing GoTo Continue End If If oParentFolder.Items.Count = 0 Then FormattedMsgbox GstgNotReady, "There are no Items in the folder " _ & vbCrLf & vbCrLf _ & oParentFolder.Name & ".@ @", vbExclamation + vbOKOnly, "No Email Items" Set oParentFolder = Nothing GoTo Continue End If Set SelectOutlookMAPIFolder = oParentFolder Set oParentFolder = Nothing Exit Function EH: Application.Echo True Call GlobalErrors("", Err.Number, Err.Description, Me.Name, "SelectOutlookMAPIFolder") End Function ---------------------------------------------------------------------------- Private Sub CreateMessgeList() If ErrorTrapping = True Then On Error GoTo EH Dim objMailItem As Outlook.MailItem Dim stgFileName As String Dim lngItemNumber As Long Dim stgSubject As String Dim stgSetOrder As String DoCmd.SetWarnings False DoCmd.RunSQL "DELETE * FROM tblFEAttachEmails" DoCmd.SetWarnings True With modMAPIFolder If .Items.Count > 0 Then SysCmd acSysCmdInitMeter, "Creating Email List", .Items.Count For lngItemNumber = 1 To .Items.Count On Error Resume Next Set objMailItem = .Items(lngItemNumber) On Error GoTo 0 With objMailItem stgSubject = Replace(CleanFileName(.Subject), "'", "''") DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO tblFEAttachEmails (Subject, FromName, DateReceived, MessageNumber)" _ & " VALUES ('" & stgSubject & "', '" & Replace(.SenderName, "'", "''") & "', #" & .ReceivedTime & "#, " & lngItemNumber & ");" DoCmd.SetWarnings True End With SysCmd acSysCmdUpdateMeter, lngItemNumber Next lngItemNumber SysCmd acSysCmdClearStatus End If End With Set objMailItem = Nothing Exit Sub EH: Application.Echo True DoCmd.SetWarnings True GlngErrNumber = Err.Number GstgErrDescription = Err.Description Select Case GlngErrNumber Case 287 FormattedMsgbox GstgReminder, "To directly store an email as a file, you must allow Access to your email." _ & vbCrLf & vbCrLf _ & "First, check the Allow Access checkbox to allow 1 minute of access to your email list." _ & vbCrLf & vbCrLf _ & "Then push the Yes button.@ @", vbExclamation + vbOKOnly, "You must allow Access to your email!" Case Else Call GlobalErrors("", GlngErrNumber, GstgErrDescription, Me.Name, "Create Message List") End Select End Sub ---------------------------------------------------------------------------- Best of Luck! Dan -----Original Message----- Subject: [AccessD] Outlook Automation Dear List: I need to look in a specific outlook folder for mail. I can't find the syntax for this. Can anyone point me in the right direction? MTIA Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From mwp.reid at qub.ac.uk Fri Jun 2 07:25:38 2006 From: mwp.reid at qub.ac.uk (Martin Reid) Date: Fri, 2 Jun 2006 13:25:38 +0100 Subject: [AccessD] Indexes References: <000001c6863e$2e963c90$0200a8c0@danwaters> Message-ID: I want to loop over all tables in a database and get the Index name and length. I can get the tables ok but cant seem to get the index length. Martin Martin WP Reid Training and Assessment Unit Riddle Hall Belfast tel: 02890 974477 From Gustav at cactus.dk Fri Jun 2 08:45:48 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Fri, 02 Jun 2006 15:45:48 +0200 Subject: [AccessD] Indexes Message-ID: Hi Martin What is index length? You can loop the field(s) - and its/their data type - of the index to obtain the size ... /gustav >>> mwp.reid at qub.ac.uk 02-06-2006 14:25:38 >>> I want to loop over all tables in a database and get the Index name and length. I can get the tables ok but cant seem to get the index length. Martin Martin WP Reid Training and Assessment Unit Riddle Hall Belfast tel: 02890 974477 From stuart at lexacorp.com.pg Fri Jun 2 09:19:30 2006 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Sat, 03 Jun 2006 00:19:30 +1000 Subject: [AccessD] Indexes In-Reply-To: Message-ID: <4480D592.335.5AC2014@stuart.lexacorp.com.pg> On 2 Jun 2006 at 13:25, Martin Reid wrote: > I want to loop over all tables in a database and get the Index name and > length. I can get the tables ok but cant seem to get the index length. > AFAIK, there is no way to get the "length" of an index. There is certainly no property in DAO or ADO to return it. Neither the Field.FieldSize nor the Field.Size properties are valid with an Index field. A lot would depend on exactly how Access stores indexes and I suspect that information is proprietary. In particular, I doubt that the indexing scheme for text fields uses a fixed length based on the maximum length of a text field, it's more likely to be storing some hash of the the text, so even tracking back to the TableDef.Fields collection and the lengths of the individual fields in the index is unlikely to return the correct answer. -- Stuart From stuart at lexacorp.com.pg Fri Jun 2 09:24:42 2006 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Sat, 03 Jun 2006 00:24:42 +1000 Subject: [AccessD] Indexes In-Reply-To: Message-ID: <4480D6CA.21250.5B0E228@stuart.lexacorp.com.pg> On 2 Jun 2006 at 15:45, Gustav Brock wrote: > Hi Martin > > What is index length? > You can loop the field(s) - and its/their data type - of the index to obtain > the size ... > That doesn't give you the size of a text field, if there is such a thing - given that the actual content of a text field is stored as a variable length string and varies from row to row. -- Stuart From andy at minstersystems.co.uk Fri Jun 2 10:31:54 2006 From: andy at minstersystems.co.uk (Andy Lacey) Date: Fri, 2 Jun 2006 15:31:54 +0000 Subject: [AccessD] Indexes Message-ID: <20060602143159.1237D33C1DE@smtp.nildram.co.uk> Hi Martin Here's code to get the indexes of a table Dim idx As Index 'Then, assuming you have your TableDef in tbl For Each idx In tbl.Indexes 'You can get at such things as idx.Foreign idx.Name idx.Unique idx.Primary Then you can get at the idx.Fields collection and enumerate the fields of the index. I guess you could then enumerate the Properties collection of each Field and find out each field's data type and, probably, length Next -- Andy Lacey http://www.minstersystems.co.uk --------- Original Message -------- From: "Access Developers discussion and problem solving" To: "Access Developers discussion and problem solving" Subject: [AccessD] Indexes Date: 02/06/06 12:31 I want to loop over all tables in a database and get the Index name and length. I can get the tables ok but cant seem to get the index length. Martin Martin WP Reid Training and Assessment Unit Riddle Hall Belfast tel: 02890 974477 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com ________________________________________________ Message sent using UebiMiau 2.7.2 From harkinsss at bellsouth.net Fri Jun 2 09:35:41 2006 From: harkinsss at bellsouth.net (Susan Harkins) Date: Fri, 2 Jun 2006 10:35:41 -0400 Subject: [AccessD] Indexes In-Reply-To: <4480D592.335.5AC2014@stuart.lexacorp.com.pg> Message-ID: <000001c68651$d41819a0$d2b3d6d1@SUSANONE> Martin, are you after the length of the indexes name? Susan H. AFAIK, there is no way to get the "length" of an index. There is certainly no property in DAO or ADO to return it. Neither the Field.FieldSize nor the Field.Size properties are valid with an Index field. A lot would depend on exactly how Access stores indexes and I suspect that information is proprietary. In particular, I doubt that the indexing scheme for text fields uses a fixed length based on the maximum length of a text field, it's more likely to be storing some hash of the the text, so even tracking back to the TableDef.Fields collection and the lengths of the individual fields in the index is unlikely to return the correct answer. -- Stuart -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.1.394 / Virus Database: 268.7.2/349 - Release Date: 5/26/2006 From mwp.reid at qub.ac.uk Fri Jun 2 09:39:06 2006 From: mwp.reid at qub.ac.uk (Martin Reid) Date: Fri, 2 Jun 2006 15:39:06 +0100 Subject: [AccessD] Indexes References: <20060602143159.1237D33C1DE@smtp.nildram.co.uk> Message-ID: Thanks guys will play about with that,. Thank god tht was an easy one. Was feelign a little stupid when I could not get it. Martin Martin WP Reid Training and Assessment Unit Riddle Hall Belfast tel: 02890 974477 ________________________________ From: accessd-bounces at databaseadvisors.com on behalf of Andy Lacey Sent: Fri 02/06/2006 16:31 To: Access Developers discussion and problem solving Subject: Re: [AccessD] Indexes Hi Martin Here's code to get the indexes of a table Dim idx As Index 'Then, assuming you have your TableDef in tbl For Each idx In tbl.Indexes 'You can get at such things as idx.Foreign idx.Name idx.Unique idx.Primary Then you can get at the idx.Fields collection and enumerate the fields of the index. I guess you could then enumerate the Properties collection of each Field and find out each field's data type and, probably, length Next -- Andy Lacey http://www.minstersystems.co.uk --------- Original Message -------- From: "Access Developers discussion and problem solving" To: "Access Developers discussion and problem solving" Subject: [AccessD] Indexes Date: 02/06/06 12:31 I want to loop over all tables in a database and get the Index name and length. I can get the tables ok but cant seem to get the index length. Martin Martin WP Reid Training and Assessment Unit Riddle Hall Belfast tel: 02890 974477 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com ________________________________________________ Message sent using UebiMiau 2.7.2 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From mwp.reid at qub.ac.uk Fri Jun 2 09:43:45 2006 From: mwp.reid at qub.ac.uk (Martin Reid) Date: Fri, 2 Jun 2006 15:43:45 +0100 Subject: [AccessD] Indexes References: <000001c68651$d41819a0$d2b3d6d1@SUSANONE> Message-ID: Susan Was looking the length of Index. Was looking at a bit of code to check the Index lengths before moving to SQL Server 2005. Martin Martin WP Reid Training and Assessment Unit Riddle Hall Belfast tel: 02890 974477 ________________________________ From: accessd-bounces at databaseadvisors.com on behalf of Susan Harkins Sent: Fri 02/06/2006 15:35 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Indexes Martin, are you after the length of the indexes name? Susan H. AFAIK, there is no way to get the "length" of an index. There is certainly no property in DAO or ADO to return it. Neither the Field.FieldSize nor the Field.Size properties are valid with an Index field. A lot would depend on exactly how Access stores indexes and I suspect that information is proprietary. In particular, I doubt that the indexing scheme for text fields uses a fixed length based on the maximum length of a text field, it's more likely to be storing some hash of the the text, so even tracking back to the TableDef.Fields collection and the lengths of the individual fields in the index is unlikely to return the correct answer. -- Stuart -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.1.394 / Virus Database: 268.7.2/349 - Release Date: 5/26/2006 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From harkinsss at bellsouth.net Fri Jun 2 09:46:37 2006 From: harkinsss at bellsouth.net (Susan Harkins) Date: Fri, 2 Jun 2006 10:46:37 -0400 Subject: [AccessD] Indexes In-Reply-To: Message-ID: <000d01c68653$5acb2c70$d2b3d6d1@SUSANONE> I guess I just don't know what that means -- can you give me an example of an indexes "length"? Susan H. Was looking the length of Index. Was looking at a bit of code to check the Index lengths before moving to SQL Server 2005. From lmrazek at lcm-res.com Fri Jun 2 09:48:24 2006 From: lmrazek at lcm-res.com (Lawrence Mrazek) Date: Fri, 2 Jun 2006 09:48:24 -0500 Subject: [AccessD] Recording Time In-Reply-To: Message-ID: <027d01c68653$9a058b60$026fa8c0@stormy> Hi Folks: I have an app that tracks time spent on various activities (production, cleaning, etc.). I'd appreciate some opinions on the best ways to record the time spent. Basically, we're looking at hours and minutes spent, usually something like four hours, 15 minutes. I considered having the app record the time as: 4.25 (4 hrs 15 minutes), but this approach seems to confuse some of the users. Another approach would be to use two text boxes to collect hours and minutes, then convert and store the data as minutes. (I could use a display format to convert the minutes into something like: 4:15). Any ideas on best practices for storing this type of data? Thanks in advance! Larry Mrazek LCM Research, Inc. www.lcm-res.com lmrazek at lcm-res.com ph. 314.432.5886 fx. 314.432.3304 From john at winhaven.net Fri Jun 2 09:51:31 2006 From: john at winhaven.net (John Bartow) Date: Fri, 2 Jun 2006 09:51:31 -0500 Subject: [AccessD] Toolbar staying put on one line In-Reply-To: Message-ID: <01aa01c68654$09f9ab90$6502a8c0@ScuzzPaq> Thanks Charlotte, its a good starting point to resolving an irritation :o) -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Sent: Tuesday, May 30, 2006 10:33 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Toolbar staying put on one line Not much to post since I could never convince the powers that be to let me use a class. We typically create a series of menu bars for things like the main screen and of course for reports. We distribute runtimes and can't use the built in form property to show a toolbar, so it has to be done in code. We use these as required from a standard module: Function ToolBarsOff() As Boolean ' Turns Built In Tool Bars Off On Error Resume Next Application.SetOption "Built-In ToolBars Available", False ToolBarsOff = True End Function Sub ToolBarsOn() ' Turns the Built In Tool Bars On On Error Resume Next Application.SetOption "Built-In ToolBars Available", True End Sub Each object that requires a menu/toolbar has code in its Open or Activate event: DoCmd.ShowToolbar "RIMBaseMain", acToolbarYes DoCmd.ShowToolbar "RIMBaseMenu", acToolbarNo And we reverse that in the close event: DoCmd.ShowToolbar "RIMBaseMain", acToolbarNo DoCmd.ShowToolbar "RIMBaseMenu", acToolbarNo If it happens to be the main menu form that is being closed (which also closed the application), we call ToolBarsOn to make sure we leave a full version of Access in the condition we found it. Charlotte -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Bartow Sent: Saturday, May 27, 2006 8:41 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Toolbar staying put on one line I'd appreciate anything you can post. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust Actually, that's our main solution. We have a default menubar with limited choices and we show and hide custom menubars/toolbars depending on the form or report being displayed. It isn't foolproof, but it's the closest we could come. -- 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 mwp.reid at qub.ac.uk Fri Jun 2 09:59:02 2006 From: mwp.reid at qub.ac.uk (Martin Reid) Date: Fri, 2 Jun 2006 15:59:02 +0100 Subject: [AccessD] Indexes References: <000d01c68653$5acb2c70$d2b3d6d1@SUSANONE> Message-ID: actually now that we are talking about it all might need is the length of the index name. Which I can get. Maybe I misunderstood the issue! Not the first time! Martin Martin WP Reid Training and Assessment Unit Riddle Hall Belfast tel: 02890 974477 ________________________________ From: accessd-bounces at databaseadvisors.com on behalf of Susan Harkins Sent: Fri 02/06/2006 15:46 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Indexes I guess I just don't know what that means -- can you give me an example of an indexes "length"? Susan H. Was looking the length of Index. Was looking at a bit of code to check the Index lengths before moving to SQL Server 2005. -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From markamatte at hotmail.com Fri Jun 2 10:06:00 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Fri, 02 Jun 2006 15:06:00 +0000 Subject: [AccessD] This file is located outside your intranet or on anuntrusted site In-Reply-To: <000401c685ef$7638cdf0$0200a8c0@murphy3234aaf1> Message-ID: Doug, I had a similar issue a few years ago with A2k...I remember the error message...but I don't remember the specifics...but I do remember the final resting place for the problem was in users network permissions...not the mdb. There was either a remote desktop...or VPN type connection that my user never mentioned...and the network permissions wouldn't allow any database. Hope this helps...some. Mark A. Matte P.S...If I had a problem with a db I KNOW I would have asked the list...As far as Archives, I don't remember the thread...but I started it and it was about 2 years ago. >From: "Doug Murphy" >Reply-To: Access Developers discussion and problem >solving >To: "'Access Developers discussion and problem >solving'" >Subject: [AccessD] This file is located outside your intranet or on >anuntrusted site >Date: Thu, 1 Jun 2006 19:51:35 -0700 > >Folks, > >I sent a client an access 2003 database in 2000 format. The file was >zipped >when sent. She extracted it and tried to open and gets the message: > >Microsoft Access cannot open this file. >This file is located outside your intranet or on an untrusted site. >Microsoft Access will not open the file due to potential security problems. >To open the file, copy it to your computer or an accessible network >location. > >I looked this up and the knowledge base article talks about in internet >explorer security setting. This seems a little bazar so I thought I'd >query >this group on possible causes and solutions. The client is running Access >XP. She has Jet 4 and we tried setting the sandbox setting to 0. No help. >The interesting thing is that I took a preliminary set of files to her >office on a CD and they ran fine on her machine. > >I seem to recollect some discussion about this on the list but haven't >found >anything. Any thoughs, or suggestions. > >Thanks in advance. > >Doug > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com From markamatte at hotmail.com Fri Jun 2 10:24:24 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Fri, 02 Jun 2006 15:24:24 +0000 Subject: [AccessD] Recording Time In-Reply-To: <027d01c68653$9a058b60$026fa8c0@stormy> Message-ID: Larry, I've done a few apps with times. I have always stored either the total minutes(or seconds) or the actual start and end times...then just manipulated these to display whatever format you want. Below is something I used a few years ago...with the help of this group. It was a stopwatch type function for measuring the length of calls and displaying in minutes and seconds. Hope it helps. Let me know if you have any questions. Thanks, Mark A. Matte ****************************************** Me!EndDTTM = Now() Dim Seconds Dim RMmin Dim RMsec Seconds = DateDiff("s", Me!StartDTTM, Me!EndDTTM) Dim Check, Counter Check = True: Counter = 0 Do Counter = Counter + 1 If Counter * 60 > Seconds Then RMmin = Counter - 1 RMsec = Seconds - ((Counter - 1) * 60) Check = False Exit Do End If Loop Until Check = False Forms!frmRecords!RMCallLengthM.Value = RMmin Forms!frmRecords!RMCallLengthS.Value = RMsec ****************************************** >From: "Lawrence Mrazek" >Reply-To: Access Developers discussion and problem >solving >To: "'Access Developers discussion and problem >solving'" >Subject: [AccessD] Recording Time >Date: Fri, 2 Jun 2006 09:48:24 -0500 > > >Hi Folks: > >I have an app that tracks time spent on various activities (production, >cleaning, etc.). > >I'd appreciate some opinions on the best ways to record the time spent. >Basically, we're looking at hours and minutes spent, usually something like >four hours, 15 minutes. I considered having the app record the time as: >4.25 >(4 hrs 15 minutes), but this approach seems to confuse some of the users. > >Another approach would be to use two text boxes to collect hours and >minutes, then convert and store the data as minutes. (I could use a display >format to convert the minutes into something like: 4:15). > >Any ideas on best practices for storing this type of data? > >Thanks in advance! > >Larry Mrazek >LCM Research, Inc. >www.lcm-res.com >lmrazek at lcm-res.com >ph. 314.432.5886 >fx. 314.432.3304 > > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com From Gustav at cactus.dk Fri Jun 2 10:25:28 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Fri, 02 Jun 2006 17:25:28 +0200 Subject: [AccessD] Recording Time Message-ID: Hi Larry We use both, or rather: a decimal duration, a start time, and a stop time - which match and update each other, quite fancy. Format of time fields is hh:nn, and InputMask is 90:00,1,0 - and a lot of code to allow for navigation and clicking inside the time fields and filtering for invalid keytypings. It takes a lot of testing but users like it. /gustav >>> lmrazek at lcm-res.com 02-06-2006 16:48:24 >>> Hi Folks: I have an app that tracks time spent on various activities (production, cleaning, etc.). I'd appreciate some opinions on the best ways to record the time spent. Basically, we're looking at hours and minutes spent, usually something like four hours, 15 minutes. I considered having the app record the time as: 4.25 (4 hrs 15 minutes), but this approach seems to confuse some of the users. Another approach would be to use two text boxes to collect hours and minutes, then convert and store the data as minutes. (I could use a display format to convert the minutes into something like: 4:15). Any ideas on best practices for storing this type of data? Thanks in advance! Larry Mrazek LCM Research, Inc. www.lcm-res.com lmrazek at lcm-res.com ph. 314.432.5886 fx. 314.432.3304 From jimdettman at earthlink.net Fri Jun 2 10:46:39 2006 From: jimdettman at earthlink.net (Jim Dettman) Date: Fri, 2 Jun 2006 11:46:39 -0400 Subject: [AccessD] Recording Time In-Reply-To: <027d01c68653$9a058b60$026fa8c0@stormy> Message-ID: Larry, <> You want to stay flexible. The way I approached this was to make sure that the presentation of the data was entirely separate from the storage part. No matter what format the client wants, I always store it the same way. As you already pointed out, something like 4.50; is that 4 hours 30 minutes or 4 hours and 50 minutes? I've had clients ask for it both ways. Then there are the ones that want 12 hour (am/pm) vs 24 hour format (military). So there are a few variations. Given all that, what I've done in the past is that I store: WorkDate - Date/Time - Stores a date only StartTime - Currency - HHMM StopTime - Currency - HHMM The HHMM is hours and actual minutes. In a form, I use four text boxes: Date Start time Stop time ET I always have them enter the time in a single control. Generally as a three or four digit number and omit the decimal point. Then I use the function below to calculate ET based on the format. I used this setup for quite of few time clock/incentive systems over the past 15 years or so and its held up pretty well. HTH, Jim. Private Sub CalculateET() Dim dblStartTime As Double Dim dblStopTime As Double ' Use for minutes expressed as part of an hour ' i.e. start/stop time of 6.33 is 6 hours, 20 minutes 'dblStartTime = TimeSerial(Fix(Me![txtStart]), Round((Me![txtStart] - Fix(Me![txtStart])) * 60, 0), 0) 'If IsNull(Me![txtStop]) Then ' dblStopTime = 0 'Else ' dblStopTime = TimeSerial(Fix(Me![txtStop]), Round((Me![txtStop] - Fix(Me![txtStop])) * 60, 0), 0) 'End If ' Use for minutes expressed as minutes ' i.e. start/stop time of 6.33 is 6 hours, 33 minutes If IsNull(Me![txtStart]) Then dblStartTime = 0 Else dblStartTime = TimeSerial(Fix(Me![txtStart] / 100), Me![txtStart] - (Fix(Me![txtStart] / 100) * 100), 0) End If If IsNull(Me![txtStop]) Then dblStopTime = 0 Else dblStopTime = TimeSerial(Fix(Me![txtStop] / 100), Me![txtStop] - (Fix(Me![txtStop] / 100) * 100), 0) End If ' Since we only track the "start date", we need to add ' 24 hours to the stop time to indicate that the end ' time fell into another day. If dblStopTime <= dblStartTime Then dblStopTime = dblStopTime + 1 ' Calculate ET. Me![txtET] = Round(DateDiff("n", dblStartTime, dblStopTime) / 60, 2) End sub -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Lawrence Mrazek Sent: Friday, June 02, 2006 10:48 AM To: 'Access Developers discussion and problem solving' Subject: [AccessD] Recording Time Hi Folks: I have an app that tracks time spent on various activities (production, cleaning, etc.). I'd appreciate some opinions on the best ways to record the time spent. Basically, we're looking at hours and minutes spent, usually something like four hours, 15 minutes. I considered having the app record the time as: 4.25 (4 hrs 15 minutes), but this approach seems to confuse some of the users. Another approach would be to use two text boxes to collect hours and minutes, then convert and store the data as minutes. (I could use a display format to convert the minutes into something like: 4:15). Any ideas on best practices for storing this type of data? Thanks in advance! Larry Mrazek LCM Research, Inc. www.lcm-res.com lmrazek at lcm-res.com ph. 314.432.5886 fx. 314.432.3304 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From lmrazek at lcm-res.com Fri Jun 2 10:51:26 2006 From: lmrazek at lcm-res.com (Lawrence Mrazek) Date: Fri, 2 Jun 2006 10:51:26 -0500 Subject: [AccessD] Recording Time In-Reply-To: Message-ID: <02ac01c6865c$682cfd90$026fa8c0@stormy> Thanks Gustav & Mark for your replies: Gustav, what field data type are you using to store the time data? Thanks! -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock Sent: Friday, June 02, 2006 10:25 AM To: accessd at databaseadvisors.com Subject: Re: [AccessD] Recording Time Hi Larry We use both, or rather: a decimal duration, a start time, and a stop time - which match and update each other, quite fancy. Format of time fields is hh:nn, and InputMask is 90:00,1,0 - and a lot of code to allow for navigation and clicking inside the time fields and filtering for invalid keytypings. It takes a lot of testing but users like it. /gustav >>> lmrazek at lcm-res.com 02-06-2006 16:48:24 >>> Hi Folks: I have an app that tracks time spent on various activities (production, cleaning, etc.). I'd appreciate some opinions on the best ways to record the time spent. Basically, we're looking at hours and minutes spent, usually something like four hours, 15 minutes. I considered having the app record the time as: 4.25 (4 hrs 15 minutes), but this approach seems to confuse some of the users. Another approach would be to use two text boxes to collect hours and minutes, then convert and store the data as minutes. (I could use a display format to convert the minutes into something like: 4:15). Any ideas on best practices for storing this type of data? Thanks in advance! Larry Mrazek LCM Research, Inc. www.lcm-res.com lmrazek at lcm-res.com ph. 314.432.5886 fx. 314.432.3304 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From Gustav at cactus.dk Fri Jun 2 11:20:27 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Fri, 02 Jun 2006 18:20:27 +0200 Subject: [AccessD] Recording Time Message-ID: Hi Larry They are of type Double or Currency for the decimal hours and Date for the start and stop times. /gustav >>> lmrazek at lcm-res.com 02-06-2006 17:51:26 >>> Thanks Gustav & Mark for your replies: Gustav, what field data type are you using to store the time data? Thanks! From dw-murphy at cox.net Fri Jun 2 13:01:32 2006 From: dw-murphy at cox.net (Doug Murphy) Date: Fri, 2 Jun 2006 11:01:32 -0700 Subject: [AccessD] This file is located outside your intranet or onanuntrusted site In-Reply-To: <008f01c685f5$2d61be60$6401a8c0@BPCS> Message-ID: <004f01c6866e$94ae6720$0200a8c0@murphy3234aaf1> Thank you Bill. I think that is it. I knew I had seen this before but kept coming back to the sandbox thing. I'll put it in my note book this time. Doug -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Patten Sent: Thursday, June 01, 2006 8:32 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] This file is located outside your intranet or onanuntrusted site Doug, I think this will fix it. 9/17/2005 From PC Mag Sept 2005 "Can't open file because file is located outside of your intranet ....." XP SP2 marks files as having come from a non secure site, in most cases right clicking on the file and selecting properties, if the secure flag is set, you will see a button labeled unblock at the bottom of the page, click this and you should be home. Sometimes this option may not work, saving the file to a non ntfs format and then copying it back may also fix the problem. Note: the Unblock button does not appear on a file that is not marked. ----- Original Message ----- From: "Doug Murphy" To: "'Access Developers discussion and problem solving'" Sent: Thursday, June 01, 2006 7:51 PM Subject: [AccessD] This file is located outside your intranet or on anuntrusted site Folks, I sent a client an access 2003 database in 2000 format. The file was zipped when sent. She extracted it and tried to open and gets the message: Microsoft Access cannot open this file. This file is located outside your intranet or on an untrusted site. Microsoft Access will not open the file due to potential security problems. To open the file, copy it to your computer or an accessible network location. I looked this up and the knowledge base article talks about in internet explorer security setting. This seems a little bazar so I thought I'd query this group on possible causes and solutions. The client is running Access XP. She has Jet 4 and we tried setting the sandbox setting to 0. No help. The interesting thing is that I took a preliminary set of files to her office on a CD and they ran fine on her machine. I seem to recollect some discussion about this on the list but haven't found anything. Any thoughs, or suggestions. Thanks in advance. Doug -- 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 reuben at gfconsultants.com Fri Jun 2 15:25:43 2006 From: reuben at gfconsultants.com (Reuben Cummings) Date: Fri, 2 Jun 2006 16:25:43 -0400 Subject: [AccessD] Find and Remove Carriage Return Message-ID: How can I look into a field and find and remove any returns? Thanks. Reuben Cummings GFC, LLC 812.523.1017 From bchacc at san.rr.com Fri Jun 2 15:37:18 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Fri, 02 Jun 2006 13:37:18 -0700 Subject: [AccessD] Find and Remove Carriage Return In-Reply-To: References: Message-ID: <4480A17E.9080105@san.rr.com> Instr and look for chr(13)? Rocky Reuben Cummings wrote: > How can I look into a field and find and remove any returns? > > Thanks. > > Reuben Cummings > GFC, LLC > 812.523.1017 > > > > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Fri Jun 2 15:40:42 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Fri, 02 Jun 2006 13:40:42 -0700 Subject: [AccessD] Outlook Automation In-Reply-To: <000001c6863e$2e963c90$0200a8c0@danwaters> References: <000001c6863e$2e963c90$0200a8c0@danwaters> Message-ID: <4480A24A.3070400@san.rr.com> Dan: Thanks. I'm going to start with Kath's and fill in the blanks with this one. Regards, Rocky Dan Waters wrote: > Hi Rocky, > > Heenan Lambert gave me some code once which I was able to use to great > effect. Below are three procedures which I now use to select any Outlook > folder, and then select an email within that folder. This is code behind a > form > > The primary procedure that will help is called SelectOutlookMAPIFolder. > It's the second one shown here. > > Also - look at the error messages - they do help a user to understand > Microsoft's 'An application is trying to send messages on your behalf . . .' > warning. > > ---------------------------------------------------------------------------- > > Private Sub butAttachEmail_Click() > If ErrorTrapping = True Then On Error GoTo EH > > Dim stgDestination As String > > '-- Can't Attach over an existing file > If Not IsNull(txtPartFileTitle) Then > FormattedMsgbox GstgNotReady, "The file " _ > & vbCrLf & vbCrLf _ > & txtPartFileTitle _ > & vbCrLf & vbCrLf _ > & " is already attached here, and you cannot attach another file > over it.@ @", vbExclamation + vbOKOnly, "Cannot Attach Over an Existing > File" > Exit Sub > End If > > Set modMAPIFolder = SelectOutlookMAPIFolder > If modMAPIFolder Is Nothing Then > Exit Sub > End If > > Call CreateMessgeList > > DoCmd.OpenForm "frmAttachEmail", , , , , acDialog > > Set modMAPIFolder = Nothing > > Exit Sub > > EH: > Application.Echo True > DoCmd.SetWarnings True > GlngErrNumber = Err.Number > GstgErrDescription = Err.Description > Select Case GlngErrNumber > Case 287 > FormattedMsgbox GstgReminder, "To directly store an email as a > file, you must allow Access to your email." _ > & vbCrLf & vbCrLf _ > & "First, check the Allow Access checkbox to allow 1 minute > of access to your email list." _ > & vbCrLf & vbCrLf _ > & "Then push the Yes button.@ @", vbExclamation + vbOKOnly, > "You must grant allow Access to your email!" > Case Else > Call GlobalErrors("", GlngErrNumber, GstgErrDescription, > Me.Name, "butAttachEmail") > End Select > > End Sub > > ---------------------------------------------------------------------------- > > Private Function SelectOutlookMAPIFolder() As Outlook.MAPIFolder > If ErrorTrapping = True Then On Error GoTo EH > > Dim oParentMailItem As Outlook.MailItem > Dim oParentFolder As Outlook.MAPIFolder > Dim olApp As Outlook.Application > > Set olApp = CreateObject("Outlook.Application") > > Continue: > Set oParentFolder = olApp.GetNamespace("MAPI").PickFolder > > If oParentFolder Is Nothing Then > Exit Function > End If > > If oParentFolder.DefaultItemType <> olMailItem Or oParentFolder.Name = > "Deleted Items" Then > FormattedMsgbox GstgNotReady, "You must select a Mail Folder!@ @", > vbExclamation + vbOKOnly, "Mail Folder Only" > Set oParentFolder = Nothing > GoTo Continue > End If > > If oParentFolder.Items.Count = 0 Then > FormattedMsgbox GstgNotReady, "There are no Items in the folder " _ > & vbCrLf & vbCrLf _ > & oParentFolder.Name & ".@ @", vbExclamation + vbOKOnly, "No > Email Items" > Set oParentFolder = Nothing > GoTo Continue > End If > > Set SelectOutlookMAPIFolder = oParentFolder > > Set oParentFolder = Nothing > > Exit Function > > EH: > Application.Echo True > Call GlobalErrors("", Err.Number, Err.Description, Me.Name, > "SelectOutlookMAPIFolder") > > End Function > > ---------------------------------------------------------------------------- > > Private Sub CreateMessgeList() > If ErrorTrapping = True Then On Error GoTo EH > > Dim objMailItem As Outlook.MailItem > Dim stgFileName As String > Dim lngItemNumber As Long > Dim stgSubject As String > Dim stgSetOrder As String > > DoCmd.SetWarnings False > DoCmd.RunSQL "DELETE * FROM tblFEAttachEmails" > DoCmd.SetWarnings True > > With modMAPIFolder > If .Items.Count > 0 Then > SysCmd acSysCmdInitMeter, "Creating Email List", .Items.Count > For lngItemNumber = 1 To .Items.Count > On Error Resume Next > Set objMailItem = .Items(lngItemNumber) > On Error GoTo 0 > With objMailItem > stgSubject = Replace(CleanFileName(.Subject), "'", "''") > DoCmd.SetWarnings False > DoCmd.RunSQL "INSERT INTO tblFEAttachEmails (Subject, > FromName, DateReceived, MessageNumber)" _ > & " VALUES ('" & stgSubject & "', '" & > Replace(.SenderName, "'", "''") & "', #" & .ReceivedTime & "#, " & > lngItemNumber & ");" > DoCmd.SetWarnings True > End With > SysCmd acSysCmdUpdateMeter, lngItemNumber > Next lngItemNumber > SysCmd acSysCmdClearStatus > End If > End With > > Set objMailItem = Nothing > > Exit Sub > > EH: > Application.Echo True > DoCmd.SetWarnings True > GlngErrNumber = Err.Number > GstgErrDescription = Err.Description > Select Case GlngErrNumber > Case 287 > FormattedMsgbox GstgReminder, "To directly store an email as a > file, you must allow Access to your email." _ > & vbCrLf & vbCrLf _ > & "First, check the Allow Access checkbox to allow 1 minute > of access to your email list." _ > & vbCrLf & vbCrLf _ > & "Then push the Yes button.@ @", vbExclamation + vbOKOnly, > "You must allow Access to your email!" > Case Else > Call GlobalErrors("", GlngErrNumber, GstgErrDescription, > Me.Name, "Create Message List") > End Select > > End Sub > > ---------------------------------------------------------------------------- > > Best of Luck! > Dan > > > -----Original Message----- > Subject: [AccessD] Outlook Automation > > Dear List: > > I need to look in a specific outlook folder for mail. I can't find the > syntax for this. Can anyone point me in the right direction? > > MTIA > > Rocky > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From Lambert.Heenan at AIG.com Fri Jun 2 15:51:05 2006 From: Lambert.Heenan at AIG.com (Heenan, Lambert) Date: Fri, 2 Jun 2006 16:51:05 -0400 Subject: [AccessD] Find and Remove Carriage Return Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F22A433D7@xlivmbx21.aig.com> Presumably you really mean Cr Lf combinations, i.e. what looks like a new line to us humans. In VB land this is the string vbCrlf. To do this in a query you need a simple one-line function, because JET does not see VB constants... Function CrLf() as String CrLf = vbCrLf End Function Armed with this you can update the text/memo field in a query with this sort of SQL... UPDATE Table1 SET Table1.[yet another memo] = Replace(Cstr(nz([yet another memo],"")),CrLf(),""); The part that does the work being Replace(Cstr(nz([yet another memo],"")),CrLf(),"") HTH Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben Cummings Sent: Friday, June 02, 2006 4:26 PM To: AccessD Subject: [AccessD] Find and Remove Carriage Return How can I look into a field and find and remove any returns? Thanks. Reuben Cummings GFC, LLC 812.523.1017 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From reuben at gfconsultants.com Fri Jun 2 21:49:12 2006 From: reuben at gfconsultants.com (Reuben Cummings) Date: Fri, 2 Jun 2006 22:49:12 -0400 Subject: [AccessD] Find and Remove Carriage Return In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F22A433D7@xlivmbx21.aig.com> Message-ID: I'm not really sure what I mean. I have some text fields and I am putting them together to make a fixed length text file. When I grab a field that has been "Entered/Returned" in the text field reads the Return and starts a new line. Which of course screws up the fixed length definition of the text file. Do all carriage returns show as vbcrlf within any stored string? -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Heenan, Lambert Sent: Friday, June 02, 2006 4:51 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Find and Remove Carriage Return Presumably you really mean Cr Lf combinations, i.e. what looks like a new line to us humans. In VB land this is the string vbCrlf. To do this in a query you need a simple one-line function, because JET does not see VB constants... Function CrLf() as String CrLf = vbCrLf End Function Armed with this you can update the text/memo field in a query with this sort of SQL... UPDATE Table1 SET Table1.[yet another memo] = Replace(Cstr(nz([yet another memo],"")),CrLf(),""); The part that does the work being Replace(Cstr(nz([yet another memo],"")),CrLf(),"") HTH Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben Cummings Sent: Friday, June 02, 2006 4:26 PM To: AccessD Subject: [AccessD] Find and Remove Carriage Return How can I look into a field and find and remove any returns? Thanks. Reuben Cummings GFC, LLC 812.523.1017 -- 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 Sat Jun 3 11:50:50 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Sat, 03 Jun 2006 09:50:50 -0700 Subject: [AccessD] OT: Outlook issues In-Reply-To: Message-ID: <0J0A001VEMOU3ZB1@l-daemon> Hi All: I am in the process of trying to remove an over-sized file from the Outlook OutBox. It will not delete, other than that it causes no problem but an error message pops up every 15 minutes... :-( Has anyone ever heard of this problem? TIA Jim From bchacc at san.rr.com Sat Jun 3 12:52:06 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Sat, 03 Jun 2006 10:52:06 -0700 Subject: [AccessD] Outlook Warninig Message Message-ID: <4481CC46.3090406@san.rr.com> When I try to do automation of access to Outlook, Outlook give the warning message: "A program is trying to access e-mail addresses you have stored in Outlook. Do you want to allow this? You can then choose a number of minutes from a list box to allow the program to access outlook. For a program that's supposed to be running unattended, this won't do, obviously. Is there a way to disable that message in Outlook? MTIA Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From dwaters at usinternet.com Sat Jun 3 13:23:27 2006 From: dwaters at usinternet.com (Dan Waters) Date: Sat, 3 Jun 2006 13:23:27 -0500 Subject: [AccessD] Outlook Warninig Message In-Reply-To: <31106088.1149357327654.JavaMail.root@sniper19> Message-ID: <000001c6873a$d04d2f10$0200a8c0@danwaters> Hi Rocky, I use a program called vbSendMail. You can find it at http://www.freevbcode.com/ShowCode.Asp?ID=109. It's free, has great documentation, avoids email applications altogether, and in 2 1/2 years I've had not one problem. It's also well documented. Best of luck! Dan -----Original Message----- Subject: [AccessD] Outlook Warninig Message When I try to do automation of access to Outlook, Outlook give the warning message: "A program is trying to access e-mail addresses you have stored in Outlook. Do you want to allow this? You can then choose a number of minutes from a list box to allow the program to access outlook. For a program that's supposed to be running unattended, this won't do, obviously. Is there a way to disable that message in Outlook? MTIA Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From bill_Patten at earthlink.net Sat Jun 3 13:31:26 2006 From: bill_Patten at earthlink.net (Bill Patten) Date: Sat, 3 Jun 2006 11:31:26 -0700 Subject: [AccessD] Outlook Warninig Message References: <4481CC46.3090406@san.rr.com> Message-ID: <000501c6873b$ed770ba0$6401a8c0@BPCS> Rocky, Several years ago Charlotte told me about Redemption, to do this. I have used it successfully for one client. Learn more at: http://www.dimastr.com/redemption/home.htm Bill ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Saturday, June 03, 2006 10:52 AM Subject: [AccessD] Outlook Warninig Message When I try to do automation of access to Outlook, Outlook give the warning message: "A program is trying to access e-mail addresses you have stored in Outlook. Do you want to allow this? You can then choose a number of minutes from a list box to allow the program to access outlook. For a program that's supposed to be running unattended, this won't do, obviously. Is there a way to disable that message in Outlook? MTIA Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From bchacc at san.rr.com Sat Jun 3 13:55:07 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Sat, 03 Jun 2006 11:55:07 -0700 Subject: [AccessD] Outlook Warninig Message In-Reply-To: <000501c6873b$ed770ba0$6401a8c0@BPCS> References: <4481CC46.3090406@san.rr.com> <000501c6873b$ed770ba0$6401a8c0@BPCS> Message-ID: <4481DB0B.7020905@san.rr.com> Dan and Bill: Thanks for your replies. I found this: http://www.contextmagic.com/express-clickyes/ and the freeware version seems to work OK. I'm not trying to send email. I'm stuck with looking into the clients Inbox for stuff. Regards, Rocky Bill Patten wrote: > Rocky, > > Several years ago Charlotte told me about Redemption, to do this. I have > used it successfully for one client. Learn more at: > > http://www.dimastr.com/redemption/home.htm > > > Bill > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Saturday, June 03, 2006 10:52 AM > Subject: [AccessD] Outlook Warninig Message > > > When I try to do automation of access to Outlook, Outlook give the > warning message: > > "A program is trying to access e-mail addresses you have stored in > Outlook. Do you want to allow this? > > You can then choose a number of minutes from a list box to allow the program > to access outlook. > > For a program that's supposed to be running unattended, this won't do, > obviously. Is there a way to disable that message in Outlook? > > MTIA > > Rocky > > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bill_Patten at earthlink.net Sat Jun 3 15:05:04 2006 From: bill_Patten at earthlink.net (Bill Patten) Date: Sat, 3 Jun 2006 13:05:04 -0700 Subject: [AccessD] Outlook Warninig Message References: <4481CC46.3090406@san.rr.com> <000501c6873b$ed770ba0$6401a8c0@BPCS> <4481DB0B.7020905@san.rr.com> Message-ID: <001101c68749$01c13740$6401a8c0@BPCS> Rocky ClickYes does work if used properly, course I think it just looks for yes no boxes and if that's true and it's running and a "do you want to delete this, YN" pops up it could say yes. It may be tied to Outlook in which case I guess it would work OK. My client sends out 100 reports to 100 different users so we needed something better than ClickYes, Redemption works well once you figure out how to call it. Dan's suggestion is good, if your customers IT departments don't block the SMTP host. Bill ----- Original Message ----- From: "Rocky Smolin - Beach Access Software" To: "Access Developers discussion and problem solving" Sent: Saturday, June 03, 2006 11:55 AM Subject: Re: [AccessD] Outlook Warninig Message Dan and Bill: Thanks for your replies. I found this: http://www.contextmagic.com/express-clickyes/ and the freeware version seems to work OK. I'm not trying to send email. I'm stuck with looking into the clients Inbox for stuff. Regards, Rocky Bill Patten wrote: > Rocky, > > Several years ago Charlotte told me about Redemption, to do this. I have > used it successfully for one client. Learn more at: > > http://www.dimastr.com/redemption/home.htm > > > Bill > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Saturday, June 03, 2006 10:52 AM > Subject: [AccessD] Outlook Warninig Message > > > When I try to do automation of access to Outlook, Outlook give the > warning message: > > "A program is trying to access e-mail addresses you have stored in > Outlook. Do you want to allow this? > > You can then choose a number of minutes from a list box to allow the > program > to access outlook. > > For a program that's supposed to be running unattended, this won't do, > obviously. Is there a way to disable that message in Outlook? > > MTIA > > Rocky > > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From martyconnelly at shaw.ca Sat Jun 3 15:52:40 2006 From: martyconnelly at shaw.ca (MartyConnelly) Date: Sat, 03 Jun 2006 13:52:40 -0700 Subject: [AccessD] Office 2007 training films In-Reply-To: <4481DB0B.7020905@san.rr.com> References: <4481CC46.3090406@san.rr.com> <000501c6873b$ed770ba0$6401a8c0@BPCS> <4481DB0B.7020905@san.rr.com> Message-ID: <4481F698.8070205@shaw.ca> Office 2007 Partner Technical Readiness Training Presentations http://www.microsoft.com/downloads/details.aspx?familyid=5CB386FF-1B77-4ADC-A42F-F5EA375E4ED1&displaylang=en It sounds like these were produced by Microsoft France. So be prepared for the English "h'accent" ( 1 ) Office 2007 New User Experience Part 1.wmv 10.1 MB Download ( 10 ) Office 2007 ECM Part2 - WCM.wmv 24.9 MB Download ( 11 ) Office 2007 Knowledge Mgmt.wmv 25.5 MB Download ( 12 ) Office 2007 BI.wmv 15.0 MB Download ( 13 ) Office 2007 Server Develoment.wmv 25.1 MB Download ( 2 ) Office 2007 New User Experience Part 2.wmv 32.7 MB Download ( 3 ) Office 2007 Developing In Word 2007.wmv 29.0 MB Download ( 4 ) Office 2007 Core Excel Advances.wmv 19.9 MB Download ( 5 ) Office 2007 InfoPath Forms In Outlook.wmv 32.7 MB Download ( 6 ) Office 2007 New File Format Overview.wmv 14.6 MB Download ( 7 ) Office 2007 Servers Overview.wmv 36.1 MB Download ( 8 ) Office 2007 WSS Collaboration.wmv 28.2 MB Download ( 9 ) Office 2007 ECM Part1 - Doc Mgmt.wmv 30.1 MB -- Marty Connelly Victoria, B.C. Canada From bchacc at san.rr.com Sat Jun 3 17:14:13 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Sat, 03 Jun 2006 15:14:13 -0700 Subject: [AccessD] Outlook Warninig Message In-Reply-To: <001101c68749$01c13740$6401a8c0@BPCS> References: <4481CC46.3090406@san.rr.com> <000501c6873b$ed770ba0$6401a8c0@BPCS> <4481DB0B.7020905@san.rr.com> <001101c68749$01c13740$6401a8c0@BPCS> Message-ID: <448209B5.5090704@san.rr.com> FYI all: I found this link which gives code to start and stop ClickYes from your program: http://www.vb123.com/toolshed/05_docs/stopoutlookmessages.htm Rocky Bill Patten wrote: > Rocky > > ClickYes does work if used properly, course I think it just looks for yes no > boxes and if that's true and it's running and a "do you want to delete this, > YN" pops up it could say yes. It may be tied to Outlook in which case I > guess it would work OK. My client sends out 100 reports to 100 different > users so we needed something better than ClickYes, Redemption works well > once you figure out how to call it. > > Dan's suggestion is good, if your customers IT departments don't block the > SMTP host. > > > Bill > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Saturday, June 03, 2006 11:55 AM > Subject: Re: [AccessD] Outlook Warninig Message > > > Dan and Bill: > > Thanks for your replies. > > I found this: > > http://www.contextmagic.com/express-clickyes/ > > and the freeware version seems to work OK. I'm not trying to send > email. I'm stuck with looking into the clients Inbox for stuff. > > Regards, > > Rocky > > > Bill Patten wrote: > >> Rocky, >> >> Several years ago Charlotte told me about Redemption, to do this. I have >> used it successfully for one client. Learn more at: >> >> http://www.dimastr.com/redemption/home.htm >> >> >> Bill >> ----- Original Message ----- >> From: "Rocky Smolin - Beach Access Software" >> To: "Access Developers discussion and problem solving" >> >> Sent: Saturday, June 03, 2006 10:52 AM >> Subject: [AccessD] Outlook Warninig Message >> >> >> When I try to do automation of access to Outlook, Outlook give the >> warning message: >> >> "A program is trying to access e-mail addresses you have stored in >> Outlook. Do you want to allow this? >> >> You can then choose a number of minutes from a list box to allow the >> program >> to access outlook. >> >> For a program that's supposed to be running unattended, this won't do, >> obviously. Is there a way to disable that message in Outlook? >> >> MTIA >> >> Rocky >> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From accessd at shaw.ca Sat Jun 3 19:04:18 2006 From: accessd at shaw.ca (Jim Lawrence) Date: Sat, 03 Jun 2006 17:04:18 -0700 Subject: [AccessD] Outlook Warninig Message In-Reply-To: <448209B5.5090704@san.rr.com> Message-ID: <0J0B00GCG6RB4MT0@l-daemon> Sounds neat... Thanks Jim -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - Beach Access Software Sent: Saturday, June 03, 2006 3:14 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Outlook Warninig Message FYI all: I found this link which gives code to start and stop ClickYes from your program: http://www.vb123.com/toolshed/05_docs/stopoutlookmessages.htm Rocky Bill Patten wrote: > Rocky > > ClickYes does work if used properly, course I think it just looks for yes no > boxes and if that's true and it's running and a "do you want to delete this, > YN" pops up it could say yes. It may be tied to Outlook in which case I > guess it would work OK. My client sends out 100 reports to 100 different > users so we needed something better than ClickYes, Redemption works well > once you figure out how to call it. > > Dan's suggestion is good, if your customers IT departments don't block the > SMTP host. > > > Bill > ----- Original Message ----- > From: "Rocky Smolin - Beach Access Software" > To: "Access Developers discussion and problem solving" > > Sent: Saturday, June 03, 2006 11:55 AM > Subject: Re: [AccessD] Outlook Warninig Message > > > Dan and Bill: > > Thanks for your replies. > > I found this: > > http://www.contextmagic.com/express-clickyes/ > > and the freeware version seems to work OK. I'm not trying to send > email. I'm stuck with looking into the clients Inbox for stuff. > > Regards, > > Rocky > > > Bill Patten wrote: > >> Rocky, >> >> Several years ago Charlotte told me about Redemption, to do this. I have >> used it successfully for one client. Learn more at: >> >> http://www.dimastr.com/redemption/home.htm >> >> >> Bill >> ----- Original Message ----- >> From: "Rocky Smolin - Beach Access Software" >> To: "Access Developers discussion and problem solving" >> >> Sent: Saturday, June 03, 2006 10:52 AM >> Subject: [AccessD] Outlook Warninig Message >> >> >> When I try to do automation of access to Outlook, Outlook give the >> warning message: >> >> "A program is trying to access e-mail addresses you have stored in >> Outlook. Do you want to allow this? >> >> You can then choose a number of minutes from a list box to allow the >> program >> to access outlook. >> >> For a program that's supposed to be running unattended, this won't do, >> obviously. Is there a way to disable that message in Outlook? >> >> MTIA >> >> Rocky >> >> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From bchacc at san.rr.com Sat Jun 3 23:14:45 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Sat, 03 Jun 2006 21:14:45 -0700 Subject: [AccessD] Outlook Warninig Message In-Reply-To: <0J0B00GCG6RB4MT0@l-daemon> References: <0J0B00GCG6RB4MT0@l-daemon> Message-ID: <44825E35.1000801@san.rr.com> It works, too. I just dropped it into the app. Stripped it down to a Private Sub StartClickYes and a Private Sub StopClickYes. Rocky Jim Lawrence wrote: > Sounds neat... > > Thanks > Jim > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin - > Beach Access Software > Sent: Saturday, June 03, 2006 3:14 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Outlook Warninig Message > > FYI all: > > I found this link which gives code to start and stop ClickYes from your > program: > > http://www.vb123.com/toolshed/05_docs/stopoutlookmessages.htm > > Rocky > > > Bill Patten wrote: > >> Rocky >> >> ClickYes does work if used properly, course I think it just looks for yes >> > no > >> boxes and if that's true and it's running and a "do you want to delete >> > this, > >> YN" pops up it could say yes. It may be tied to Outlook in which case I >> guess it would work OK. My client sends out 100 reports to 100 different >> users so we needed something better than ClickYes, Redemption works well >> once you figure out how to call it. >> >> Dan's suggestion is good, if your customers IT departments don't block the >> > > >> SMTP host. >> >> >> Bill >> ----- Original Message ----- >> From: "Rocky Smolin - Beach Access Software" >> To: "Access Developers discussion and problem solving" >> >> Sent: Saturday, June 03, 2006 11:55 AM >> Subject: Re: [AccessD] Outlook Warninig Message >> >> >> Dan and Bill: >> >> Thanks for your replies. >> >> I found this: >> >> http://www.contextmagic.com/express-clickyes/ >> >> and the freeware version seems to work OK. I'm not trying to send >> email. I'm stuck with looking into the clients Inbox for stuff. >> >> Regards, >> >> Rocky >> >> >> Bill Patten wrote: >> >> >>> Rocky, >>> >>> Several years ago Charlotte told me about Redemption, to do this. I have >>> used it successfully for one client. Learn more at: >>> >>> http://www.dimastr.com/redemption/home.htm >>> >>> >>> Bill >>> ----- Original Message ----- >>> From: "Rocky Smolin - Beach Access Software" >>> To: "Access Developers discussion and problem solving" >>> >>> Sent: Saturday, June 03, 2006 10:52 AM >>> Subject: [AccessD] Outlook Warninig Message >>> >>> >>> When I try to do automation of access to Outlook, Outlook give the >>> warning message: >>> >>> "A program is trying to access e-mail addresses you have stored in >>> Outlook. Do you want to allow this? >>> >>> You can then choose a number of minutes from a list box to allow the >>> program >>> to access outlook. >>> >>> For a program that's supposed to be running unattended, this won't do, >>> obviously. Is there a way to disable that message in Outlook? >>> >>> MTIA >>> >>> Rocky >>> >>> >>> >>> >>> >> >> > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From Gustav at cactus.dk Sun Jun 4 05:10:38 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Sun, 04 Jun 2006 12:10:38 +0200 Subject: [AccessD] Field data type Binary and creation of specific field data type Message-ID: Hi all Did you know that a Binary field type is available with a length of 510 bytes? It cannot be created in the table designer, only via code - or by a make table query: SELECT DISTINCT Country, Null As BinaryField INTO Countries FROM Customers; Explanation here: http://support.microsoft.com/default.aspx?scid=kb;en-us;320435 You might get the idea that it will hold strings of length beyond 255 chars but no, it will not. They will be truncated, 255 is still the maximum. It mostly looks like a fixed length "Tiny OLE Object" as it seems to hold a fixed length byte array. So what's the purpose if this field type? Or how to use it in a way not offered by other data types? I don't know. Any suggestions? Note that if you wish to create a table with a field of a certain data type, IIf() comes in handy: SELECT DISTINCT Country, IIf(True, Null, CCur(0)) As CurrencyField INTO Countries FROM Customers; Note, too, that the above doesn't work for Access 97. Not even SELECT DISTINCT Country, IIf(False, Null, CCur(0)) As CurrencyField INTO Countries FROM Customers; will create CurrencyField of type Currency but as Text(!). Only CCur(0) As CurrencyField will do, where you afterwards will have to update CurrencyField to Null. In any case, if you wish to create a Date field, this method is easier: SELECT DISTINCT Country, CVDate(Null) As DateField INTO Countries FROM Customers; as CVDate() accepts Null. /gustav From mwp.reid at qub.ac.uk Mon Jun 5 05:28:43 2006 From: mwp.reid at qub.ac.uk (Martin Reid) Date: Mon, 5 Jun 2006 11:28:43 +0100 Subject: [AccessD] Office 2007 training films Message-ID: <006101c687c1$b5297b0e$1b0e758f@ads.qub.ac.uk> Hear pdf support is being removed and u have to download it later -----Original Message----- From: "MartyConnelly" Sent: 6/3/06 9:59:29 PM To: "Access Developers discussion and problem solving" Subject: [AccessD] Office 2007 training films Office 2007 Partner Technical Readiness Training Presentations http://www.microsoft.com/downloads/details.aspx?familyid=5CB386FF-1B77-4ADC-A42F-F5EA375E4ED1&displaylang=en It sounds like these were produced by Microsoft France. So be prepared for the English "h'accent" ( 1 ) Office 2007 New User Experience Part 1.wmv 10.1 MB Download ( 10 ) Office 2007 ECM Part2 - WCM.wmv 24.9 MB Download ( 11 ) Office 2007 Knowledge Mgmt.wmv 25.5 MB Download ( 12 ) Office 2007 BI.wmv 15.0 MB Download ( 13 ) Office 2007 Server Develoment.wmv 25.1 MB Download ( 2 ) Office 2007 New User Experience Part 2.wmv 32.7 MB Download ( 3 ) Office 2007 Developing In Word 2007.wmv 29.0 MB Download ( 4 ) Office 2007 Core Excel Advances.wmv 19.9 MB Download ( 5 ) Office 2007 InfoPath Forms In Outlook.wmv 32.7 MB Download ( 6 ) Office 2007 New File Format Overview.wmv 14.6 MB Download ( 7 ) Office 2007 Servers Overview.wmv 36.1 MB Download ( 8 ) Office 2007 WSS Collaboration.wmv 28.2 MB Download ( 9 ) Office 2007 ECM Part1 - Doc Mgmt.wmv 30.1 MB -- Marty Connelly Victoria, B.C. Canada -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From stuart at lexacorp.com.pg Sun Jun 4 06:17:41 2006 From: stuart at lexacorp.com.pg (Stuart McLachlan) Date: Sun, 04 Jun 2006 21:17:41 +1000 Subject: [AccessD] Field data type Binary and creation of specific field data type In-Reply-To: Message-ID: <44834DF5.6907.24187A@stuart.lexacorp.com.pg> On 4 Jun 2006 at 12:10, Gustav Brock wrote: > Did you know that a Binary field type is available with a length of 510 > bytes? ... > > You might get the idea that it will hold strings of length beyond 255 chars > but no, it will not. They will be truncated, 255 is still the maximum. It Strings are store as Unicode and use two bytes each 510 bytes = 255 x 2 byte characters. > mostly looks like a fixed length "Tiny OLE Object" as it seems to hold a > fixed length byte array. So what's the purpose if this field type? Or how to > use it in a way not offered by other data types? Looks as though it would be useful to store a user-defined type in a single field. I'd guess that you could use StrConv(strMyString,vbFromUnicode ) and StrConv(strMyString,vbUnicode ) with a terminating Null to store up to 509 character strings in the field and still have ithem searchable/sortable - although it will probably only sort in ANSI order (case sensitive - all caps sorting before all lower case). You could also use it to store up to 4080 bit flags per record. :-) -- Stuart From Gustav at cactus.dk Sun Jun 4 07:33:23 2006 From: Gustav at cactus.dk (Gustav Brock) Date: Sun, 04 Jun 2006 14:33:23 +0200 Subject: [AccessD] Field data type Binary and creation of specific field data type Message-ID: Hi Stuart Unfortunately not. Looks like Access knows this is Unicode and counts the length of the binary data to 255 chars. Perhaps the flag bit usage could do ... /gustav >>> stuart at lexacorp.com.pg 04-06-2006 13:17 >>> On 4 Jun 2006 at 12:10, Gustav Brock wrote: > Did you know that a Binary field type is available with a length of 510 > bytes? ... > > You might get the idea that it will hold strings of length beyond 255 chars > but no, it will not. They will be truncated, 255 is still the maximum. It Strings are store as Unicode and use two bytes each 510 bytes = 255 x 2 byte characters. > mostly looks like a fixed length "Tiny OLE Object" as it seems to hold a > fixed length byte array. So what's the purpose if this field type? Or how to > use it in a way not offered by other data types? Looks as though it would be useful to store a user-defined type in a single field. I'd guess that you could use StrConv(strMyString,vbFromUnicode ) and StrConv(strMyString,vbUnicode ) with a terminating Null to store up to 509 character strings in the field and still have ithem searchable/sortable - although it will probably only sort in ANSI order (case sensitive - all caps sorting before all lower case). You could also use it to store up to 4080 bit flags per record. :-) -- Stuart From max at sherman.org.uk Sun Jun 4 10:18:37 2006 From: max at sherman.org.uk (Max Home) Date: Sun, 4 Jun 2006 16:18:37 +0100 Subject: [AccessD] Outlook Warninig Message In-Reply-To: <000001c6873a$d04d2f10$0200a8c0@danwaters> Message-ID: <000401c687ea$2b42c150$e26b1152@Max> Hi Dan, This works well from outside of Access (using the example exe file). Do you have an A3K version (this is VB6 as you know) and it would be nice to have it within a DB. Thanks Max -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: 03 June 2006 19:23 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Outlook Warninig Message Hi Rocky, I use a program called vbSendMail. You can find it at http://www.freevbcode.com/ShowCode.Asp?ID=109. It's free, has great documentation, avoids email applications altogether, and in 2 1/2 years I've had not one problem. It's also well documented. Best of luck! Dan -----Original Message----- Subject: [AccessD] Outlook Warninig Message When I try to do automation of access to Outlook, Outlook give the warning message: "A program is trying to access e-mail addresses you have stored in Outlook. Do you want to allow this? You can then choose a number of minutes from a list box to allow the program to access outlook. For a program that's supposed to be running unattended, this won't do, obviously. Is there a way to disable that message in Outlook? MTIA Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.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 dwaters at usinternet.com Sun Jun 4 11:01:49 2006 From: dwaters at usinternet.com (Dan Waters) Date: Sun, 4 Jun 2006 11:01:49 -0500 Subject: [AccessD] vbSendMail VBA Code (was: Outlook Warninig Message) In-Reply-To: <18566924.1149434896055.JavaMail.root@sniper38> Message-ID: <000001c687f0$32e81850$0200a8c0@danwaters> Max - This is what I use within a standard module: --------------------------------------------------- Public Function SendEmail(stgTo As String, stgEmailAddress As String, stgSubject As String) Dim poSendMail As Object If stgTo = "" Or IsNull(stgTo) Then Exit Function End If Set poSendMail = CreateObject("vbSendMail.clsSendMail") poSendMail.SMTPHost = SMTPServerName poSendMail.FromDisplayName = FullName(CurrentUser) poSendMail.FROM = FullName(CurrentUser) poSendMail.RecipientDisplayName = stgTo poSendMail.Recipient = stgEmailAddress '-- Or use EmailAddress(stgTo) poSendMail.ReplyToAddress = EmailAddress(CurrentUser) poSendMail.Subject = stgSubject '-- When email is originated from the developer's PC, don't actually send email 'If CurrentPCName <> "DanWaters" Then poSendMail.Connect poSendMail.Send poSendMail.Disconnect 'End If Exit Function End Function ------------------------------------------------------------ SMTPServerName is a sub which looks up the SMTP Server Name from a table. To send from your PC, you can try something like 'MAIL.USINTERNET.COM', where USINTERNET is the domain name of your ISP. In a company environment, you'll need to work with the IT folks to get the SMTP Server Name. FullName and EmailAddress are subs which use CurrentUser. You can also send strings of multiple names and email addresses. One thing to note: VBA Error Trapping will not pick up on vbSendMail errors. To get that you'll need to write some WithEvents code, which I'm not familiar with. Perhaps if you're familiar with VB6, that won't be a problem. Writing this error trapping is described in the vbSendMail Documentation file, which is pretty good reading. *** If anyone does write error trapping for vbSendMail, please post!! :-) Let me know how this goes, Dan -----Original Message----- Subject: Re: [AccessD] Outlook Warninig Message Hi Dan, This works well from outside of Access (using the example exe file). Do you have an A3K version (this is VB6 as you know) and it would be nice to have it within a DB. Thanks Max -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: 03 June 2006 19:23 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Outlook Warninig Message Hi Rocky, I use a program called vbSendMail. You can find it at http://www.freevbcode.com/ShowCode.Asp?ID=109. It's free, has great documentation, avoids email applications altogether, and in 2 1/2 years I've had not one problem. It's also well documented. Best of luck! Dan -----Original Message----- Subject: [AccessD] Outlook Warninig Message When I try to do automation of access to Outlook, Outlook give the warning message: "A program is trying to access e-mail addresses you have stored in Outlook. Do you want to allow this? You can then choose a number of minutes from a list box to allow the program to access outlook. For a program that's supposed to be running unattended, this won't do, obviously. Is there a way to disable that message in Outlook? MTIA Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.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 max at sherman.org.uk Sun Jun 4 11:56:08 2006 From: max at sherman.org.uk (Max Home) Date: Sun, 4 Jun 2006 17:56:08 +0100 Subject: [AccessD] vbSendMail VBA Code (was: Outlook Warninig Message) In-Reply-To: <000001c687f0$32e81850$0200a8c0@danwaters> Message-ID: <000001c687f7$c7e344f0$e26b1152@Max> Thanks Dan, Actually I was being very lazy. As you know, the vb6 exe example displays a "form" with lots of code behind the populated boxes. I was wondering if you had done a similar form to save me having to reinvent the form and its associated code. Thanks Max -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: 04 June 2006 17:02 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] vbSendMail VBA Code (was: Outlook Warninig Message) Max - This is what I use within a standard module: --------------------------------------------------- Public Function SendEmail(stgTo As String, stgEmailAddress As String, stgSubject As String) Dim poSendMail As Object If stgTo = "" Or IsNull(stgTo) Then Exit Function End If Set poSendMail = CreateObject("vbSendMail.clsSendMail") poSendMail.SMTPHost = SMTPServerName poSendMail.FromDisplayName = FullName(CurrentUser) poSendMail.FROM = FullName(CurrentUser) poSendMail.RecipientDisplayName = stgTo poSendMail.Recipient = stgEmailAddress '-- Or use EmailAddress(stgTo) poSendMail.ReplyToAddress = EmailAddress(CurrentUser) poSendMail.Subject = stgSubject '-- When email is originated from the developer's PC, don't actually send email 'If CurrentPCName <> "DanWaters" Then poSendMail.Connect poSendMail.Send poSendMail.Disconnect 'End If Exit Function End Function ------------------------------------------------------------ SMTPServerName is a sub which looks up the SMTP Server Name from a table. To send from your PC, you can try something like 'MAIL.USINTERNET.COM', where USINTERNET is the domain name of your ISP. In a company environment, you'll need to work with the IT folks to get the SMTP Server Name. FullName and EmailAddress are subs which use CurrentUser. You can also send strings of multiple names and email addresses. One thing to note: VBA Error Trapping will not pick up on vbSendMail errors. To get that you'll need to write some WithEvents code, which I'm not familiar with. Perhaps if you're familiar with VB6, that won't be a problem. Writing this error trapping is described in the vbSendMail Documentation file, which is pretty good reading. *** If anyone does write error trapping for vbSendMail, please post!! :-) Let me know how this goes, Dan -----Original Message----- Subject: Re: [AccessD] Outlook Warninig Message Hi Dan, This works well from outside of Access (using the example exe file). Do you have an A3K version (this is VB6 as you know) and it would be nice to have it within a DB. Thanks Max -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: 03 June 2006 19:23 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Outlook Warninig Message Hi Rocky, I use a program called vbSendMail. You can find it at http://www.freevbcode.com/ShowCode.Asp?ID=109. It's free, has great documentation, avoids email applications altogether, and in 2 1/2 years I've had not one problem. It's also well documented. Best of luck! Dan -----Original Message----- Subject: [AccessD] Outlook Warninig Message When I try to do automation of access to Outlook, Outlook give the warning message: "A program is trying to access e-mail addresses you have stored in Outlook. Do you want to allow this? You can then choose a number of minutes from a list box to allow the program to access outlook. For a program that's supposed to be running unattended, this won't do, obviously. Is there a way to disable that message in Outlook? MTIA Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.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 dwaters at usinternet.com Sun Jun 4 12:51:19 2006 From: dwaters at usinternet.com (Dan Waters) Date: Sun, 4 Jun 2006 12:51:19 -0500 Subject: [AccessD] vbSendMail VBA Code (was: Outlook Warninig Message) In-Reply-To: <11112452.1149440786916.JavaMail.root@sniper15> Message-ID: <000001c687ff$7e9a4ed0$0200a8c0@danwaters> I'll agree with you - that was pretty lazy! ;-) I've used this code for about 3 years, and I forgot that it was part of a VB app. I use it in an Access application, and the code is in an Access standard module. I use it so that emails get automatically sent from the database as a result of an event. That way users don't need to take any action to send it and don't even see it when it is sent! The code I sent was only a portion of what's available. You can go through the vbSendMail app to see what else you could add. So, you might not need a form at all. All right - now get to work! Dan -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Home Sent: Sunday, June 04, 2006 11:56 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] vbSendMail VBA Code (was: Outlook Warninig Message) Thanks Dan, Actually I was being very lazy. As you know, the vb6 exe example displays a "form" with lots of code behind the populated boxes. I was wondering if you had done a similar form to save me having to reinvent the form and its associated code. Thanks Max -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: 04 June 2006 17:02 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] vbSendMail VBA Code (was: Outlook Warninig Message) Max - This is what I use within a standard module: --------------------------------------------------- Public Function SendEmail(stgTo As String, stgEmailAddress As String, stgSubject As String) Dim poSendMail As Object If stgTo = "" Or IsNull(stgTo) Then Exit Function End If Set poSendMail = CreateObject("vbSendMail.clsSendMail") poSendMail.SMTPHost = SMTPServerName poSendMail.FromDisplayName = FullName(CurrentUser) poSendMail.FROM = FullName(CurrentUser) poSendMail.RecipientDisplayName = stgTo poSendMail.Recipient = stgEmailAddress '-- Or use EmailAddress(stgTo) poSendMail.ReplyToAddress = EmailAddress(CurrentUser) poSendMail.Subject = stgSubject '-- When email is originated from the developer's PC, don't actually send email 'If CurrentPCName <> "DanWaters" Then poSendMail.Connect poSendMail.Send poSendMail.Disconnect 'End If Exit Function End Function ------------------------------------------------------------ SMTPServerName is a sub which looks up the SMTP Server Name from a table. To send from your PC, you can try something like 'MAIL.USINTERNET.COM', where USINTERNET is the domain name of your ISP. In a company environment, you'll need to work with the IT folks to get the SMTP Server Name. FullName and EmailAddress are subs which use CurrentUser. You can also send strings of multiple names and email addresses. One thing to note: VBA Error Trapping will not pick up on vbSendMail errors. To get that you'll need to write some WithEvents code, which I'm not familiar with. Perhaps if you're familiar with VB6, that won't be a problem. Writing this error trapping is described in the vbSendMail Documentation file, which is pretty good reading. *** If anyone does write error trapping for vbSendMail, please post!! :-) Let me know how this goes, Dan -----Original Message----- Subject: Re: [AccessD] Outlook Warninig Message Hi Dan, This works well from outside of Access (using the example exe file). Do you have an A3K version (this is VB6 as you know) and it would be nice to have it within a DB. Thanks Max -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: 03 June 2006 19:23 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Outlook Warninig Message Hi Rocky, I use a program called vbSendMail. You can find it at http://www.freevbcode.com/ShowCode.Asp?ID=109. It's free, has great documentation, avoids email applications altogether, and in 2 1/2 years I've had not one problem. It's also well documented. Best of luck! Dan -----Original Message----- Subject: [AccessD] Outlook Warninig Message When I try to do automation of access to Outlook, Outlook give the warning message: "A program is trying to access e-mail addresses you have stored in Outlook. Do you want to allow this? You can then choose a number of minutes from a list box to allow the program to access outlook. For a program that's supposed to be running unattended, this won't do, obviously. Is there a way to disable that message in Outlook? MTIA Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.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 max at sherman.org.uk Mon Jun 5 01:56:56 2006 From: max at sherman.org.uk (Max Home) Date: Mon, 5 Jun 2006 07:56:56 +0100 Subject: [AccessD] vbSendMail VBA Code (was: Outlook Warninig Message) In-Reply-To: <000001c687ff$7e9a4ed0$0200a8c0@danwaters> Message-ID: <000f01c6886d$3d3abbf0$e26b1152@Max> Ooo kaaaay, if I must... shame really, 'cos it is far easier to pick somebody else's brains. Max Ps. I will send it to you *when* I have done it - for your goodie bag. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: 04 June 2006 18:51 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] vbSendMail VBA Code (was: Outlook Warninig Message) I'll agree with you - that was pretty lazy! ;-) I've used this code for about 3 years, and I forgot that it was part of a VB app. I use it in an Access application, and the code is in an Access standard module. I use it so that emails get automatically sent from the database as a result of an event. That way users don't need to take any action to send it and don't even see it when it is sent! The code I sent was only a portion of what's available. You can go through the vbSendMail app to see what else you could add. So, you might not need a form at all. All right - now get to work! Dan -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Home Sent: Sunday, June 04, 2006 11:56 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] vbSendMail VBA Code (was: Outlook Warninig Message) Thanks Dan, Actually I was being very lazy. As you know, the vb6 exe example displays a "form" with lots of code behind the populated boxes. I was wondering if you had done a similar form to save me having to reinvent the form and its associated code. Thanks Max -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: 04 June 2006 17:02 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] vbSendMail VBA Code (was: Outlook Warninig Message) Max - This is what I use within a standard module: --------------------------------------------------- Public Function SendEmail(stgTo As String, stgEmailAddress As String, stgSubject As String) Dim poSendMail As Object If stgTo = "" Or IsNull(stgTo) Then Exit Function End If Set poSendMail = CreateObject("vbSendMail.clsSendMail") poSendMail.SMTPHost = SMTPServerName poSendMail.FromDisplayName = FullName(CurrentUser) poSendMail.FROM = FullName(CurrentUser) poSendMail.RecipientDisplayName = stgTo poSendMail.Recipient = stgEmailAddress '-- Or use EmailAddress(stgTo) poSendMail.ReplyToAddress = EmailAddress(CurrentUser) poSendMail.Subject = stgSubject '-- When email is originated from the developer's PC, don't actually send email 'If CurrentPCName <> "DanWaters" Then poSendMail.Connect poSendMail.Send poSendMail.Disconnect 'End If Exit Function End Function ------------------------------------------------------------ SMTPServerName is a sub which looks up the SMTP Server Name from a table. To send from your PC, you can try something like 'MAIL.USINTERNET.COM', where USINTERNET is the domain name of your ISP. In a company environment, you'll need to work with the IT folks to get the SMTP Server Name. FullName and EmailAddress are subs which use CurrentUser. You can also send strings of multiple names and email addresses. One thing to note: VBA Error Trapping will not pick up on vbSendMail errors. To get that you'll need to write some WithEvents code, which I'm not familiar with. Perhaps if you're familiar with VB6, that won't be a problem. Writing this error trapping is described in the vbSendMail Documentation file, which is pretty good reading. *** If anyone does write error trapping for vbSendMail, please post!! :-) Let me know how this goes, Dan -----Original Message----- Subject: Re: [AccessD] Outlook Warninig Message Hi Dan, This works well from outside of Access (using the example exe file). Do you have an A3K version (this is VB6 as you know) and it would be nice to have it within a DB. Thanks Max -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: 03 June 2006 19:23 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Outlook Warninig Message Hi Rocky, I use a program called vbSendMail. You can find it at http://www.freevbcode.com/ShowCode.Asp?ID=109. It's free, has great documentation, avoids email applications altogether, and in 2 1/2 years I've had not one problem. It's also well documented. Best of luck! Dan -----Original Message----- Subject: [AccessD] Outlook Warninig Message When I try to do automation of access to Outlook, Outlook give the warning message: "A program is trying to access e-mail addresses you have stored in Outlook. Do you want to allow this? You can then choose a number of minutes from a list box to allow the program to access outlook. For a program that's supposed to be running unattended, this won't do, obviously. Is there a way to disable that message in Outlook? MTIA Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.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 -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From paul.hartland at fsmail.net Mon Jun 5 03:31:12 2006 From: paul.hartland at fsmail.net (paul.hartland at fsmail.net) Date: Mon, 5 Jun 2006 10:31:12 +0200 (CEST) Subject: [AccessD] vbSendMail VBA Code (was: Outlook Warninig Message) Message-ID: <28922684.1149496272227.JavaMail.www@wwinf3202> I used the following, just a couple of events that vbSendMail has built in to notify the user if the send of the email was successful or not.... Private WithEvents poSendmail As vbSendMail.clsSendMail ' Used for the vbSendMail funtion (email directly to SMTP server). Private Sub cmdCancel_Click() Unload frmEmail End End Sub Private Sub cmdSend_Click() Set poSendmail = New clsSendMail poSendmail.PersistentSettings = False poSendmail.SMTPHost = Me.txtSMTP.Text poSendmail.Username = "" poSendmail.Password = "" poSendmail.POP3Host = "" poSendmail.UseAuthentication = False poSendmail.UsePopAuthentication = False poSendmail.From = Me.txtEmailFrom.Text poSendmail.FromDisplayName = Me.txtEmailFrom.Text poSendmail.Recipient = Me.txtEmailTo.Text poSendmail.ReplyToAddress = Me.txtEmailFrom.Text If (Me.txtSubject.Text <> "") Then poSendmail.Subject = Me.txtSubject.Text Else poSendmail.Subject = "Genesis" End If poSendmail.Message = Me.txtEmailBody.Text poSendmail.Send Set poSendmail = Nothing 'MsgBox "Message has been sent............", vbInformation, "**** User Message - Email Sent ****" End Sub Private Sub poSendmail_SendSuccesful() MsgBox "Email has been sent", vbInformation, "**** Email Sent ****" End Sub Private Sub poSendmail_SendFailed(Explanation As String) MsgBox "Email has NOT been sent for the following reason:" & vbCrLf & vbCrLf & _ Explanation, vbInformation, "**** Email Failed ****" End Sub Message Received: Jun 05 2006, 08:01 AM From: "Max Home" To: "'Access Developers discussion and problem solving'" Cc: Subject: Re: [AccessD] vbSendMail VBA Code (was: Outlook Warninig Message) Ooo kaaaay, if I must... shame really, 'cos it is far easier to pick somebody else's brains. Max Ps. I will send it to you *when* I have done it - for your goodie bag. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: 04 June 2006 18:51 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] vbSendMail VBA Code (was: Outlook Warninig Message) I'll agree with you - that was pretty lazy! ;-) I've used this code for about 3 years, and I forgot that it was part of a VB app. I use it in an Access application, and the code is in an Access standard module. I use it so that emails get automatically sent from the database as a result of an event. That way users don't need to take any action to send it and don't even see it when it is sent! The code I sent was only a portion of what's available. You can go through the vbSendMail app to see what else you could add. So, you might not need a form at all. All right - now get to work! Dan -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Home Sent: Sunday, June 04, 2006 11:56 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] vbSendMail VBA Code (was: Outlook Warninig Message) Thanks Dan, Actually I was being very lazy. As you know, the vb6 exe example displays a "form" with lots of code behind the populated boxes. I was wondering if you had done a similar form to save me having to reinvent the form and its associated code. Thanks Max -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: 04 June 2006 17:02 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] vbSendMail VBA Code (was: Outlook Warninig Message) Max - This is what I use within a standard module: --------------------------------------------------- Public Function SendEmail(stgTo As String, stgEmailAddress As String, stgSubject As String) Dim poSendMail As Object If stgTo = "" Or IsNull(stgTo) Then Exit Function End If Set poSendMail = CreateObject("vbSendMail.clsSendMail") poSendMail.SMTPHost = SMTPServerName poSendMail.FromDisplayName = FullName(CurrentUser) poSendMail.FROM = FullName(CurrentUser) poSendMail.RecipientDisplayName = stgTo poSendMail.Recipient = stgEmailAddress '-- Or use EmailAddress(stgTo) poSendMail.ReplyToAddress = EmailAddress(CurrentUser) poSendMail.Subject = stgSubject '-- When email is originated from the developer's PC, don't actually send email 'If CurrentPCName <> "DanWaters" Then poSendMail.Connect poSendMail.Send poSendMail.Disconnect 'End If Exit Function End Function ------------------------------------------------------------ SMTPServerName is a sub which looks up the SMTP Server Name from a table. To send from your PC, you can try something like 'MAIL.USINTERNET.COM', where USINTERNET is the domain name of your ISP. In a company environment, you'll need to work with the IT folks to get the SMTP Server Name. FullName and EmailAddress are subs which use CurrentUser. You can also send strings of multiple names and email addresses. One thing to note: VBA Error Trapping will not pick up on vbSendMail errors. To get that you'll need to write some WithEvents code, which I'm not familiar with. Perhaps if you're familiar with VB6, that won't be a problem. Writing this error trapping is described in the vbSendMail Documentation file, which is pretty good reading. *** If anyone does write error trapping for vbSendMail, please post!! :-) Let me know how this goes, Dan -----Original Message----- Subject: Re: [AccessD] Outlook Warninig Message Hi Dan, This works well from outside of Access (using the example exe file). Do you have an A3K version (this is VB6 as you know) and it would be nice to have it within a DB. Thanks Max -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: 03 June 2006 19:23 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Outlook Warninig Message Hi Rocky, I use a program called vbSendMail. You can find it at http://www.freevbcode.com/ShowCode.Asp?ID=109. It's free, has great documentation, avoids email applications altogether, and in 2 1/2 years I've had not one problem. It's also well documented. Best of luck! Dan -----Original Message----- Subject: [AccessD] Outlook Warninig Message When I try to do automation of access to Outlook, Outlook give the warning message: "A program is trying to access e-mail addresses you have stored in Outlook. Do you want to allow this? You can then choose a number of minutes from a list box to allow the program to access outlook. For a program that's supposed to be running unattended, this won't do, obviously. Is there a way to disable that message in Outlook? MTIA Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.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 -- 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 dwaters at usinternet.com Mon Jun 5 08:06:57 2006 From: dwaters at usinternet.com (Dan Waters) Date: Mon, 5 Jun 2006 08:06:57 -0500 Subject: [AccessD] vbSendMail VBA Code (was: Outlook Warning Message) In-Reply-To: <21628335.1149496686178.JavaMail.root@sniper22> Message-ID: <000901c688a0$ef814850$0200a8c0@danwaters> Thanks Paul! I'll add this in. Dan -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of paul.hartland at fsmail.net Sent: Monday, June 05, 2006 3:31 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] vbSendMail VBA Code (was: Outlook Warninig Message) Importance: High I used the following, just a couple of events that vbSendMail has built in to notify the user if the send of the email was successful or not.... Private WithEvents poSendmail As vbSendMail.clsSendMail ' Used for the vbSendMail funtion (email directly to SMTP server). Private Sub cmdCancel_Click() Unload frmEmail End End Sub Private Sub cmdSend_Click() Set poSendmail = New clsSendMail poSendmail.PersistentSettings = False poSendmail.SMTPHost = Me.txtSMTP.Text poSendmail.Username = "" poSendmail.Password = "" poSendmail.POP3Host = "" poSendmail.UseAuthentication = False poSendmail.UsePopAuthentication = False poSendmail.From = Me.txtEmailFrom.Text poSendmail.FromDisplayName = Me.txtEmailFrom.Text poSendmail.Recipient = Me.txtEmailTo.Text poSendmail.ReplyToAddress = Me.txtEmailFrom.Text If (Me.txtSubject.Text <> "") Then poSendmail.Subject = Me.txtSubject.Text Else poSendmail.Subject = "Genesis" End If poSendmail.Message = Me.txtEmailBody.Text poSendmail.Send Set poSendmail = Nothing 'MsgBox "Message has been sent............", vbInformation, "**** User Message - Email Sent ****" End Sub Private Sub poSendmail_SendSuccesful() MsgBox "Email has been sent", vbInformation, "**** Email Sent ****" End Sub Private Sub poSendmail_SendFailed(Explanation As String) MsgBox "Email has NOT been sent for the following reason:" & vbCrLf & vbCrLf & _ Explanation, vbInformation, "**** Email Failed ****" End Sub Message Received: Jun 05 2006, 08:01 AM From: "Max Home" To: "'Access Developers discussion and problem solving'" Cc: Subject: Re: [AccessD] vbSendMail VBA Code (was: Outlook Warninig Message) Ooo kaaaay, if I must... shame really, 'cos it is far easier to pick somebody else's brains. Max Ps. I will send it to you *when* I have done it - for your goodie bag. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: 04 June 2006 18:51 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] vbSendMail VBA Code (was: Outlook Warninig Message) I'll agree with you - that was pretty lazy! ;-) I've used this code for about 3 years, and I forgot that it was part of a VB app. I use it in an Access application, and the code is in an Access standard module. I use it so that emails get automatically sent from the database as a result of an event. That way users don't need to take any action to send it and don't even see it when it is sent! The code I sent was only a portion of what's available. You can go through the vbSendMail app to see what else you could add. So, you might not need a form at all. All right - now get to work! Dan -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Home Sent: Sunday, June 04, 2006 11:56 AM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] vbSendMail VBA Code (was: Outlook Warninig Message) Thanks Dan, Actually I was being very lazy. As you know, the vb6 exe example displays a "form" with lots of code behind the populated boxes. I was wondering if you had done a similar form to save me having to reinvent the form and its associated code. Thanks Max -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: 04 June 2006 17:02 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] vbSendMail VBA Code (was: Outlook Warninig Message) Max - This is what I use within a standard module: --------------------------------------------------- Public Function SendEmail(stgTo As String, stgEmailAddress As String, stgSubject As String) Dim poSendMail As Object If stgTo = "" Or IsNull(stgTo) Then Exit Function End If Set poSendMail = CreateObject("vbSendMail.clsSendMail") poSendMail.SMTPHost = SMTPServerName poSendMail.FromDisplayName = FullName(CurrentUser) poSendMail.FROM = FullName(CurrentUser) poSendMail.RecipientDisplayName = stgTo poSendMail.Recipient = stgEmailAddress '-- Or use EmailAddress(stgTo) poSendMail.ReplyToAddress = EmailAddress(CurrentUser) poSendMail.Subject = stgSubject '-- When email is originated from the developer's PC, don't actually send email 'If CurrentPCName <> "DanWaters" Then poSendMail.Connect poSendMail.Send poSendMail.Disconnect 'End If Exit Function End Function ------------------------------------------------------------ SMTPServerName is a sub which looks up the SMTP Server Name from a table. To send from your PC, you can try something like 'MAIL.USINTERNET.COM', where USINTERNET is the domain name of your ISP. In a company environment, you'll need to work with the IT folks to get the SMTP Server Name. FullName and EmailAddress are subs which use CurrentUser. You can also send strings of multiple names and email addresses. One thing to note: VBA Error Trapping will not pick up on vbSendMail errors. To get that you'll need to write some WithEvents code, which I'm not familiar with. Perhaps if you're familiar with VB6, that won't be a problem. Writing this error trapping is described in the vbSendMail Documentation file, which is pretty good reading. *** If anyone does write error trapping for vbSendMail, please post!! :-) Let me know how this goes, Dan -----Original Message----- Subject: Re: [AccessD] Outlook Warninig Message Hi Dan, This works well from outside of Access (using the example exe file). Do you have an A3K version (this is VB6 as you know) and it would be nice to have it within a DB. Thanks Max -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters Sent: 03 June 2006 19:23 To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Outlook Warninig Message Hi Rocky, I use a program called vbSendMail. You can find it at http://www.freevbcode.com/ShowCode.Asp?ID=109. It's free, has great documentation, avoids email applications altogether, and in 2 1/2 years I've had not one problem. It's also well documented. Best of luck! Dan -----Original Message----- Subject: [AccessD] Outlook Warninig Message When I try to do automation of access to Outlook, Outlook give the warning message: "A program is trying to access e-mail addresses you have stored in Outlook. Do you want to allow this? You can then choose a number of minutes from a list box to allow the program to access outlook. For a program that's supposed to be running unattended, this won't do, obviously. Is there a way to disable that message in Outlook? MTIA Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.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 -- 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 bheid at appdevgrp.com Mon Jun 5 08:33:54 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Mon, 5 Jun 2006 09:33:54 -0400 Subject: [AccessD] [SPAM SUSPECT] Office 2007 training films In-Reply-To: <916187228923D311A6FE00A0CC3FAA30DC1DE5@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D354D3@ADGSERVER> Do you know if there is a way to download them so I can view them off-line? Thanks, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly Sent: Saturday, June 03, 2006 4:53 PM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] [AccessD] Office 2007 training films Importance: Low Office 2007 Partner Technical Readiness Training Presentations http://www.microsoft.com/downloads/details.aspx?familyid=5CB386FF-1B77-4ADC- A42F-F5EA375E4ED1&displaylang=en It sounds like these were produced by Microsoft France. So be prepared for the English "h'accent" ( 1 ) Office 2007 New User Experience Part 1.wmv 10.1 MB Download ( 10 ) Office 2007 ECM Part2 - WCM.wmv 24.9 MB Download ( 11 ) Office 2007 Knowledge Mgmt.wmv 25.5 MB Download ( 12 ) Office 2007 BI.wmv 15.0 MB Download ( 13 ) Office 2007 Server Develoment.wmv 25.1 MB Download ( 2 ) Office 2007 New User Experience Part 2.wmv 32.7 MB Download ( 3 ) Office 2007 Developing In Word 2007.wmv 29.0 MB Download ( 4 ) Office 2007 Core Excel Advances.wmv 19.9 MB Download ( 5 ) Office 2007 InfoPath Forms In Outlook.wmv 32.7 MB Download ( 6 ) Office 2007 New File Format Overview.wmv 14.6 MB Download ( 7 ) Office 2007 Servers Overview.wmv 36.1 MB Download ( 8 ) Office 2007 WSS Collaboration.wmv 28.2 MB Download ( 9 ) Office 2007 ECM Part1 - Doc Mgmt.wmv 30.1 MB -- Marty Connelly From dgibso at uark.edu Mon Jun 5 08:48:42 2006 From: dgibso at uark.edu (David A. Gibson) Date: Mon, 05 Jun 2006 08:48:42 -0500 Subject: [AccessD] [SPAM SUSPECT] Office 2007 training films In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D354D3@ADGSERVER> References: <916187228923D311A6FE00A0CC3FAA30DC1DE5@ADGSERVER> <916187228923D311A6FE00A0CC3FAA30D354D3@ADGSERVER> Message-ID: <7.0.1.0.0.20060605084728.01a4f0d0@uark.edu> Go to the URL, bottom of the page where the files are listed, click the button that says "Download", and follow the dialog. David G. At 08:33 AM 6/5/2006, you wrote: >Do you know if there is a way to download them so I can view them off-line? > >Thanks, >Bobby > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly >Sent: Saturday, June 03, 2006 4:53 PM >To: Access Developers discussion and problem solving >Subject: [SPAM SUSPECT] [AccessD] Office 2007 training films >Importance: Low > > >Office 2007 Partner Technical Readiness Training Presentations >http://www.microsoft.com/downloads/details.aspx?familyid=5CB386FF-1B77-4ADC- >A42F-F5EA375E4ED1&displaylang=en > >It sounds like these were produced by Microsoft France. >So be prepared for the English "h'accent" > >( 1 ) Office 2007 New User Experience Part 1.wmv > 10.1 MB > Download >( 10 ) Office 2007 ECM Part2 - WCM.wmv > 24.9 MB > Download >( 11 ) Office 2007 Knowledge Mgmt.wmv > 25.5 MB > Download >( 12 ) Office 2007 BI.wmv > 15.0 MB > Download >( 13 ) Office 2007 Server Develoment.wmv > 25.1 MB > Download >( 2 ) Office 2007 New User Experience Part 2.wmv > 32.7 MB > Download >( 3 ) Office 2007 Developing In Word 2007.wmv > 29.0 MB > Download >( 4 ) Office 2007 Core Excel Advances.wmv > 19.9 MB > Download >( 5 ) Office 2007 InfoPath Forms In Outlook.wmv > 32.7 MB > Download >( 6 ) Office 2007 New File Format Overview.wmv > 14.6 MB > Download >( 7 ) Office 2007 Servers Overview.wmv > 36.1 MB > Download >( 8 ) Office 2007 WSS Collaboration.wmv > 28.2 MB > Download >( 9 ) Office 2007 ECM Part1 - Doc Mgmt.wmv > 30.1 MB > > > >-- >Marty Connelly > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com David A. Gibson Computer Support Specialist II University of Arkansas 232 Silas H. Hunt Hall Fayetteville, Arkansas 72701 e-mail:dgibso at uark.edu Toll Free: 1-800-377-8632 Direct Line: (479) 575-4654 Fax :(479) 575-7515 The University of Arkansas Nationally Competitive- Student Centered- Research University www.uark.edu From mwp.reid at qub.ac.uk Mon Jun 5 09:00:38 2006 From: mwp.reid at qub.ac.uk (Martin Reid) Date: Mon, 5 Jun 2006 15:00:38 +0100 Subject: [AccessD] OT Add item to system tray References: <916187228923D311A6FE00A0CC3FAA30DC1DE5@ADGSERVER><916187228923D311A6FE00A0CC3FAA30D354D3@ADGSERVER> <7.0.1.0.0.20060605084728.01a4f0d0@uark.edu> Message-ID: Is ti possibel and does anyone know how Distribute a PDF file on a Floppy. user puts it into drive Little C symbol is added to the system tray user clicks the C and opens the PDF Martin Martin WP Reid Training and Assessment Unit Riddle Hall Belfast tel: 02890 974477 From bheid at appdevgrp.com Mon Jun 5 09:09:06 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Mon, 5 Jun 2006 10:09:06 -0400 Subject: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Office 2007 training films In-Reply-To: <916187228923D311A6FE00A0CC3FAA30DC1ED3@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D354D4@ADGSERVER> David, I did, when I click on the Download button, it opens Windows Media Player. it does not give me the option of saving it. Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David A. Gibson Sent: Monday, June 05, 2006 9:49 AM To: Access Developers discussion and problem solving Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Office 2007 training films Importance: Low Go to the URL, bottom of the page where the files are listed, click the button that says "Download", and follow the dialog. David G. At 08:33 AM 6/5/2006, you wrote: >Do you know if there is a way to download them so I can view them off-line? > >Thanks, >Bobby > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly >Sent: Saturday, June 03, 2006 4:53 PM >To: Access Developers discussion and problem solving >Subject: [SPAM SUSPECT] [AccessD] Office 2007 training films >Importance: Low > > >Office 2007 Partner Technical Readiness Training Presentations >http://www.microsoft.com/downloads/details.aspx?familyid=5CB386FF-1B77-4ADC -A42F-F5EA375E4ED1&displaylang=en > >It sounds like these were produced by Microsoft France. >So be prepared for the English "h'accent" > >( 1 ) Office 2007 New User Experience Part 1.wmv > 10.1 MB > Download >( 10 ) Office 2007 ECM Part2 - WCM.wmv > 24.9 MB > Download >( 11 ) Office 2007 Knowledge Mgmt.wmv > 25.5 MB > Download >( 12 ) Office 2007 BI.wmv > 15.0 MB > Download >( 13 ) Office 2007 Server Develoment.wmv > 25.1 MB > Download >( 2 ) Office 2007 New User Experience Part 2.wmv > 32.7 MB > Download >( 3 ) Office 2007 Developing In Word 2007.wmv > 29.0 MB > Download >( 4 ) Office 2007 Core Excel Advances.wmv > 19.9 MB > Download >( 5 ) Office 2007 InfoPath Forms In Outlook.wmv > 32.7 MB > Download >( 6 ) Office 2007 New File Format Overview.wmv > 14.6 MB > Download >( 7 ) Office 2007 Servers Overview.wmv > 36.1 MB > Download >( 8 ) Office 2007 WSS Collaboration.wmv > 28.2 MB > Download >( 9 ) Office 2007 ECM Part1 - Doc Mgmt.wmv > 30.1 MB > > > >-- >Marty Connelly > >-- >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com David A. Gibson From darrend at nimble.com.au Mon Jun 5 09:21:33 2006 From: darrend at nimble.com.au (Darren DICK) Date: Tue, 6 Jun 2006 00:21:33 +1000 Subject: [AccessD] A2000:Make Visible based on the looped integer returned Message-ID: <20060605142149.CNCP27710.omta04sl.mx.bigpond.com@DENZILLAP> Hi All Can't quite get the syntax right on this one I am looping through an SQL statement The Statement produces sequential numbers (as integers) 1,2,3,4,5 etc e.g... rs!ProfileID will = 1 on the first loop rs!ProfileID will = 2 on the second loop etc etc until EoF So far so good... Based on those numbers I wanna loop thought the recordset the number of times the dot recordcount allows and I want to make controls on the form - that end with the looped Recordset integer - visible or not Code above and below my air code works fine - all the declarations are OK Air Code..... dim strControlName as string For intX = 1 To rs.RecordCount strControlName = "txtProfile" & intX. Me(strControlName).Visible = True Next intX Anyone know what the correct syntax for the air code is?? Many thanks Darren From dgibso at uark.edu Mon Jun 5 09:30:07 2006 From: dgibso at uark.edu (David A. Gibson) Date: Mon, 05 Jun 2006 09:30:07 -0500 Subject: [AccessD] Office 2007 training films In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D354D4@ADGSERVER> References: <916187228923D311A6FE00A0CC3FAA30DC1ED3@ADGSERVER> <916187228923D311A6FE00A0CC3FAA30D354D4@ADGSERVER> Message-ID: <7.0.1.0.0.20060605091850.01961830@uark.edu> Then you must have some default setting that causes that? I am using Win XP Pro. I click the download button and get the open/save dialog. You might go into Win Media Player and disassociate the file type of .wmv. That might cure your problem and then again maybe not. In WMP, go to Options,the File Types tab, and uncheck the .wmv type and save. Don't know if you will have to reboot or not to effect the change. David G. At 09:09 AM 6/5/2006, you wrote: >David, > >I did, when I click on the Download button, it opens Windows Media Player. >it does not give me the option of saving it. > >Bobby > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David A. Gibson >Sent: Monday, June 05, 2006 9:49 AM >To: Access Developers discussion and problem solving >Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Office 2007 training >films >Importance: Low > > >Go to the URL, bottom of the page where the files are listed, click >the button that says "Download", and follow the dialog. > >David G. > >At 08:33 AM 6/5/2006, you wrote: > >Do you know if there is a way to download them so I can view them off-line? > > > >Thanks, > >Bobby From paul.hartland at fsmail.net Mon Jun 5 09:38:22 2006 From: paul.hartland at fsmail.net (paul.hartland at fsmail.net) Date: Mon, 5 Jun 2006 16:38:22 +0200 (CEST) Subject: [AccessD] A2000:Make Visible based on the looped integer returned Message-ID: <32957725.1149518302505.JavaMail.www@wwinf3003> Not too sure if you have done a typo, but there is a full stop at the end of this line.... strControlName = "txtProfile" & intX. Paul Message Received: Jun 05 2006, 03:23 PM From: "Darren DICK" To: "'Access Developers discussion and problem solving'" Cc: Subject: [AccessD] A2000:Make Visible based on the looped integer returned Hi All Can't quite get the syntax right on this one I am looping through an SQL statement The Statement produces sequential numbers (as integers) 1,2,3,4,5 etc e.g... rs!ProfileID will = 1 on the first loop rs!ProfileID will = 2 on the second loop etc etc until EoF So far so good... Based on those numbers I wanna loop thought the recordset the number of times the dot recordcount allows and I want to make controls on the form - that end with the looped Recordset integer - visible or not Code above and below my air code works fine - all the declarations are OK Air Code..... dim strControlName as string For intX = 1 To rs.RecordCount strControlName = "txtProfile" & intX. Me(strControlName).Visible = True Next intX Anyone know what the correct syntax for the air code is?? Many thanks Darren -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From darrend at nimble.com.au Mon Jun 5 09:38:31 2006 From: darrend at nimble.com.au (Darren DICK) Date: Tue, 6 Jun 2006 00:38:31 +1000 Subject: [AccessD] A2000:Make Visible based on the looped integer returned Message-ID: <20060605143832.WZKT19512.omta01sl.mx.bigpond.com@DENZILLAP> Hi All Figured out an answer to my previous post For anyone who is interested it was... For intX = 1 To .RecordCount Me("pg" & intX).Visible = True See y'all Darren From ldoering at symphonyinfo.com Mon Jun 5 09:47:04 2006 From: ldoering at symphonyinfo.com (Liz Doering) Date: Mon, 5 Jun 2006 09:47:04 -0500 Subject: [AccessD] A2000:Make Visible based on the looped integer returned In-Reply-To: <000001c688ac$a8892330$0210a8c0@Symphony.local> Message-ID: <02F5B8F3D893A845A3DF342F14D80F0158DF@LAKATOS.Symphony.local> On a form where there are twelve combo boxes which sometimes show and sometimes don't, I've successfully used For intCount = 1 To 12 Me("cboActual1" & intCount).RowSource = "Actual" Next intCount I would expect, in your example, Me( "txtProfile" & intX).visible = True should be the correct syntax. Are you having trouble because the value of intX isn't matching the name of your text box? i.e., are you generating txtProfile0 when there isn't one? Liz -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK Sent: Monday, June 05, 2006 9:31 AM To: 'Access Developers discussion and problem solving' Subject: [AccessD] A2000:Make Visible based on the looped integer returned Hi All Can't quite get the syntax right on this one I am looping through an SQL statement The Statement produces sequential numbers (as integers) 1,2,3,4,5 etc e.g... rs!ProfileID will = 1 on the first loop rs!ProfileID will = 2 on the second loop etc etc until EoF So far so good... Based on those numbers I wanna loop thought the recordset the number of times the dot recordcount allows and I want to make controls on the form - that end with the looped Recordset integer - visible or not Code above and below my air code works fine - all the declarations are OK Air Code..... dim strControlName as string For intX = 1 To rs.RecordCount strControlName = "txtProfile" & intX. Me(strControlName).Visible = True Next intX Anyone know what the correct syntax for the air code is?? Many thanks Darren -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From darrend at nimble.com.au Mon Jun 5 09:53:03 2006 From: darrend at nimble.com.au (Darren DICK) Date: Tue, 6 Jun 2006 00:53:03 +1000 Subject: [AccessD] A2000:Make Visible based on the looped integer returned In-Reply-To: <32957725.1149518302505.JavaMail.www@wwinf3003> Message-ID: <20060605145313.FOAP25409.omta05sl.mx.bigpond.com@DENZILLAP> Thanks Paul No that was my typing in the email I did eventually work it out though Thanks again Have a great day Darren ------------------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of paul.hartland at fsmail.net Sent: Tuesday, 6 June 2006 12:38 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] A2000:Make Visible based on the looped integer returned Importance: High Not too sure if you have done a typo, but there is a full stop at the end of this line.... strControlName = "txtProfile" & intX. Paul Message Received: Jun 05 2006, 03:23 PM From: "Darren DICK" To: "'Access Developers discussion and problem solving'" Cc: Subject: [AccessD] A2000:Make Visible based on the looped integer returned Hi All Can't quite get the syntax right on this one I am looping through an SQL statement The Statement produces sequential numbers (as integers) 1,2,3,4,5 etc e.g... rs!ProfileID will = 1 on the first loop rs!ProfileID will = 2 on the second loop etc etc until EoF So far so good... Based on those numbers I wanna loop thought the recordset the number of times the dot recordcount allows and I want to make controls on the form - that end with the looped Recordset integer - visible or not Code above and below my air code works fine - all the declarations are OK Air Code..... dim strControlName as string For intX = 1 To rs.RecordCount strControlName = "txtProfile" & intX. Me(strControlName).Visible = True Next intX Anyone know what the correct syntax for the air code is?? 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 darrend at nimble.com.au Mon Jun 5 09:53:03 2006 From: darrend at nimble.com.au (Darren DICK) Date: Tue, 6 Jun 2006 00:53:03 +1000 Subject: [AccessD] A2000:Make Visible based on the looped integerreturned In-Reply-To: <02F5B8F3D893A845A3DF342F14D80F0158DF@LAKATOS.Symphony.local> Message-ID: <20060605145331.FOBU25409.omta05sl.mx.bigpond.com@DENZILLAP> Hi Liz Thanks I did eventually work it out and yes - I used the same syntax you suggested Many many thanks Thanks for the swift reply - Gotta love this list and the legends on it :-)) Have a great day Darren ------------------------------ T: 0424 696 433 -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Liz Doering Sent: Tuesday, 6 June 2006 12:47 AM To: Access Developers discussion and problem solving Subject: Re: [AccessD] A2000:Make Visible based on the looped integerreturned On a form where there are twelve combo boxes which sometimes show and sometimes don't, I've successfully used For intCount = 1 To 12 Me("cboActual1" & intCount).RowSource = "Actual" Next intCount I would expect, in your example, Me( "txtProfile" & intX).visible = True should be the correct syntax. Are you having trouble because the value of intX isn't matching the name of your text box? i.e., are you generating txtProfile0 when there isn't one? Liz -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK Sent: Monday, June 05, 2006 9:31 AM To: 'Access Developers discussion and problem solving' Subject: [AccessD] A2000:Make Visible based on the looped integer returned Hi All Can't quite get the syntax right on this one I am looping through an SQL statement The Statement produces sequential numbers (as integers) 1,2,3,4,5 etc e.g... rs!ProfileID will = 1 on the first loop rs!ProfileID will = 2 on the second loop etc etc until EoF So far so good... Based on those numbers I wanna loop thought the recordset the number of times the dot recordcount allows and I want to make controls on the form - that end with the looped Recordset integer - visible or not Code above and below my air code works fine - all the declarations are OK Air Code..... dim strControlName as string For intX = 1 To rs.RecordCount strControlName = "txtProfile" & intX. Me(strControlName).Visible = True Next intX Anyone know what the correct syntax for the air code is?? 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 bchacc at san.rr.com Mon Jun 5 09:58:40 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 05 Jun 2006 07:58:40 -0700 Subject: [AccessD] Strange List Box Behavior Message-ID: <448446A0.4020003@san.rr.com> Dear List: I have a list box hooked to a query with one filter. The underlying table for the query has 165 records. With the filter the query returns 142. But the list box is only showing 19. I put a msgbox mylist.listcount which shows 142 records in the list box. Thirteen fields in the query, thirteen columns in the list box and thirteen column widths. But the box only shows 19 records. I can't see any properties in the property box that might be limiting it. IS there something simple I'm overlooking? MTIA Rocky -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bheid at appdevgrp.com Mon Jun 5 10:00:18 2006 From: bheid at appdevgrp.com (Bobby Heid) Date: Mon, 5 Jun 2006 11:00:18 -0400 Subject: [AccessD] Office 2007 training films In-Reply-To: <916187228923D311A6FE00A0CC3FAA30DC1EEA@ADGSERVER> Message-ID: <916187228923D311A6FE00A0CC3FAA30D354D7@ADGSERVER> I tried on my machine here (XP Pro) and home (XP Pro) with the same results. I'll look into changing the association. But then, will it not automatically play when I double-click on a .wmv file? Thanks, Bobby -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David A. Gibson Sent: Monday, June 05, 2006 10:30 AM To: Access Developers discussion and problem solving Subject: [AccessD] Office 2007 training films Then you must have some default setting that causes that? I am using Win XP Pro. I click the download button and get the open/save dialog. You might go into Win Media Player and disassociate the file type of .wmv. That might cure your problem and then again maybe not. In WMP, go to Options,the File Types tab, and uncheck the .wmv type and save. Don't know if you will have to reboot or not to effect the change. David G. At 09:09 AM 6/5/2006, you wrote: >David, > >I did, when I click on the Download button, it opens Windows Media Player. >it does not give me the option of saving it. > >Bobby > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David A. Gibson >Sent: Monday, June 05, 2006 9:49 AM >To: Access Developers discussion and problem solving >Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Office 2007 training >films >Importance: Low > > >Go to the URL, bottom of the page where the files are listed, click >the button that says "Download", and follow the dialog. > >David G. > >At 08:33 AM 6/5/2006, you wrote: > >Do you know if there is a way to download them so I can view them off-line? > > > >Thanks, > >Bobby -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com From dgibso at uark.edu Mon Jun 5 10:32:57 2006 From: dgibso at uark.edu (David A. Gibson) Date: Mon, 05 Jun 2006 10:32:57 -0500 Subject: [AccessD] Office 2007 training films In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D354D7@ADGSERVER> References: <916187228923D311A6FE00A0CC3FAA30DC1EEA@ADGSERVER> <916187228923D311A6FE00A0CC3FAA30D354D7@ADGSERVER> Message-ID: <7.0.1.0.0.20060605103142.0196a220@uark.edu> If removing the file association will allow you to download, then you can re-establish it to play the files. David G. At 10:00 AM 6/5/2006, you wrote: >I tried on my machine here (XP Pro) and home (XP Pro) with the same results. > >I'll look into changing the association. But then, will it not >automatically play when I double-click on a .wmv file? > >Thanks, >Bobby > >-----Original Message----- >From: accessd-bounces at databaseadvisors.com >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David A. Gibson >Sent: Monday, June 05, 2006 10:30 AM >To: Access Developers discussion and problem solving >Subject: [AccessD] Office 2007 training films From markamatte at hotmail.com Mon Jun 5 11:33:53 2006 From: markamatte at hotmail.com (Mark A Matte) Date: Mon, 05 Jun 2006 16:33:53 +0000 Subject: [AccessD] SetWarnings False In-Reply-To: <448446A0.4020003@san.rr.com> Message-ID: Hello All, In A2K I'm looping through some records...I have warnings set to false...and have error handling dealt with, so I thought...but I still get a Visual Basic run time error. I have on error goto next record...but instead it just breaks on the line referencing the current record...doesn't even goto the error handling. Any ideas? Oh yeah...the db is corrupt...I'm just trying to recover some record. This is probably my problem...just wanted to run by some fresh minds. Thanks, Mark A. Matte From prosoft6 at hotmail.com Mon Jun 5 11:39:14 2006 From: prosoft6 at hotmail.com (Julie Reardon-Taylor) Date: Mon, 05 Jun 2006 12:39:14 -0400 Subject: [AccessD] SetWarnings False In-Reply-To: Message-ID: Sounds like it is encountering an end of file and erroring out because it doesn't have a "next record" to go to . Have you tested for eof? Julie Reardon-Taylor PRO-SOFT OF NY, INC. 44 Public Square Suite #5 Watertown, NY 13601 Phone: 315.785.0319 Fax: 315.785.0323 www.pro-soft.net NYS IT Services Contract CMT026A NYS Certified Woman-Owned Business From darsant at gmail.com Mon Jun 5 12:34:18 2006 From: darsant at gmail.com (Josh McFarlane) Date: Mon, 5 Jun 2006 12:34:18 -0500 Subject: [AccessD] Strange List Box Behavior In-Reply-To: <448446A0.4020003@san.rr.com> References: <448446A0.4020003@san.rr.com> Message-ID: <53c8e05a0606051034n7d631298yf280a9e774f632cf@mail.gmail.com> On 6/5/06, Rocky Smolin - Beach Access Software wrote: > Dear List: > > I have a list box hooked to a query with one filter. The underlying > table for the query has 165 records. With the filter the query returns > 142. But the list box is only showing 19. I put a msgbox > mylist.listcount which shows 142 records in the list box. Thirteen > fields in the query, thirteen columns in the list box and thirteen > column widths. > > But the box only shows 19 records. > > I can't see any properties in the property box that might be limiting it. > > IS there something simple I'm overlooking? Is there anything in the code that changes the listbox sort and you might have forgot to refresh it afterwards? -- Josh McFarlane "Peace cannot be kept by force. It can only be achieved by understanding." -Albert Einstein From Lambert.Heenan at AIG.com Mon Jun 5 12:35:13 2006 From: Lambert.Heenan at AIG.com (Heenan, Lambert) Date: Mon, 5 Jun 2006 13:35:13 -0400 Subject: [AccessD] Find and Remove Carriage Return Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F22A43696@xlivmbx21.aig.com> Windows and DOS uses the convention that a new line is indicated by a CR LF combination. So if you are seeing breaks in the lines, then you have a vocal "character" in there. In which case the Replace function can be used to strip it out, as shown earlier. Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben Cummings Sent: Friday, June 02, 2006 10:49 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Find and Remove Carriage Return I'm not really sure what I mean. I have some text fields and I am putting them together to make a fixed length text file. When I grab a field that has been "Entered/Returned" in the text field reads the Return and starts a new line. Which of course screws up the fixed length definition of the text file. Do all carriage returns show as vbcrlf within any stored string? -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Heenan, Lambert Sent: Friday, June 02, 2006 4:51 PM To: 'Access Developers discussion and problem solving' Subject: Re: [AccessD] Find and Remove Carriage Return Presumably you really mean Cr Lf combinations, i.e. what looks like a new line to us humans. In VB land this is the string vbCrlf. To do this in a query you need a simple one-line function, because JET does not see VB constants... Function CrLf() as String CrLf = vbCrLf End Function Armed with this you can update the text/memo field in a query with this sort of SQL... UPDATE Table1 SET Table1.[yet another memo] = Replace(Cstr(nz([yet another memo],"")),CrLf(),""); The part that does the work being Replace(Cstr(nz([yet another memo],"")),CrLf(),"") HTH Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben Cummings Sent: Friday, June 02, 2006 4:26 PM To: AccessD Subject: [AccessD] Find and Remove Carriage Return How can I look into a field and find and remove any returns? Thanks. Reuben Cummings GFC, LLC 812.523.1017 -- 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 bchacc at san.rr.com Mon Jun 5 12:54:04 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 05 Jun 2006 10:54:04 -0700 Subject: [AccessD] Strange List Box Behavior In-Reply-To: <53c8e05a0606051034n7d631298yf280a9e774f632cf@mail.gmail.com> References: <448446A0.4020003@san.rr.com> <53c8e05a0606051034n7d631298yf280a9e774f632cf@mail.gmail.com> Message-ID: <44846FBC.7080808@san.rr.com> Flash! This just in... All the records are there but the vertical scroll bar is not adjusting itself to accommodate all the records. It will scroll down and show about 19 records. But if I select a record and use the mouse scroll wheel or use the page down button, I see all the records. The problem is the vertical slider bar not shrinking so that you can scroll all the records. So now what? I've never seen a vertical slider behave that way before. Rocky Josh McFarlane wrote: > On 6/5/06, Rocky Smolin - Beach Access Software wrote: > >> Dear List: >> >> I have a list box hooked to a query with one filter. The underlying >> table for the query has 165 records. With the filter the query returns >> 142. But the list box is only showing 19. I put a msgbox >> mylist.listcount which shows 142 records in the list box. Thirteen >> fields in the query, thirteen columns in the list box and thirteen >> column widths. >> >> But the box only shows 19 records. >> >> I can't see any properties in the property box that might be limiting it. >> >> IS there something simple I'm overlooking? >> > > Is there anything in the code that changes the listbox sort and you > might have forgot to refresh it afterwards? > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From bchacc at san.rr.com Mon Jun 5 13:01:57 2006 From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software) Date: Mon, 05 Jun 2006 11:01:57 -0700 Subject: [AccessD] [Fwd: Re: Strange List Box Behavior] Message-ID: <44847195.9010101@san.rr.com> Never mind. I did something so dumb I don't even want to talk about it. Problem is fixed, though. Rocky -------- Original Message -------- Subject: Re: [AccessD] Strange List Box Behavior Date: Mon, 05 Jun 2006 10:54:04 -0700 From: Rocky Smolin - Beach Access Software To: Access Developers discussion and problem solving References: <448446A0.4020003 at san.rr.com> <53c8e05a0606051034n7d631298yf280a9e774f632cf at mail.gmail.com> Flash! This just in... All the records are there but the vertical scroll bar is not adjusting itself to accommodate all the records. It will scroll down and show about 19 records. But if I select a record and use the mouse scroll wheel or use the page down button, I see all the records. The problem is the vertical slider bar not shrinking so that you can scroll all the records. So now what? I've never seen a vertical slider behave that way before. Rocky Josh McFarlane wrote: > On 6/5/06, Rocky Smolin - Beach Access Software wrote: > >> Dear List: >> >> I have a list box hooked to a query with one filter. The underlying >> table for the query has 165 records. With the filter the query returns >> 142. But the list box is only showing 19. I put a msgbox >> mylist.listcount which shows 142 records in the list box. Thirteen >> fields in the query, thirteen columns in the list box and thirteen >> column widths. >> >> But the box only shows 19 records. >> >> I can't see any properties in the property box that might be limiting it. >> >> IS there something simple I'm overlooking? >> > > Is there anything in the code that changes the listbox sort and you > might have forgot to refresh it afterwards? > > -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com -- Rocky Smolin Beach Access Software 858-259-4334 www.e-z-mrp.com From Jim.Hale at FleetPride.com Mon Jun 5 13:02:27 2006 From: Jim.Hale at FleetPride.com (Hale, Jim) Date: Mon, 5 Jun 2006 13:02:27 -0500 Subject: [AccessD] SetWarnings False Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DDC90@corp-es01.fleetpride.com> From the code editor go