Search:

Here is my full code:

Dim sConnect As String
Dim sSQL As String
Dim dfwConn As ADODB.Connection
Dim datPrimaryRs As New ADODB.Recordset

'set strings
sConnect...

Yea, I added that already. It worked ok with they way you first posted it, but only for a single match. It seems to be when more than one match is found it throws a fit.

I think the "Type Mismatch...

I changed the "=" to "In" and now I get an error saying "type mismatch in expression"

Huge step in the right direction... It works where only ONE dr has the insurance chosen from the list... but when more than 1 has it I get this error

Thanks, but I think im even more confused now than I was before...

Lets try this with the actual table & field names.

DrsInsuranceList - TABLE
-SpecID
-Insurance

When someone choose an...

Im trying to get data from 2 tables to be part of this lookup.

When you choose an insurance from a dbcombo box I want it to run an SQL statement that looks at table1 and finds ALL of the matches...

Ok... I semi-fixed it.

I added a

.Row = .MouseRow + 1

But I also had to add a "On error resume next" (Which im not happy about) because everytime I like past the last row in the grid it...

Ok, I have a txt box and when the textbox text changes its supposed to run an sql statement to fill the mshflexgrid. Which it does. BUT when you search more than once (without closing the frm in...

AWESOME! Thanks SO Much!

Im getting an argument not optional error on

Total = Total + Val(MSHFlexGrid2.TextMatrix)

Specifically on the .textmatrix

I dont know if it matters but im using a MSHFlexGrid and your...

Hey all.

I have an mshflexgrid with some numerical data in it, and Id like to do a command click to count the numbers in each column and total them at the bottom like this

1 | 2
3 | 3
2 | 1...

Thanks Static...

Anyone else willing to take a crack at it?

Ok I found this notification system I want to work into my app... Im looking at all the SDK info and im not having any luck.

It has a .bas file you add to your app which I did... and now im trying...

Im using the code below to populate an MSHFlexgrid, but when I go to click on a record in the mshflexgrid sometimes I need to click a line below the record I actually want to select...

ie.......

I figured it out, I accidently removed the "Exit Function" when I put my menu code in.

Thanks alot for the help.

AWESOME! Thanks so much.

Forgive me for being a bit confused...

but from the code you pasted how can I get a right click menu on the combo box?

Ok... 2 questions...

1) What needs to be in the vbmenu editor for this to work?

2) Im getting (;
t put in the text box when the form loads, and it didnt do that till I hooked the contol.

I have some code, that I found and it works fine with a text box but i cant figure out how to make it work with a combo box since a combo box does not have a mousedown function.

Anythoughts? or...

Something like this should do it...


Dim CDPath as String
Private Sub Form_Load()
Dim fso As New Scripting.FileSystemObject
Dim drv As Drive

For Each drv In fso.Drives
If...

Are you looking for bug reports?

I have an app that I created that creates a delimeted file from data in my db, and for reporting purposes the the extsions go as follows

.001
.002
.003 etc, etc

The app crates the files with...

1st post. Last attachment.

Wow... My code snippets got included in this release... I feel like such a contributor. ;)

The click start, Goto Run and type

Regsvr32 <YOUR DLL LOCATION>

like... Regsvr32 c:\program files\codebank\SSubTmr6.dll

Sounds AWESOME.

Id be more than happy to assist with the Ironing.

Right click on the file SSubTmr6.dll and click register, do the same with cPopMenu6.ocx and you will be good to go.

If you are in winXP you should be able to right click it and click "Register" from the top of the menu.

OK. Cool. I added that to the Read me in the zip.

Mind adding my .zip and a descrip to your post so it doesnt get lost in the shuffle? or A link to the particular post atleast...

Just wanted to offer up my Codebank 2.x.x Addon pack.

Its a small addon pack that will overwrite your current code.cdb file and restore the original while adding the below listed code snippets....

Excellent. Thanks very much. All code is reporting in for duty, safe and sound.

When I ran it through the IDE, i got a msgbox saying the file was not 16x16 howver when running the compiled exe and trying to use an img of 21x21 it simply closed. Never showing me the msgbox.

As...

The app seems to crash everytime I try to add an Icon for a group that was added before custom images was an available feature.

It closes the app if you Save or Cancel with a new image, and If you...

When trying to run the app I get this error:

"Run-time Error 429
ActiveX component can not create object"

EDIT: Nevermind. I just registered the components manually

Ok.. Im an idiot. I got it all worked out now.

Thanks RobDog.

I added a "If frmLocation.Text1.Text = "" Then GoTo NoLocation" line to bypass the SQL code if the info for the db location has...

The 1st time the app is run, the config screen should load an allow the user to choose the location of the DB, click the "Dont show form" check box. Then save the settings to the registry...

After...

Ok.. This seems to be the line causing the error: dfwConn.Open sconnect

The error message indicated line 127 as the problem

100 Check1.Value = GetSetting(App.Title, Me.Name, "LocationCheck",...

Ok.. I have run the Component Checker on my machine and 1 of the win2k machines.

Win2k Machine: 2.5sp3
WinXp Machine: 2.8sp1 on XP SP2

So how can I work around this?

Thanks for the Help RobDog. I'll look into that now.

Im also running windows updates on 1 of the 2 win2k machines to see if that makes any difference.

1. Thanks for the tip about adding other files to the P&D Wiz.

2. The app is basically a Supplies DB app for our office.

None of the controls are custom. They are all VB supplied. Labels,...