Answer Questions

• Badajoz95 Code for end of month activity submission in an activity system

  Hi there - can anyone help with my syntax - when a user presses the submit command button i want the date that they have entered into an unbound drop down date field called 'dls' to be inserted into a field called 'datelastsubmitted' into 'tblusers' and it should enter it against the appropriate user who is logged in (this logged in users are stored in a global variable called 'loginname'). Her is my syntax: Private Sub submit_Click() Dim sql As String dls = Me!dls Dim rsdbase As Database Dim rstemp As Recordset Set rsdbase = CurrentDb Set rstemp = rsdbase.OpenRecordset("INSERT INTO tblusers[datelastsubmitted] VALUES dls WHERE tblusers[loginname] = '" & loginname & "'") DoCmd.RunSQL sql End Sub ...Show All

• Larrybird02744 VBA Outlook - File Stream issues

  I am trying to write a script triggered from an Outlook email to parse the email (as a text file) and then update an excel spreadsheet with specific data extracted from the email. The email is a form email delineated by a "/" for field breaks and "//" for end of line. However, when I create a text stream to read in the data, the returned string does not include these delineations. Here is a copy of the code I am currently using to open and read the file. I don't want to open the entire email as a new workbook, so I can't use the workbook function. Set fs = CreateObject("Scripting.FileSystemObject") Set ts = fs.OpenTextFile("file.txt", ForReading, TristateTrue) check = True Do s = ts.Readline endlinepos = InStr(s, "//") Do While en ...Show All

• Snickel65 Excel Advanced filter critera Question...

  Hi Guys, Just a quick one here... use advanced filters all the time and usually with data containing over 30,000 rows. I don't know of any way to use criteria such as 'Not equal to' or 'does not contain' etc. This is available along with many other advanced criteria in the auto filter > custom filter however this only works with upto 1000 rows. Any ideas how i could implement these to my filters I am familair with the syntax used in porgramming like !== etc... Many thanks Hi Andy, yes thats what i am wanting to do but when i put <> into the cell it isn't recognising it   Do i have to add something to it   I type in for exampel <>*Mr* and it should filter out all entries th ...Show All

