Recent content by Fr33dan

Have you tried using the LostFocus event to clear the selection? It's not optimal but it should get the job done: this.clientComboBox.LostFocus += new EventHandler(clientComboBox_LostFocus); ... void clientComboBox_LostFocus(object sender, EventArgs e) { this.clientComboBox.Select(0, 0); }

Well After reading your post I thought "Thats so simple it just might be the problem". The name of the field in the table is Auto Number not AutoNumber. Thank you very much for helping fix my own stupidity.

Hi. I've been working on a database for awhile now and I have a button on a form that is supposed to apply a filter based on criteria from the user. However when I actually go to apply the filter in the code I get an message asking to input the value for the filter even though I stated it in the...

I've had issues where I used a breakpoint, closed the file without removing it and when I reopened the file it was still there but invisible. Try setting a breakpoint and removing it.

Me.cmbtradeid.Value is returning a string so vlookup is looking for a string. you'll have to convert the string to an actual number as you get it: tradeid = Clng(Me.cmbtradeid.Value)

Try replacing Application.WorksheetFunction.VLookup with Application.VLookup

Where are you trying to set the return of the lookup to the value of ComboBox? What is the name of the ComboBox?

I'm trying to write code that will copy all the files and folders from a CD to a folder on my hard drive with the same name as the CD volume label. Then it will alert me to insert the next disk and copy those files. I get an "Invalid procedure call or argument" error on fso.CopyFolder line...

Private Sub Worksheet_Change(ByVal Target As Excel.Range) ' Call or Write Method here End Sub This will run whenever a worksheet changes but I'm not sure if there is a sub that covers the entire workbook.

Try this approach: Private Sub All_Click() Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "CheckBox" Then ctl.Value = All.Value End If Next ctl End Sub

Andy's got how to loop through them (I didn't know how). Just put that in the _Clicked sub: Private Sub All_Click() Dim ctl As Control For Each ctl In Me.Controls If TypeOf ctl Is CheckBox Then ctl.Value = All.Value End If Next ctl End Sub of course...

or you could add code to the _Click sub of the checkbox: Private Sub CheckBox1_Click() CheckBox2.Value = CheckBox1.Value CheckBox3.Value = CheckBox1.Value etc... End Sub

Well if they're the only shapes objects on the sheet then you could use a nested loop to copy each object individually on each sheet: Sub CopyAllShapes() Application.ScreenUpdating = False Set xlShapes = Sheets(ActiveSheet.Index).Shapes For i = 2 To Sheets.Count For j = 1 To...

You'd have to re-update the names to the local versions of themselves like combo said in the first response. I don't know them so I just used the names that were originally there.

You could eliminate the selecting and just use ActiveSheet.Shapes.Range(Array("Line 1","Picture2")).Copy Sheets("Sheet3").Cells.Paste Also try setting Application.ScreenUpdating to false at the beginning of your code. That makes the code run alot quicker.