Posts by vb5prgrmr

Okay, ...Text <> vbNullString Then ' as null<>nullstring, and... or .text <> "" then

Good Luck

If, those date fields are date fields and this is an access database you are trying to access, then the single ticks ( ' ) (plumbers crack) :) need to be replaced by the pound symbol (#)... (don't go there! :))

Good Luck

Not sure if you can do this anymore blocker, as M$ does not like you to do these things. But, I do know that there is code out there (that worked on older systems) that you can give a try. Now, I believe you know who your friends are by now but if not here is a reminder... (yahoo, google, ask, answers, bing) and use them to search for...

vb6 hide start bar
vb6 disable ctrl alt del
vb6 hooking start button

Good Luck

To "Exit Sub" so nothing else happens but before this you may want to "SetFocus"...

Use Exit Sub so the rest of the code does not execute after your message box and if you want use Text1.SetFocus to make it easy for your user to enter information...

Good Luck

A typical error handler goes something like this...

Private Sub Command1_Click(Index As Integer)

On Error GoTo Command1_ClickError

Exit Sub
Command1_ClickError:

End Sub

Now, looking at your code I can see you have the exit sub after the msgbox and not before the error handler label....

Good Luck

Try .Text...

Good Luck

That error is telling you that you missed a closing statement of some sort within the loop if not the closing statement of the loop itself and in this case you missed and End If to the last If bCheck = True Then statement...

Good Luck

The Change event of the textbox, perhaps???

or...

textunit.SelStart = Len(textunit.Text)

Good Luck

I'm glad you got it working. Now I have two request of you...

1. Please mark this thread as solved
2. and next time you have a question, please post it in the correct forum as this is not the VB.NET Forum that you need. This forum is pre .NET tech...

Good Luck

As a matter of fact I do have something that you could look at and come up with something that may work for you but that is not the point of these forums. The point is, is we would like to see an effort from you and what you have tried. Also, are radio buttons an array and how many and what is the purpose of testing to see if a selected date is a Sunday and why do you need to change the radio buttons value?

Hint: Look up the WeekDay Function...

Good Luck

'where Tution_Fee = tablename
strSQL = "UPDATE Tution_Fee SET (Amount_Paid = [Tution_Fee].[Amount_Paid]+" & (Val(Text1.Text) - Val(Text2.Text)) & " WHERE Tuition_Fee_ID_PK = " & Form2.Label16.Caption

Good Luck

However, the query unload event is fired before the unload and terminate events and this event will be able to tell you how and why your form is closing...

Good Luck

and perhaps Walt you should recognize that this thread is in the wrong forum and have moved it to the VB.NET forum...

Well,... You are going to have to map (no pun intended), the x/y cordinates of the form/image control/picture box to the cities displayed and if you have more than one map, your going to need more than one set of coordinates.

Now, I have a suggestion for you on your interface design. To let the user know that there is some information available when the mouse hovers over one of the cities, I would suggest you change it to the same icon as when you are hovering over a link in IE...

Good Luck

Have you seen this tutorial that you may answer your question??? http://www.vb6.us/tutorials/database-access-ado-vb6-tutorial

Good Luck

See... http://support.microsoft.com/kb/231847 and http://support.microsoft.com/kb/28150/EN-US/ although this is a bit out of date... and this is probably a bit too indepth on math functions for you but here it is anyways... http://support.microsoft.com/kb/196652

and it should be ByRef card() if you want to pass the contents of an array as you cannot pass an array byval. Or it should be ByVal card if you only want to pass one element of an array (Call MySub(MyArray(1)))...

Good Luck

And what does that proceedure look like? Also, the randomize statement should only be called once in the lifetime of a program, which means you should move it to your startup object, either sub main or form load.

Good Luck

See my other post over at vbforums...

Good Luck

Keep reading that tutorial and now that you know the keywords it should make it easy for you with your friends (yahoo, google, ask, answers, bing).

Good Luck

See third code segment in second post of this tutorial... http://www.vbforums.com/showthread.php?t=384076

Good Luck

