Answer Questions

• slyi AutoExec will not execute properly

  Hello there I have an .dot file in the Word 2003 start-folder. When opening word, the file is read. The autoexec-macro should make a new entry with a number of commands and subcommands in the standard menubar. On about 300 PC's this works fine. On a few ones only part of the commands appear. All PC's run W2000 and Office 2003. Any idea regards Jurgen Ok, i've been working through the code to see what it actually was required to do. You mentioned that the entries menu_protection_set, menu_protection_clear and menu_archive are the only ones that appear within the custom Menubar. Well, those entries are the only ones (next to the "Formulare und Dokumente") who don't to have a IF .. ...Show All

• BJones82 Projects, objects & modules

  I started learning VBA in MS Word yesterday. I have some programming experience in C++ and Java. I am trying to understand how the environment is structured and what Projects, Objects and Modules represent. For example I recorded a few macros using the macro recorder and then opened the VB Editor to see what was created. I notice that under "Project" are 3 folders. One is named "Microsoft Word Objects". Within this folder is what looks like a file named "This Document". What does "Project" represent What does "This Document" represent What is the difference between "This Document" and the "Project&q ...Show All

• SomeGuyOnAComputer Inserting additional chars into a string....

  Hi pals and gals, Could someone help me with the following problem I have a userform in wich the user types personal data of new employees. Now i want the text in the textboxes to automaticly change into the correct format at BeforeUpdate. example: Private Sub txtVoorletters_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) txtVoorletters.Value = StrConv(txtVoorletters, vbUpperCase) End Sub Now i want to add a function that inserts periods between initials. So when the user types "ABCD" the function converts this string to: "A.B.C.D." Any idea Thanks in advance Guus van Waardenburg Great! Thank you very much!!! Hi, ...Show All

• Stefan Hendricks Need to Count the replacements made by a VBA macro in a Word 2003 doc

  We have a bunch of VBA that does a lot of cleanup work in some fancy documents. As these VBA run we would like to display the amount of changes made to the document. Is that possible Yes. We can do. Example: Dim cou as integer Selection.HomeKey unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = FindText .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = True .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False While .Execute cou=cou+1 'Write code to replace selection text here ...Show All

• Phil Atkin Setting ChartObjects Properties throws Run-time Error '1004'

  I have been trying to figure out what is wrong with this macro for a month now. Can someone please help me, I give up I have columns of data ranging from A to EK and 352 rows of data for each. Each column will be a new dataset and therefore a new chart. Each set of 5 columns is a group so after I go through 5, I offset the output column for the charts by 7 and start a new group. It throws really random Runtime Errors '1004 ' , like "Unable to set the Size property of the Font class" or "Method 'HasTitle' of object'_Chart' failed." One day it will be the Legend object, then the Axes. There doesn't seem to be any consistent error besides the fact that it progressively quits creating charts the more I run it whil ...Show All

• jan_bp Run time error '1004' ?

  Hi, How to fix this problem when i run the below code in Access 2003 that prompt the error message as Run time error '1004' Application-defined or object defined error Thanks! Perry   Dim cnnConn As ADODB.Connection Dim rstRecordset As ADODB.Recordset Dim cmdCommand As ADODB.Command Dim strSQL As String Dim xls As New Excel.Application Dim MasterRng As Excel.Range Dim objPivotCache As Excel.PivotCache ' Open the connection. Set cnnConn = New ADODB.Connection Set cnnConn = Application.CurrentProject.Connection strSQL = "SELECT  * FROM [TAB];" ' Set the command text. Set cmdCommand = New ADODB.Command Set cmdCommand.ActiveConnection = cnnConn With cmdCommand     .Comman ...Show All

• Rhubarb Attaching Contents of a Folder

  Hi all, Using a macro running on excel, I am trying to attach the contents of a folder in Outlook. The files contained in the folder change, so it is not as simple as writing the code to attach a specific file. I need it to attach all the files regardless of the file name. Is this possible Thanks in advance Hi, Yes it's possible. To include a reference to the Outlook library use the menu, within VBE, Tools > References... Browse for Microsoft Outlook library. Sub EmailAttachFiles() ' ' Currently using Late binding. ' Include reference to Outlook Library to remove Objects ' Dim olApp As Object 'Outlook.Application Dim olMail As Object 'Outlook.MailItem Dim strPath As String Dim ...Show All

• lokeshbohra Restrict editing of activity based on date comparison

  Hi (again!) thanks to the help of many forum members i have built a system for our users.  I have a facility that allows users to do an end of month submission and it writes the date selected into a field called 'datelastsubmitted' in 'tblusers'.  the reason i am doing this is that i do not want users to then be able to go in and edit any activity that they have entered prior to that 'datelastsubmitted' value.  When they open up an activity to edit (as opposed to creating a new one) i want to be able to restrict them from editing the activity if the 'datelastsubmitted' value is more recent than the 'activitydate' value.  this form is based on a query between linked tables so datelastsubmitted and activitydate are a ...Show All

