Recent content by christrawick

Joe - I appreciate your tremendous help with this app. It's obviously not meant to work, huh? -Chris

It's STILL hanging up on the dbs.Open just before the Do While!! AHHHHHHHHHHGGGGGGGGGGGGGGGG!!!!!!!!!!

Syntax error in "From clause" dbs.Open before the Loop. On the Do While, the Percent is being populated now with .5 (50%), so it seems that we have made progress..

Last post Joe, I swear. I'm about to throw this *($)# out the 2nd floor window. Here is the entire code, did I place it where you are telling me - ------------------------------------- Public mcnn As ADODB.Connection Private dbs As ADODB.Recordset Private Sub Command1_Click() Dim...

Made the change - Percent and Count still equalling 0. They should have subcontracted this project out!

Both are 0 still. ?

I'm selecting an EmployerName from the ComboBox and then typing 50 in the Text1 box (to represent 50%) I have 6 records in the Access db under that specific EmployerName, so it should return a random 3 records from within it.

Thanks Joe for my first debugging lesson! I did as you say, and both percent and count came back = 0

I haven't started the program, I'm in the code window in design view -

Joe, Cursor over Percent and Count yields nothing. Should it return a pop-up box with a value? Typing ? Percent (ENTER) and ? Counter (ENTER) in the Immed. Window yields nothing either.

When I place the cursor over Percent and/or Count, nothing happens. Is this the correct place? count = 0 Percent = (Text1.Text / 100) EmplName = Combo1.Text As for the Imm. Window, typing ? Count and/or ? Percent returns nothing. Am I all wet on this?

Joe, I'm obviously in this over my head- I am not at the point in my VB training that I know how in the heck to accomplish the debug process/run to cursor/etc. Could you possibly provide a bit more detail?

Joe, It's not going through the loop - I added the DoWhile and Loop, but to no avail. Thoughts?

A grid sounds like exactly what I am wanting. Joe, where do I locate the variable statements?

John, Here is the modified code - I've attempted to dump the results into a Textbox, but I'm not getting any output. Public mcnn As ADODB.Connection Private dbs As ADODB.Recordset Private Sub Command1_Click() Dim EmplName As String Dim Percent As Integer Dim count As Integer...