If you click on the Go Advanced button you will come to a more advanced input box. On it there will be a (code) button. Click it and you will see that it creates this for you (without the spaces) ( code)( /code). Now, all you need to do is to paste your code between these two )( brackets and you will be fine... (on the other hand you can paste your code and then highlight it and then press the button)...

Good Luck

Is UAC enabled? Turn it off. Did you right click and run as admin? No, then do so. If still have problems then use Inno or windows installer 1.1 of which you can find a link to it at webarchive in my #6 post in this thread http://www.daniweb.com/forums/thread214396.html

Good Luck

While in the IDE, when that error comes up, press CTRL+Break. If you are in a error handler, type in resume next as the next line in the error handler (don't forget to remove it when your done debugging) and then press F8 twice. This should bring you to the line after the line that caused the error. So we will need to see at least this portion of code. Now, if you do not have an error handler, then it should end up highlighting the line that caused this error and once again, we will need to see this code as this error is so ambigious, it is hard to tell what caused this error.

Good Luck

It is so easy to create one yourself with a form, why are you looking for someone's elses code?

Good Luck

Okay, so you are saying that you went to access and created a query, saved it (from within access) and now in VB, it is not showing up. Have you tried closing VB and reopening the project? It just may be a quirk with VB...

Good Luck

Being that you can automate visio from visual basic, there should be no need to expose your code inside of a visio document... but with that said, you should have a look over at PSC (Planet-source-code.com) and give a search for the type of diagrams you want to create as several programs over there recreate some of visio's functionality...

Good Luck

If Rs.BOF = True And Rs.EOF = True Then
  'do something and exit sub
Else
  MsgBox "Exists!"
End If

Of course you are always going to get the msgbox that tells you your information exists. A recordset cannot be both BOF AND EOF at the same time even if there are no records...

You should do something like...

If Rs.RecordCount <> 0 And Rs.BOF = False And Rs.EOF = False Then
  'Record Exists
Else
  'No Record
End If

Good Luck

Download Inno and use it...

Good Luck

Windows Installer 1.1 is the same technology as the latest version and as such it is still viable and will work better than the PDW on Win7, it just does not have all the bells and whistles as the latest version. Also the latest version, as far as I know, does not know about VB6 and as such, you would need the SDK, which is in C++ and Windows Installer was made for visual studio as a replacement for the PDW...

Good Luck

Put the date in your calculations...

Good Luck

Try recording a macro and then looking at the code...

Good Luck

So then use the count code to see if it exists... If Rs.Fields("THECOUNT").Value = 0 Then it does not exists and so you can add it...

Good Luck

Close...

Dim MyString As String, MyStringArray() as String, ForLoopCounter As Integer
'...open rs etc..
Do While Not Rs.EOF
  MyString = MyString & ","
  Rs.MoveNext
Loop
MyStringArray = Split(MyString, ",")

For ForLoopCounter = 0 To UBound(MyStringArray)
  '....

Good Luck

Using the webbrowser control? Go over to vbforums to their vb6 codebank section and search for their webbrowser tutorial.

Good Luck

I'm thinking you might be in the wrong forum... because if you are wanting to do this from your site, i.e. clicking a button/link in IE that is from your site and logging into yahoo, then you need a forum for web sites. PHP, ASP.NET or classic asp.... whatever you have done your site with....

Good Luck

There is example code on this site, on the web, in the help files for VB. You just need to put a little effort forward to find them... BY SEARCHING!!!

Then if you have any problems with your code, post it and tell us what line you are getting your error on, its number, and its description...

Good Luck

sidnei, good post but if you reread jemz post you will see that they are entering H-1010 for the primary key, meaning that the primary key is a text field. So jemz I would suggest that you use sidnei's 1st suggestion...

strSQL = "SELECT COUNT(fieldname) AS THECOUNT FROM tablename WHERE fieldname = 'H-1010'" 'or conversly you could do...
'strSQL = SELECT * FROM tablename WHERE fieldname = 'H-1010'"
'set Rs = ...
If Rs.Fields("THECOUNT") = 0 Then
  strSQL = "INSERT INTO tablename(fieldname1, fieldname2, fieldname3) VALUES('H-1010', someothernumericvalue, 'someothertextvalue')"
  Cn.Execute strSQL
Else
  MsgBox "Key Exists! Please enter another primary key", vbOkayOnly, "Primary Key Exists!"
End If

Good Luck

So what is your problem? Are you trying to figure out how to replace those values? Open the file for Output...

See in VB's help...
FreeFile Function
Open Statement
Line Input or Input Function 'for reading
Print Statement 'for writing
Close Statement

Good Luck

Time to use your friends (yahoo, google, ask, answers, bing) to search for vb6 rs232...

Good Luck

Well you have to know that there is a difference between printing a form and printing the contents of the form...

Look at Printer.Print "my string" along with currentx/y properties for printing information...

Good Luck

The PDW is a bit outdated, but with that said, if you run it as admin and still recieve this error message, it should be no problem. However, if you do have problems with your program you might want to download Windows Installer 1.1 or inno. Windows Installer is the upgrade for the PDW (kind of it is actually the replacement for it).

Good Luck

Well since you are using an illegal copy of VB you can use the MSDN at MS for a lot of your look ups on builtin functions...

As for doing it without using screenshots...

Wow! Just found this... http://www.newfreeware.com/development/257/
when I was looking for this... http://support.microsoft.com/kb/193379

Good Luck

Hmmm... Three child forms... Well, you are either going to need to capture a screenshot of each and assemble a bitmap from them and then print that out, or use a report of some kind. Either a data report or crystal reports should do the trick for you if you go that route. Now, if you have VB6.0 pro or enterprise, you should find a directory called crystal on your install disks. This is crystal reports 4.5 or 4.6. and is fairly easy to use...

Good Luck

Glad you were able to solve it yourself, but why did you not post your solution so others could learn from it or why have you not marked your thread as solved?

Good Luck

Simple as it should have a driver that shows up in the printers list...

Printer.Print "This is my string"
Printer.EndDoc

Good Luck

Do you know how to use ADO? Search with your friends (yahoo, google, ask, answers, bing) for vb6 ado tutorial. See http://www.connectionstrings.com. Use the Data Form Wizard under Add-Ins>Add-In Manager.

Good Luck

Is there not a RTB.SaveAs or SaveFile or Save property? And if so, why have you not pressed F1 to read all about it? :)

Good Luck

Not likely nor is nextag.com and your search string for both would be Visual Studio 6.0 Enterprise...

Good Luck

The runtimes for VB6.0 are the supporting files for when you install programs. It is NOT the design environment and for the most part, all MS's OS's already come with a version of that installable...

Good Luck