• Arin George How to create a menu & submenu ?

  Hello, I’m beginner on Access-VB. I try to create a menu and sub-menu programmatically. I can create a menu but not sub-menu. Could you help me Here my code. ------------------------------------------ Sub SubMenuCreation() Dim MyMenubar As CommandBar Dim NewMenu As CommandBarControl Dim MyNewMenu As CommandBarControl Dim NewMenuCtrl As CommandBarControl Set MyMenubar = CommandBars.ActiveMenuBar Set NewMenu = MyMenubar.Controls.Add(Type:=msoControlPopup, Before:=10, Temporary:=True) NewMenu.Caption = "Menu" If Mid$([Forms]![frmLogin]![Acces], 11, 1) = 1 Then Set NewMenuCtrl = NewMenu.Controls.Add(Type:= ...Show All

• Francesco De Vittori Advanced Find - CRoss Table Searches Possible?

  In CRM 1.2 I accepted that searching across tables was not possible, an example being: If I wanted to search under 'Contacts' for people named 'John', and other search criteria looking under 'Activities' within a date range. This is searching under 2 tables - Contacts & Activities. This was not possible in 1.2, and from first glance appears not possible in 3.0 - does anyone know anything about this, where it may be possible I would want to do this without having to write any reports. Thanks, Matt thanks for the info in doing this, the options available under 'add columns' are still only those relating to the selected category in the query, in my instance, 'cases'. i would need to b ...Show All

• tronix finding index in an array

  Hi all, I want to find out which index in the array that corresponds to the maximum value in a array. ff = Application.WorksheetFunction.Max(Hist) finds the value to which I would like to find the index for. Hist is an array containing several thousands of numbers. So I would like to avoid looping through the array to save time. Any ideas out there Grateful for help \Jonas Thanks Andy! Hi, You don't show the details of the array Hist but if you can use the Max function maybe you can make use of the Match one to. Sub Test() Dim vntMaxValue As Variant Dim lngMaxIndex As Long Dim Hist(1 To 5000) As Double Dim lngIndex As Long For lngIndex = 1 To 5000 Hist(lngIndex) = Rnd() * 10 ...Show All

• LeeC22 Help with reworking this code fragment to update from user input...

  Hey, Wanting to see if i can change this code slightly to save from it having to be updated manually each year. '*********************************************** ' Calculate Award '*********************************************** Sub cmdCalculate_Award_Click() Dim x As Integer Dim CompanyDt, AwardType As String For x = 2 To Module1.GlobalCount 'number of employees being processed CompanyDt = "J" & x 'Date they joined the company - Company Senority Dt cell2 = "G" & x 'Award type 5, 10yr etc '-------------------------------------------------------------------------------------- 'Amend the date below before running the report each quarter as they may need updated 'currently coded for ...Show All

• blah569 LBound and UBound functions

  Is there a reference library I need to enable in the VBE to get LBound and UBound functions They don't appear to exist in the Object Browser with the current reference libraries I have enabled. Many thanks! Andy Pope wrote: Hi, I believe those functions are in the Visual Basic for Applications library. Although not exposed via the object browser. Are you not able to use these functions I haven't tried using them yet, but since I could not find them in the object browser or help files, I assumed they resided in another .dll, which I would need to enable. Cheers guys! I wasn't aware you could import namespaces in VBA I thought that was a VB.Net ...Show All

• Bjorn EP Backlund Access data to Excel workbook

  Hi I use Access VBA to export a recordset into an Excel template. I then save the template as a .xls file. Everything works fine except when I open the Excel file the Workbook is hidden. I have to use Menu:Window:Unhide to unhide the workbook. How can I fix this with VBA from Access Thx Code------------------------------------ Set xl = CreateObject("Excel.Application") Set xlWrkBk = GetObject(FPath & "/FS_Template.xlt") Set xlsht = xlWrkBk.Worksheets("Window & Exterior Door Schedule") do the recordset stuff into cells FName = xl.Application.GetSaveAsFilename xlWrkBk.SaveAs FileName:=FName Set xlsht = Nothing Set xlWrkBk = Nothing Set xl = Nothing ...Show All

• Wojtek Podgorski IE7 Cannot dynamic load custom cursor

  Recently I play around custom cursor and find this problem. IE seems cannot dynamically load custom cursor. But no problem for preload custom cursor and dynamically load build-in cursor. Here is the code: <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta content="text/html; charset=ISO-8859-1" http-equiv="content-type"> <script language="javascript"> function clickButton() { document.getElementById("divTest").style.cursor = "crosshair"; } function clickButton1() { document.getElementById("divTest").style.cursor = "hand"; } function clickButton2() { document.getElementById("divTest&q ...Show All