Using arrows to select in drop down list in access

Visual Basic for Applications (VBA)

Index ‹ Microsoft ISV

- Previous
  - 1
    - Protecting formulas in cells I have worked on creating sheets that can only be edited by a form and the steps that are done by anyone have to follow a certain order and will only allow them to edit what is necessary. The sheets can be unprotected only when they are being edited by the form preventing "accidental" deleting. I can help put you in the right direction if you give me some more info. Tag: Using arrows to select in drop down list in access
  - 2
    - measuring milliseconds on excel If I want to time how long a small section of code takes to the accuracy of milliseconds, I would like to know what functions will give me that. Dim startTime = <getTime> section of code... Dim endTime = <getTime> Dim result = endTime - startTime Anyway, thanks a lot in advance. Tag: Using arrows to select in drop down list in access
  - 3
    - Conditional Formatting Hi - as part of a system i have built we have a purchase order system - certain users who have rights can view existing purchase orders in datasheet view and then double clicking on the relevant PO number allows them to go into the PO and edit it etc. There is a void tick box that i have added that when ticked means that people know to disregard that particular PO as invalid. However i want to make it more obvious. when it has been ticked i then want it to display in the datasheet view with either a red backrgound for that row or a line struck through it. any ideas Thanks, Rhys. Tag: Using arrows to select in drop down list in access
  - 4
    - SQL Express 2005 Expiration Hello, I downloaded SQL 2005 Express from the microsoft website and I have browsed for an expiration date of the software but haven't found one. So just to be safe, does anyone know if this software is only a trial period and has an expiration date or if the usage is unlimited Tag: Using arrows to select in drop down list in access
  - 5
    - Strange recoeded code for pasting device independent bitmap Hi, When I record a macro which emulates the following menu selection: Edit, Paste Special, Device independent bitmap, I get the following code: Sub Macro2() ' ' Macro2 Macro ' Macro recorded t12/03/2007 by yaronk ' Selection.PasteAndFormat (wdPasteDefault) End Sub Sub PasteInde Where in fact, it seems as if the code should have been: Sub PasteIndepenent() Selection.PasteSpecial DataType:=wdPasteDeviceIndependentBitmap End Sub Can anyone explain me the logic behind the recorded code I would greatly appreciate any insight on this matter. Tag: Using arrows to select in drop down list in access
  - 6
    - How to configure CER with no dialog? I'm also trying to set up a CER server now. Using the instructions in this thread, I was able to send crash reports from an XP system to the CER server. Vista clients, however, don't work as expected. I'm guessing that this is because the new WER infrastructure in Vista doesn't check the old PCHealth\ErrorReporting registry keys, and instead wants to see proper configuration values in HKEY_CURRENT_USER\Software\Microsoft\Windows\Windows Error Reporting. The documentation at http://msdn2.microsoft.com/En-US/library/aa363489.aspx lists a new set of registry keys, such as CorporateWERDirectory and CorporateWERServer. However, I'm not sure how to set those keys correctly and what registry keys such as CorporateWERPortNumber or CorporateWERUseSSL mean, and whether I actually need them or not. Does anyone have an example of how to set those keys BTW, when logging registry accesses using procmon, I found that the WER code actually checks for key names like "CorporateWerDirectory" (i.e. not CorporateWERDirectory), so the docs seem to b slightly off (although this probably doesn't matter in practice). Thanks, Claus http://www.clausbrod.de/Blog Tag: Using arrows to select in drop down list in access
  - 7
    - Loop Without Do Please could you take a look at the code below and advise why the second loop returns a complie error - "Loop without Do" The first loop works, but for some reason, the second loop does not work. Any help will be appreciated. Sub Create_TXT() Application.DisplayAlerts = False For Each sh In Worksheets If sh.Name = "TXT" Then sh.Delete Next Sheets.Add ActiveSheet.Name = "TXT" 'Create lines k = 0 '(row for source tab) For Each sh In Worksheets ' If sh.Name = "BSPL+" Or sh.Name = "Other OMI" Then If sh.Name = "BSPL+" Then sh.Activate nb_sbe = Rows("1").Find("Total").Column - 9 - 1 'possible issue is 1 sbe so no total column i = 2 '(row for summary tab) 'For each row with data Do While Range("B" & i) <> Empty 'only rows with non result subitem If Range("E" & i) <> "Result" And Range("A" & i) <> "BSPL" Then 'check for each sbe For j = 1 To nb_sbe + 1 '(column for summary tab) 'check if there is a value to be reported If Cells(i, j + 9) <> 0 And Left(Cells(i, j + 9).FormulaR1C1, 10) <> "=SUM" Then k = k + 1 Sheets("TXT").Range("A" & k) = k 'counter Sheets("TXT").Range("M" & k) = Range("C" & i) 'item Sheets("TXT").Range("Q" & k) = Cells(i, j + 9) 'value Sheets("TXT").Range("S" & k) = Range("E" & i) 'subitem If Range("E" & i) = "" Then Sheets("TXT").Range("S" & k) = " " 'info either on SBE level or on ru level If Len(Cells(1, j + 9)) = 4 Or j = nb_sbe + 1 Then Sheets("TXT").Range("T" & k) = Cells(1, j + 9) 'sbe Sheets("TXT").Range("U" & k) = " " 'ru If j = nb_sbe + 1 Then Sheets("TXT").Range("T" & k) = "COMP" Else Sheets("TXT").Range("T" & k) = " " 'sbe Sheets("TXT").Range("U" & k) = Cells(1, j + 9) 'ru If Cells(1, j + 9) = "NOTHIN" Then Sheets("TXT").Range("U" & k) = " " End If Sheets("TXT").Range("V" & k) = Range("G" & i) 'tp If Range("G" & i) * 1 = 0 Then Sheets("TXT").Range("V" & k) = " " 'check partner sbe and ru Sheets("TXT").Range("W" & k) = " " 'partner sbe Sheets("TXT").Range("X" & k) = " " 'partner ru Sheets("TXT").Range("Y" & k) = Range("H" & i) 'ctry If Range("H" & i) = 0 Then Sheets("TXT").Range("Y" & k) = " " Sheets("TXT").Range("Z" & k) = Range("I" & i) 'prod grp If Range("Z" & i) = 0 Then Sheets("TXT").Range("Z" & k) = " " End If Next End If i = i + 1 Loop End If Next For Each sh In Worksheets ' If sh.Name = "BSPL+" Or sh.Name = "Other OMI" Then If sh.Name = "BSPL+" Then sh.Activate nb_sbe = Rows("1").Find("Total").Column - 9 - 1 'possible issue is 1 sbe so no total column i = 2 '(row for summary tab) 'For each row with data Do While Range("B" & i) <> Empty 'only rows with non result subitem If Range("E" & i) <> "Result" And Range("A" & i) <> "BSPL" Then 'check for each sbe For j = 1 To nb_sbe + 1 '(column for summary tab) 'If Cells(i, j + 9) <> 0 And Left(Cells(i, j + 9).FormulaR1C1, 10) <> "=SUM" Then 'insert OMI if needed If Not Sheets("OMI Mapping").Columns("A").Find(Range("C" & i)) Is Nothing Then m = Sheets("OMI Mapping").Columns("A").Find(Range("C" & i)).Offset(0, 4) omi_si = Sheets("OMI Mapping").Columns("A").Find(Range("C" & i)).Offset(0, 9) If m <> "no" Then k = k + 1 Sheets("TXT").Range("A" & k) = k 'counter Sheets("TXT").Range("M" & k) = m 'OMI item Sheets("TXT").Range("Q" & k) = Cells(i, j + 9) 'value Sheets("TXT").Range("S" & k) = omi_si 'OMI subitem If Len(Cells(1, j + 9)) = 4 Or j = nb_sbe + 1 Then Sheets("TXT").Range("T" & k) = Cells(1, j + 9) 'sbe Sheets("TXT").Range("U" & k) = " " 'ru If j = nb_sbe + 1 Then Sheets("TXT").Range("T" & k) = "COMP" Else Sheets("TXT").Range("T" & k) = " " 'sbe Sheets("TXT").Range("U" & k) = Cells(1, j + 9) 'ru If Cells(1, j + 9) = "NOTHIN" Then Sheets("TXT").Range("U" & k) = " " End If Sheets("TXT").Range("V" & k) = Range("G" & i) 'tp If Range("G" & i) * 1 = 0 Then Sheets("TXT").Range("V" & k) = " " 'check partner sbe and ru Sheets("TXT").Range("W" & k) = " " 'partner sbe Sheets("TXT").Range("X" & k) = " " 'partner ru Sheets("TXT").Range("Y" & k) = Range("H" & i) 'ctry If Range("H" & i) = 0 Then Sheets("TXT").Range("Y" & k) = " " Sheets("TXT").Range("Z" & k) = Range("I" & i) 'prod grp If Range("Z" & i) = 0 Then Sheets("TXT").Range("Z" & k) = " " End If i = i + 1 Loop End If Next Tag: Using arrows to select in drop down list in access
  - 8
    - Internet Explorer 7 jpeg and gif blurry after tools/internet options/advance/reset There are two solutions to this problem. 1. Adjust the DPI back to the standard settings. --> Right-click your desktop and go to Properties --> Click on the settings tab --> Click on advanced --> Change the DPI setting back to "Normal" 2. Edit the registry. --> Go to Start, Run --> Type regedit and click OK --> search for "UseHR" --> Adjust the value from 1 to 0 Depending upon whether or not you want to use the High Res DPI scaling or not do one of the two options. This link descibes it in a little more detail. Tag: Using arrows to select in drop down list in access
  - 9
    - Delete Unwanted rows based on value in cell thanks for help guys .. its working great now Tag: Using arrows to select in drop down list in access
  - 10
    - changing settings in adobe? Does anyone know how to change the adobe output folder using vba code I have the pdf created by code but just can't specify where to save it w/o the adobe prompt. Thanks, Tag: Using arrows to select in drop down list in access
  - 11
    - *** How can I add module code to a specific module? *** NEED HELP !!!! Hi, I am currently working on an Excel Workbook where I have added a brand new code module called "Calculations2007". This module (*.bas) file contains several new functions. I have been searching on the web on how to deploy this new module in my workbook to a group of production workbooks. Basically I need this new code to get to production. I have gotten to a point where I know how to write the functions out. But it always creates a module called "Module1" and with my functions in it. How do I tell it to create these new functions (or macros) to a module called "Calculations2007" By the way, I am doing this in VB.NET. Thanks for your help! -Sydney Tag: Using arrows to select in drop down list in access
  - 12
    - Determing close method with vba Glad you managed to resolve the problem. This version also added a check for the closure of Addin files, which will happen when the application is closed. Code Snippet Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean) Dim SecurityLevel() Dim CurFoot Dim Level As Integer Dim ws As Worksheet Dim fName If Wb.IsAddin Then Exit Sub Level = 0 SecurityLevel = Array("Secret", "Confidential", "Proprietary", "Public") CurFoot = Wb.Worksheets("Sheet1").PageSetup.LeftFooter If CurFoot = Application.UserName & ", " & Format(Date, "yyyy-mm-dd") & Chr(10) & "Security Class <" & SecurityLevel(1) & ">" Then Exit Sub If CurFoot = Application.UserName & ", " & Format(Date, "yyyy-mm-dd") & Chr(10) & "Security Class <" & SecurityLevel(2) & ">" Then Exit Sub If CurFoot = Application.UserName & ", " & Format(Date, "yyyy-mm-dd") & Chr(10) & "Security Class <" & SecurityLevel(3) & ">" Then Exit Sub If CurFoot = Application.UserName & ", " & Format(Date, "yyyy-mm-dd") & Chr(10) & "Security Class <" & SecurityLevel(4) & ">" Then Exit Sub Do Until Level = 1 Or Level = 2 Or Level = 3 Or Level = 4 Level = Application.InputBox("Do you want to AFR secure '" & Wb.Name & "' " & " 1 = Secret, 2 = Confidential, " & Chr(10) & "3 = Proprietary and 4 = Public.", "AFR", 2, Type:=1) If Level = 0 Then Exit Sub End If Loop Wb.Worksheets("Sheet1").PageSetup.LeftFooter = Application.UserName & ", " & Format(Date, "yyyy-mm-dd") & Chr(10) & "Security Class <" & SecurityLevel(Level) & ">" End Sub Tag: Using arrows to select in drop down list in access
  - 13
    - Using DCount function in a Report group footer LizF@RMIT wrote: Thanks but I still can't work this out. My statement now looks like this: =DCount([Task ID],[Tasks],"[Task ID] IN (SELECT DISTINCT [Task ID] FROM [Tasks]") I don't know if this is all of the problem or only part of it - your parentheses don't match (you have two opening and only one closing). ALSO doesn't DCount need ALL the parameters to be passed as strings You need quotes around the first two parameters. I suggest it needs to be something like this: =DCount( " [Task ID] " , " [Tasks] " ,"[Task ID] IN (SELECT DISTINCT [Task ID] FROM [Tasks] ) ") Note the extra closing parenthesis. Let us know if it still gives an error after changing that. Van is right about the square brackets - the best way to specifiy a field or table name is to enclose in in square brackets, not in quotes. Quotes will work most of the time, but are not the best way to do it. The problem you had with nesting the quotes is one reason to use brackets instead. The square brackets tell the system without any doubt that what's inside is a field or table name. The quotes will allow you to use a field name with a space in it, but they don't necessarily tell the system that it's a table or field. Say you had a field name that was Select. The only failsafe way to force it to recognise it as a field name and not as the start of a SELECT statement is to put it in brackets. Quotes won't be enough in these cases. When you get in to more convoluted sql queries (your SELECT..FROM is sql, whether you were aware of it or not), using the brackets can also make your code much more readable and easier to troubleshoot. Tag: Using arrows to select in drop down list in access
  - 14
    - Nothing has Changed Sorry to sound a bit Grumpy. I have not visited this forum for quite a few months now. Now that I have returned I thought I'd try and answer a few "unanswered posts". Guess what, they were "answered" and the original poster has not marked it as such. Please mark it such, it will help identify it as answered and it will also credit the person that has spent time to answer your question. Best regards Chas Tag: Using arrows to select in drop down list in access
  - 15
    - Win Xp Style buttons and scrollbars Hi I wanted to apply win xp styles to buttons and scrollbars in a Excel VBA. Can any one tell me how to do it Tag: Using arrows to select in drop down list in access
  - 16
    - Automatic Sending of WER data Hello everyone, I was wondering if there was a way to automatically configure Windows to send generic or specific WER data to MSFT From a bunch of testing and research I did today (more details below), along with this post - http://forums.microsoft.com/MSDN/ShowPost.aspx PostID=1925302&SiteID=1 , I am guessing the answer might be no, short of doing the following -Implementing own crash handler or calling WER API -Having reports go to Corporate Error Reporting (CER) or with Vista ( AEM (Agentless Event Management) part of 'Operation Manager 2007'). I understand the privacy issues with WER data, however, it doesn't make a lot of sense to me at the moment why you would restrict this, if in the end, it's a conscience decision made by the Administrator. As a vendor shipping both binaries on the client side (our software would be one of many) as well as server side (our software would be the only non MSFT software on the box), we would like to recommend settings such that it allows easy collection of our vendor WER data w/ little user intervention (again, conscience policy decision made by end-user). This is important as there are huge misunderstandings and mistrust of what sending data to Microsoft actually entails. A huge percentage of users, and especially numerous IT folks, hate the dialogue, think it's annoying, almost always hit no, and don't understand that sending non MSFT data can help their vendor fix issues. Googling always seems to bring up articles for disabling it, second only to Vista's UAC This a huge education issue that ultimately, I think MSFT is responsible for, as it's poorly explained, and it seems Winqual knowledge is not very common. To prove my point, just think of the extremely rare times that submitting a report as ever gotten you something useful, even for MSFT software! That is changing a little with Vista, but it's a long road ahead, and I think MSFT could educate developers, IT folk, and end-users. In looking at, researching, and testing the WER settings (registry and group policy) across XP, 2003, Vista, I could not get crash data to automatically be sent to Microsoft. This is despite the Group Policy saying the following: <Snippet from Group Policy Editor - Display Error Notification> When Display Error Notification is not enabled, the user will not be given the choice of whether to report the error. If the Configure Error Reporting setting is enabled, the error will be automatically reported, but the user will not be notified that an error has occurred. Disabling this setting is useful for server machines that do not have interactive users. </Snippet from Group Policy Editor - Display Error Notification> This seems to be exactly what I want, but in testing, I never saw the TCP packets being sent to MSFT automatically. This did seem to put files when 'Configure Error Reporting' was enabled along with a Corporate upload file patch (CER), which seems to unfortunately confirm the post above. I guess by "automatically reported", they mean an event log and drwtsn entry, not submitted to Winqual Also, in reading about Microsoft Error Reporting (.NET or Office), it seems there is a setting to do this. "Send all queued reports silently Located in the Queued Reporting folder. Enabling this policy sends all queued error reports without prompting the user. If you also set the Local error reporting file path policy, reports are sent to a local file server. This policy is equivalent to setting the DWAllQueuesHeadless value entry to 1 ." Overall, I am hoping for a mechanism to automatically submit reports to MSFT by having the Admin change settings to do so. Resources: XP WER Settings - http://technet.microsoft.com/en-us/library/bb490841.aspx 2003 WER Settings - http://www.microsoft.com/technet/prodtechnol/windowsserver2003/technologies/security/ws03mngd/23_s3wer.mspx Microsoft Error Reportig - http://msdn2.microsoft.com/en-us/library/bb219076.aspx#MicrosoftErrorReporting_UsingMicrosoftErrorReportingonWindowsVista Office 2003 Reporting - http://office.microsoft.com/en-us/ork2003/HA011402421033.aspx Thanks, Ivan Tag: Using arrows to select in drop down list in access
