Recent content by luceze

Hi CC, If you enter the letter first, then click the dropdown, the validation list will scroll to the first entry that starts with that letter. HTH, Eric

Hello, Try this to disable keys: Sub DisableKeys() Application.OnKey "{PGDN}", "" Application.OnKey "{PGUP}", "" Application.OnKey "{UP}", "" Application.OnKey "{DOWN}", "" Application.OnKey "{LEFT}", "" Application.OnKey "{RIGHT}", "" End Sub To reenable: Sub...

I'm using 2003, but it should be the same. Right-click your diamond and select format autoshape. On the properties tab, make sure "Move and size with cells" is selected. HTH,

Hello, If you have XP or later this will work otherwise use the second one. Sub ListFiles() Dim Path As String Dim fName As String Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFolderPicker) With fd .AllowMultiSelect = False If...

Thanks PHV and Roy. Roy,you were right about it creaming your resources. But it worked! Thanks again, Eric

Is there a way to make a counter in a query so that each record is numbered sequentially? 1,2,3,etc. There is no need to store these values. It is used as a reference to export data to a comma-delimited file that I have to upload to another piece of software. Thanks, Eric

Hey Darryll, I am assuming that the macros that you are trying to delete always appear in the same order. In that case, if the the first 50 lines in the module "NewMacros" comprise the first two macros then this will delete the first fifty lines...

You can use this to delete the first 3 lines in the module "module1". Sub DeleteSub() Application.VBE.ActiveVBProject.VBComponents("Module1") _ .codemodule.DeleteLines 1, 3 End Sub The 1 corresponds to the line to start deleting and the 3 is the number of lines you wish to...

Hey Mike, Assuming that you are using the wizard, on the last step, click the save button and select the path where you want to save the .dqy file. I would use the absolute path (\\Servername\folder\etc...) in case the other workstations have different drive mapping. If you want to change...

Hey Brooks, It seems that you are trying to compare two different data types. Make sure that both of your values are formatted the same. In this case you would probably want both formatted as text. HTH, Eric

Going by your example you could try this: Range("e65536").End(xlUp).ClearContents Range("A65536").End(xlUp)(2) = 5 Range("B65536").End(xlUp)(2) = 10 Range("C65536").End(xlUp)(2) = 15 Range("D65536").End(xlUp)(2) = 20 Range("E" & Range("B65536").End(xlUp).Row + 3).Formula _ = "=SUM(A2:D" &...

Is it checked under Tools\References? That's the only reference that I need to make it work. Also using Access 2002 SP3 If so, I am not sure what the problem is. Eric

Try adding a reference to the Microsoft Office 10.0 object library. HTH, Eric

See if this will get you what you want. Dim fd As FileDialog Dim fName As String Set fd = Application.FileDialog(msoFileDialogOpen) With fd .InitialFileName = "C:\" .Filters.Add "MS Access Databases", "*.mdb", 1 .AllowMultiSelect = False If .Show = -1 Then...

Try this: SzTime.value = Format(Me.SzTimePicker, "HH:MM:SSAMPM") You can set another format if this is not the format that you would like. Alternatively, you could set the SzTime control's format to a variation of hh:mm:ss. It will store the date and the time but will only display the time...