Recent content by heprox

I've always used the Textmatrix method for populating the flexgrid, so I'm completely lost on the Add.Item method? I've got the function working, the only problem is that whenever I click the toolbar button and the flexgrid populates the records skip every other row? I want the rows to...

I changed it back to: If .Row Mod 2 = 0 Then For j = 0 To .Cols - 1 .Col = j .CellBackColor = &HC0FFFF Next j End If ...and now when the I call the toolbar button it only populates the first row of the flexgrid. I also fixed the...

With your code the function is much simpler, thanks. I keep running into an error though: "Variable required, can't assign to this expression" and it stops at: If .Row Mod 2 = 0 Then For .Col = 0 To .Cols - 1 .CellBackColor = &HC0FFFF Next End If ...it...

Ok, got it working, thanks everyone, now I can get started simplifying the function altogether, anyone got any ideas?

Ok I moved all of my variables to ths start of the function, and I'm trying to use the key value of the button to decide case however I still cant get this thing to work, I've only used a toolbar in one other project, so this is relatively new for me: Private Sub Toolbar1_ButtonClick(ByVal...

Each case has its own strsql variable, defined at the beginning: strsql_size strsql_store strsql_sku ?

I'm not familiar with "Button.Key", you have an example?

I have a toolbar on an application that I use to refresh a flexgrid with different recordsets. Whenever I choose a different button on the toolbar its suppossed to change the columns and records in the flexgrid, however it always just stays the same, what am I missing? Private Sub...

Thanks, that was exactly the problem, I was unsure if VB would take an alias like that.

I have this application that uses ODBC to retrieve a recordset from an Oracle database. Whenever I fire the Enter command I get an error with: txtSOH.Text = rsmain_4("sum(avail_qty)") ...if I'm using a sum statement via SQL, what is the correct syntax for referencing that part of the...

Oh I remembered after all... MsgBox "DSN name cannot be Empty", vbInformation, "Error..." ...I'm definately getting dumber with age.

Stupid question, but I'm drawing a blank, how do you change a message box's caption? If txtDSN.Text = "" Then MsgBox "DSN name cannot be Empty", vbInformation txtDSN.SetFocus Exit Sub End If

Well I had to back track, Animation Control for some reason was not working correctly at all so I started messing with Events: Private WithEvents rsmain As Recordset Private Sub rsmain_FetchProgress(ByVal Progress As Long, ByVal MaxProgress As Long, _ adStatus As ADODB.EventStatusEnum, ByVal...

OK I got it working with the Animation control playing an AVI file when the form loads, however the form just goes blank when the query starts and doen't come back until the query is over? I thought Windows Animation Control handled things in their own thread?

Good idea, I think I might use that on another project but it wouldn't look right on this one. What I need to work out is how to get the animation to play in a loop when the new form loads?