• leonardoreyes recuring compilation errors after access 2.0 conversion to access 97. Please HELP!!!!

  Hi everybody. After converting access 2.0 to access 97 and after successfully compiling and saving all modules, I still get compilation errors almost each time I touch the code. The compilation errors range from outright ' The program has countered a problem and needs to shut down' to the milder reference problems: Suddenly a one-minute-before-successfully compiled code, does not recognize some controls on a form (me.myCtlName doesn't show on the list) or a reference to a public function such as form_myFrom.myCtl_afterAupdate suddenly loses its reference when compiling. Usually, if I decompile and then again saves all modules, it 'comes back to life'. also, if I rename the form and then rename it back, it also fixes the problem ...Show All

• volleynerd Outlook Macro VB - choose second mail box?

  Hello there, I have written a macro that will do some code for each email i receive, i have had to add a new mailbox which means i now have two mail boxes but my macro only reads emails going into my main mail box. Does anyone know if there is a way to get my macro to run only on my second mailbox inbox Thank you in advance. ...Show All

• stombiztalker can you help ?

  Hi, I have an error in my vba application. It occours only in excel 2003, but not in 2000. Its a: "Application-defined or object-defined error" Error code 1004 In the follwoing method the error occurs: Public Function SaveResultsToExcelSheet(RangeOfValues As Range, ValuesArray() As Double) As Boolean On Error GoTo Error: SaveResultsToExcelSheet = True Dim OutputSheet As Worksheet Dim OutputCell As Range Dim Counter As Long Counter = 0 For Each OutputCell In RangeOfValues OutputCell.value = ValuesArray(Counter) Counter = Counter + 1 Next OutputCell Exit Function Error: Err.Clear SaveResultsToExcelSheet = False End Function The error occurs in the line "OutputCell.value = ValuesArray(Counter ...Show All

• David Krmpotic Macro to Delete Rows

  Hi, I am writing a macro that I want to do the following with: 1-Sort spreadsheet by column J. 2-Search for the first instance of the term "unbilled." 3-From that point and down, delete all rows below. 4-Delete specfic columns. I'm having trouble with steps 2 and 3 - the search works, but for the deleting of the rows, it's picking a specific row range. I want it to delete all rows from the first instance of the search term, down to the bottom of the spreadsheet. Each spreadsheet will have a different row range for this, so it can't be a specific range. Any help I can receive would be greatly appreciated. Here is the code: Sub () ' ' Macro ' Macro recorded 1/4/2007 by ___________' ' Keyboard Shortcut: ...Show All

• super_bly Pivottable Drilldown Lists in wrong order (Excel, Pivottable)

  I am using a Pivottable with external data in my Excel Sheet. On the sheet I included a Button to refresh the pivottable via pv.RefreshTable As there might be some new data, also the values of the drilldown lists may change. So when I initally created the pivot, I had these employees: Mister A, Mister B, Mister D, Mister F. By clicking on "Refresh" some new data comes in, including Data from Mister C and Mister E. So the original drilldown list has: (Show all) - Mister A - Mister B - Mister D - Mister F after Clicking Refresh, the drilldown lists just added the 2 new employees: - Mister A - Mister B - Mister D - Mister F - Mister C - Mister E How do I get them in the correct order, after refreshing the data ( In re ...Show All

• sudhirvn MS Office document and image writer print driver

  Besides removing this feature from Office during setup, is there a process to remove this virtual printer from 300 users with roaming profiles on an active directory network We are having an issue with this printer assuming the "default printer" selection for our users. As a work around we have changed their default printer, but after they reboot or log off / on it has defaulted back to the MS Ofc doc and image writer printer. Posting removed Hello, I have the opposite problem. I have users who have had the icon for the Office Document Image Writer deleted under Printers and Faxes. You mention above that it is easy to reinstall the virtual printer. Could y ...Show All

• NickNotYet WOW64

  I have been trying to install a 32-bit application called TortoiseCVS on a win64 platform without any luck. It is a 32-bit application that becomes and extension of the windows file manager for updating/retrieving CVS files. Is it possible for me to run this application with 64-bit Windows You will need a version of Tortoise built to use the 64-bit shell extensions. On the other hand, you can install the 32-bit version and use your 32-bit Internet Explorer to browse your hard drives. This is what I did before TortoiseSVN released a 64-bit version. ...Show All

• Viesta How to get the date of the next coming Monday?

  Hello, everyone here! I need to set up a routine followup schedule in my Access 2003 database. The start date of a subject is the first Monday after being enrolled. So I am wondering if there is a simple way (like a function or something) to request the date of the first coming Monday. Thanks a lot for any suggestion! lunaa Thank you so much, ADG! I will plant your codes in my database~ lunaa Hi Lunaa Add the following into a module, then you can access the function as required. Public Function NextMonday(MyDate As Date) As Date Dim x As Long x = Weekday(MyDate) If x >= 2 Then NextMonday = MyDate + 9 - x Else NextMonday = MyDate + 1 End If End Function ...Show All

• Gabriel Souza What is the code for closing out an excel file while in the browser?

  I am using Excel 2003, FrontPage 2003 and internet explorer. I can access the excel file from my browser but can not close the excel file with a command button while the file is working from the browser. If I am working from the excel program itself, the button works but not from the browser. The range code is to get back to the top before quitting and I do not want any changes to the file to be saved. As you can tell I’m in the learning mode. Thanks. Wayne Private Sub CommandButton4_Click() Range("a1").Select Range("b11").Select Workbooks("KHC WEB 1.04.XLS").Close SaveChanges:=False End Sub ...Show All

• brad0999 How do I call for all installed printers....

  Hey, How do I, with vba code, call for all installed printers in my computer and then display them in a ListBox Best Regards Cathrine I don't think it is possible to find out all installed printers:(. You can get only the active printer using Application.ActivePrinter property. To add items to a ListBox in Excel, you do something like this: Sub addlistbox() Dim lb As ListBox Set lb = Sheet1.ListBoxes.Add(10, 10, 100, 100) lb.AddItem (Application.ActivePrinter) lb.AddItem ("more text") lb.AddItem ("more text2") End Sub Have a look here. http://vbnet.mvps.org/index.html code/forms/setlayeredwindowattributes.htm This is a link PSHK g ...Show All

• Sean Hayes Dynamicaly enter Data in Microsoft Access

  I need to be able to enter data in a form feild dynamically in vba. I allready know the value that I want the feild to have. I just need an example of how to do it. I tried changing the default value in a form but thAT did not seem to work. Thanks for the answer. Wait a minute I need more details.!!!!!!!! Hi Try attaching your code to an event on the form such as the change event on one of the other fields that are keyed and are required What form are you refering to A user form OR a datasheet ...Show All

• Malleyo Switch graphic on/off in Excel

  Hi all, How do I switch graphics on/off in function codes in excel I'm filling columns with data with my macro and to speed up the process I would just like to show the final result when every cell has its number. For the moment it adds a number to a cell I displays it immediately. Any ideas Best regards Jonas Just what I was aiming for, thanks a lot! Best regards \Jonas Hi Jonas A good way to speed up the process is to turn the Calculation mode to Manual while loading the cells, and set it back to Automatic afterwards. Application.Calculation = xlCalculationManual ' to turn it to manual and Application.Calculation = xlCalculationAutomatic ' to turn it back to automatic If you want to ...Show All