- Next
  - 1
    - How to create a .zip file with VBA in WindowsXP without any third party software? WindowsXP can open and create a zipped file. How to zip and unzip a file in VBA Thanks for ur help. Tag: Using arrows to select in drop down list in access
  - 2
    - Using FindWindow API to Get Focus and Send keys to a window I have put together some code in VBA to naviate to a webpage in IE, wait for it to load, find a hyptertext link on the page named "spreadsheet", click it, wait for the "download file" window to load and the go through the process of saving the file into a specific directory using send keys. The problem is, I am constantly losing focus on the windows. My code actually repeats itself 21 times for different webpages I am downloading this spreadsheet from. I need help finding the windows that I need to send keys to. Below is a sample piece of the code to navigate to one webpage: I have put notes to reflect where I am having issues. They are throughout this code and in red Function import_atl_aspec() '(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim o2 Set o2 = CreateObject("internetexplorer.application") o2.navigate " www.mywebpage.com ," 'IE navigates to a webpage mySleep 50 'wait 5 seconds SendKeys "~" 'Here a "connect to" window pop's up to login to the site, it asks for a user name and password, which is already saved on the machine I am using. This window randomly loses focus, especially if there is another instance of IE running in the background, because the previous instance wasn't shut down "properly" Is there a way to put the username and password into the code so that it can automatically login without it having to be saved onto a particular PC Also How can I find this window and get focus to it, so that I can log into it. o2.Visible = False 'hides IE While o2.busy: DoEvents: Wend Set o = o2.Document.All.tags("A") M = o.length: mySubmit = -1 For r = 0 To M - 1 If InStr(1, o.Item(r).innerhtml, "Spreadsheet", vbTextCompare) Then o.Item(r).focus o.Item(r).Click: Exit For End If Next mySleep 200 'wait 60 seconds SendKeys "%S" 'Hits the save button in the "FILE DOWNLOAD" window mySleep 50 'wait five seconds and starts typing in the path to save the file SendKeys "G:\subgroup\access data\lBX\Raw Data\Current Week\ASPEC\tbl_atl_aspec.csv" ' ' Types the path in the Save As Dialog Box mySleep 10 'waits 1 second SendKeys "%S" 'Hits the save button mySleep 20 'Waits 2 seconds and Msgbox appears: 'file exists - do you want to overwrite' SendKeys "%y" 'Sends an ALT-Y to say YES overwrite the file mySleep 200 ' Waits 10 Seconds SendKeys "~" 'Sends the enter key to close the "Download Complete" window o2.Quit mySleep 20 Set o2 = Nothing End Function Tag: Using arrows to select in drop down list in access
  - 3
    - this problem is also troubling me now!! :( Hi I have also tried setting site.AllowUnsafeUpdates = true It does not help too. Please direct me where i am missing. tia sahridhayan Tag: Using arrows to select in drop down list in access
  - 4
    - vlookup hello all, MYPath is a variable which contains the name of the excel file i want to open for vlookup. it is in a different folder and not in the one where the original excel is (the one i am writing macro in). can you now help me with why this error. namrata Tag: Using arrows to select in drop down list in access
  - 5
    - CreateWorkspace() call fails after installing Office(Excel) 2007 - using ODBC We have a VBA component that we've used for a long time. Our users have recently begun to report that the component no longer runs once they install Office 2007. We have always created an ODBC workspace as in the following: DIM workODBC As DAO.Workspace Set workODBC = CreateWorkspace("ODBCWorkspace", "Admin", "", dbUseODBC) This call no longer succeeds. To reproduce this, we set up a VISTA box, and installed Office 2007. I have ran ComponentChecker and had it "Perform analysis of your machine and automatically determine the release version". Strangely, it reports back: The following product releases were matched: UNKNOWN The file details show a number of UNKNOWN files: MSADCOR.DLL msado15.dll msadomd.dll ... ... ... Anyone seen this or have any ideas Thanks, HS Tag: Using arrows to select in drop down list in access
  - 6
    - Obtain Unique Work Units via SQL Just Add: GROUP BY WorkUnitsFaultsMainTBL.WorkUnit HAVING COUNT(WorkUnitsFaultsMainTBL.WorkUnit) = 1 Adamus Tag: Using arrows to select in drop down list in access
  - 7
    - Deleting Rows From a dataset I am trying to delete a range of rows from a dataset. The rows that I am trying to delete conatin account numbers with the first three characters = 231. My account numbers are in column b and l is defined as a row on the worksheet. The code I am trying to use is as follows: If Left(Range("b" & l), 3) = 231 Then Rows("l").Delete I do not know why it will not work and I am not getting an error message. Any suggestions Tag: Using arrows to select in drop down list in access
  - 8
    - Excel Combobox: Could not set the ControlSource property Hi everyone! Every time I try to set the ControlSource property I recieve "Could not set ControlSource property. Invalid property value". Code Snippet ComboBox1.ControlSource = "B1" What is wrong Maybe I've missed some necessary options Tag: Using arrows to select in drop down list in access
  - 9
    - Class / Object in Excel 2003 hi people, It's my first time here...and, i need help. How can i make objects (module class - with atributes and methods) in excel 2003 I don't find help about this. Thanks! Tag: Using arrows to select in drop down list in access
  - 10
    - iexplore.exe - Application Error Hi Bennett, How did you remove the yahoo tool bar I have the same error message. Thanks, Eric Tag: Using arrows to select in drop down list in access
  - 11
    - Does Winqual accept WER reports from Vista systems? Hi Claus, I appologize for my miscalculation. Some events were left over from mappings you had in the past but deleted. These do not appear on the site but appeared to me in the DB. I did discover a problem in our system that is preventing you from seeing 2 events (one has a Vista hit). As an event reoccurs over time these problems tend to resolve themselves. We will fix the cause of this problem in our next release. Your proper event count should be 11. As of today our site is current to 6/10/2007 so any events over the past 3 days have not yet shown up. If you like, I'd be happy to track specific event types for you and give you the status. It does seem, though, that for the most part you are seeing what information we have. Thanks, -Saar Picker Developer Portal - http://winqual.microsoft.com/ Tag: Using arrows to select in drop down list in access
  - 12
    - ListView in VBA Hallo I Just Have One Question in Regards to the Listview Control in VBA. I am trying to fill each column in my listview with data that is from a recordset. i.e rem lstviewItems in the listview control on the form Set list = Me.lstviewItems.Object With list .ListItems.Add , , rec("Desc") .ListItems.Add.SubItems(1) = rec("RetailCost") .ListItems.Add.SubItems(2) = txtQty.Value End With The recordset works and everything but the only issue is that when the subitems are being added to the listview each subitem goes into a new row. i.e Description Price Qty Shoe 19.99 3 Weird Tag: Using arrows to select in drop down list in access
  - 13
    - How to open "Properties" dialog box to "Custom" tab within macro? I'm writing a macro that will, as part of its operation, update all fields within the document. I need all my custom fields filled out prior to running this macro. I'd like to be able to prompt the user to fill out the properties by providing a button that will open directly to the Custom tab of the file properties dialog box. How do I go about programming this Thanks, Ryan Tag: Using arrows to select in drop down list in access
  - 14
    - Code to save Office 2007 Word or Powerpoint as Office 2003 How can I use vba to save Office 2007 Word or Powerpoint as Office 2003 counterparts Tag: Using arrows to select in drop down list in access
  - 15
    - Excel - VBA - Users having major problems Answers: Office 2003 ( I have SP3 - my test subject this evening has SP2) I do not sign my code. There are no references outside of the workbook at all. No-one is using a MAC But I think the problem lies deeper. I spent three hours today with a user testing the workbook. I started removing items and sheets groups at a time hoping we would find out what is causing the problem. Removing all of the code did nothing. We got down to all of the code removed, (command objects were still on the sheet), and only one sheet of the book left. The user after removing the last command button themselves, (that had no code attached) was able to save and re-open the file. I opened up a new workbook, added some command buttons, checkboxes and the identical code from the original workbook. I then emailed the sheet to the user, who saved the file to their machine. They were able to open and manipulate data on the sheet as well as access the commands, save and close the sheet and re-open it. I believe the original files may be corrupt If the problem was with the code, removing it should have made the user able to save and open the file, correct If that is the case, I may have to start over from scratch. I have over 200 hours on this particular workbook, is there no way to salvage it Tag: Using arrows to select in drop down list in access
  - 16
    - Cann't kill excel.exe with Access VBA coding Hi I use the below coding to quit Excel application 2003, but Excel.exe is remain in the Task Manager. Can anybody give me an idea. Thanks! objExcel.quit Set objExcel = nothing Tag: Using arrows to select in drop down list in access

RhysDavies

Hi - anyone know how to get a drop down list combo box to allow you to select an option using the up/down arrows on the keyboard in access rather than having to click on the down arrow on the combo box in access - user wants to do it by tabbing into boxes and using the arrows to select because its quicker.

thanks,

Rhys.

Top

Re: Using arrows to select in drop down list in access

Andy Pope

Hi,

To display the dropdown part use ALT+Down

Top

Re: Using arrows to select in drop down list in access

RhysDavies

Hi Andy, thanks that helps but i would like users to just be able to use the down arrow and not use alt just to make it easier to use and i know that is how they will want to do it (why are end users so fussy! ). I notice there is an 'on down' event - i assume that this could be used to achieve my aim - would you know what code to enter to enable my users to work in this way

Many thanks,

Rhys.

Top

Re: Using arrows to select in drop down list in access

Andy Pope

Fussy users, surely not.

Try this, dropdown appears on down arrow. Test also allows normal use of ALT+Down

Private Sub ComboBox1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown And Shift <> acAltMask Then
ComboBox1.Dropdown
End If
End Sub

Top

Re: Using arrows to select in drop down list in access

RhysDavies

Cheers andy - thats perfect!

Rhys.

Top