Posts by vb5prgrmr

SomeVariable = DTP.Month
SomeVariable = Month(DTP.Value)
SomeVariable = Format(DTP.Value, "m") 'or mm for 03

Good Luck

That len in the left should contain something different that the desitination in itself...

As for helping you through it, you are creating it at runtime, or it looks like it from your query form there and what you want... You just need to follow the help files in creating your report...

Good Luck

Should be if you pass the proper query to the report...

Good Luck

Use the tag property of the text box...

Good Luck

With better english.... To do what you want would require you to subclass the message box, which is no easy thing, and then you may not be able to accomplish what you want. So, your only choice is to create a form that you can use as a message box by showing it modal...

Good Luck

Time to use your friends (yahoo, google, ask, answers, bing) and search for vb6 word automation tutorial...

Good Luck

Hmmm... Well you might be able to get away with setting the listindex instead of the text...

Option Explicit

Private Sub Form_Load()
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.AddItem "C"
Combo1.AddItem "D"
Combo1.AddItem "E"
End Sub

Private Sub Command1_Click()
Dim I As Integer
For I = 0 To Combo1.ListCount - 1
  If Combo1.List(I) = "C" Then
    Combo1.ListIndex = I
    Exit For
  End If
Next I
End Sub

Good Luck

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

Good Luck

Do you have a table that lists the quantity? If so, you could create and use another table that holds notification info on when user should be notified when the stock is running low... Or for that matter you could append a field to the table... say iReOrdQty and use it to run a query against the iQty field...

strSQL = "SELECT * FROM tblStock WHERE iReOrdQty <= iQty"

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

What does an order by give you???

Well, since that is not working... Try...

strSQL = "SELECT TOP 1 * FROM tablename ORDER BY datefield DESC"

or ASC for first...

Good Luck

Well you could use the SUM(fieldname) in a query but it is hard to tell with what little information you have given...

Good Luck

What that error is telling you is that you do not have a control by that name. So, go to form design view and click on the option button that you think is of that name and see what its name is in properties...

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

see http://www.connectionstrings.com for the connection string you will need. See M$ for the oracle driver you will need if you don't have it, and see one of your friends (yahoo, google, ask, answers, bing) and use them to search vb6 ado tutorial...

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

Hmmm... I see what you mean... Is that field actually defined as a date field or a text field?

Good Luck

Use the mouse move event of both the form and control along with the MouseIcon and MousePointer properties of both to change and reset the mouse icon. You can also use the mouse move events to start and stop any animation or to control changes in the image displayed.

Good Luck

So I take it you are using some sort of VBA and NOT VB! Like Access, Excel, Word, or some other office product... And since you don't write code and neither does your IT department I would suggest that in the future that you go to http://www.rentacoder.com and place your project up for bid.

Now, as for your requirements. The PDFWriter is a print driver that you install in/on windows. The next step is to make that printer the default printer for the system. After that, there is an *.INI file that you can alter via code to tell the PDF driver where you want it to output its files. The code you need to look up in the help files is...

FreeFile Function
Open Statement
Line Input Function or Input Function 'for reading the file
Print Statement 'for writing the file back out
Close Statement

Now, once you read the file in, you will need to parse certain lines of it. To do this you will need to look these up in the help files...

Instr Function
Mid Function
Left Function
Right Function
Split Function
UCase Statement or LCase Statement
Option Compare Text

So then, once you have altered the ini file to the parameters that you want, you can then use the Printer.Print, Printer.NewPage, Printer.EndDoc in conjunction with your ADO recordset or if the information comes in some sort of report …

The Change event of the textbox, perhaps???

If you did an order by Date_Recieved, I'm betting that the 3rd record would be first and the second record would be last as that would be the order of the dates... Which means your functions are returning the correct value/records... Which means, if you want the last record, you should do your last on the auto number field...

Good Luck

or...

textunit.SelStart = Len(textunit.Text)

Good Luck

Here are some SQL terms for you to look up...

Group By Clause with a Having Clause
Order By Clause

Now, there are several ways to accomplish what you want to do...

You can group by on the company name with a count of company name having that count > 1 so you only pull those company's that have duplicates, or you can order by company name and run through the resulting rs comparing previous record to current record and if a duplicate is found, then do whatever...

Good Luck

drew and mudan...

It is not nice to necropost as you have!!! Raising the dead around here may get people miffed at you. If you are having the same problem as someone else or in this particular case as an old thread, please do not highjack the thread or resurrect from the dead. Create your own thread and if necessary, copy the other/older thread into yours...

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

Time to use your friends (yahoo, google, ask, answers, bing) and search for vb6 excel tutorial. You will also need to know the Dir Function...

And to do what you want to do is enumerate through folder making a list of the excel file names. Then you will have to open each file in turn and enumerate through the sheets collection retrieving the name of each sheet anc comparing it to what you have entered. If found, make visible = true and exit the search sub...

Good Luck

No, that would be form view...

Form? Datagrid view??? Datasheet View??? If you are in access, you cannot add a DTP to a table...(at least as far as I know but then again I don't do much VBA...). Me thinks we need more information...

Good Luck

If you are using ADO and a DNS Less connection string see http://www.connectionstrings.com for the proper format. If not, then we will need to have more details like the relavent code, the actual error number and description, and the line of code that is causing the error, along with what kind and version of database...

Good Luck

I think it is in your logic... less that equal to #" & DateFrom & "# AND less than equal to #" & DateTo & "#" (<=#" & DateFrom & "# AND... <=)

Should that not be >=#...AND...<=#

Good Luck

It's also possible that your license to whatever library you're using has expired, especially if you're trying to use Access and you only had a trial version of Office inst called.

Oh contraire Sendoshin...

The data access methods for communicating with access databases is seperate from MS office products. In fact, they are shipped with the OS and constantly have updates that are called MDAC (Microsoft Data Access Components) with some sort of version number tied into the file name for example http://support.microsoft.com/kb/219293 (however mdac 2.8 is not listed in this list and for some reason I cannot find the current list at the moment as M$ is running too slow for my tastes).

Now, as for the error poster/post #11 is recieving. Check your references. Do you have both ADO and DAO? If so, move the DAO reference up via the up arrow button so it is prior to the ADO reference. Or, does it say that the DAO reference is missing? Then you may need to download and install a MDAC version prior to 2.6, because DAO is no longer shipped as part of MDAC starting at 2.6. But before you do that, deselect the missing reference, hit ok, save entire project, go back to references, find correct reference, select, ok, run. Does it work now?

Now, if you are not missing a reference and do not have more than one data access method then you may have to declare it …

And if you are using access, instead of the single ticks (') you will need to use the pound (#) sign...

Good Luck

Okay, you almost have it. In Form2, Command1_Click, you have Form3.Combo?/Text?.Clear/"" and this is where you should be adding the information you want to carry over to Form3. You will also need to double click on the command2 button to create the sub for that functionality also...

Good Luck

Delete what? A file? Use Kill Statement. Delete a record? From what? A text file? Read it in, remove what you want, and write it back out. From a database? Use a delete statement (DELETE FROM tablename WHERE fieldname = somevalue). Don't know how to access data in a database? Well then time to use your friends (yahoo, google, ask, answers, bing) and search for vb6 ADO tutorial and/or see http://www.connectionstrings.com for a DSN Less connection strings

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

See http://www.vbforums.com/showthread.php?t=473677 for more sorting routines...

Good Luck

Well Ben, I have some advice for you...

1st, Don't necropost as you have because most everyone who has replied to this thread recieves an email. Instead, create your own thread and if necessary, copy the url of the old dead thread into your new thread posting.

2nd, Make sure you are posting in the right forum as VB.NET 2k8 is a whole different technology that VB6.0... (Which means you have posted in the wrong forum and need to post in the .NET forum in the future!!!)

3rd,

strSQL = "SELECT * FROM tablename WHERE fieldname = '" & Text1.Text & "'"

Good Luck

vishaldalya,

I'm holding off on reporting your post for one reason only, and that is because you are new to this forum, but as things go... We will not do your homework for you. You want it done for you, goto http://www.rentacoder.com or http://www.odesk.com and put your homework up for bid.

Now, with that said, let me ask. Have you even tried to code this yourself? If you have. What does your code look like? As we will be happy to help you with your code and any problems you are having with it, but like I wrote. We will not do your homework for you.

Hint: AddItem method and Click Event...

Good Luck

See my example, especially the form load code. You can reduce or even eliminate most of that code by setting up your form correctly. (Hint: See the set control.container = control for more...).

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

That would be borderstyle... and for your inquiry about my code... What you would do presently, is to copy (CTRL+X) all the controls from the form, add the picture box, and paste the control into the picture box (CTRL+V). Then you could resize the picture box as needed, but like I said earlier (or maybe thought???), K's solution would be easier and to use K's solution you would add a MDI parent form, make your present form mdichild=true in properties at design time, delete its caption, controlbox=false, and border style to none.

Good Luck

GoTo project>add form>login dialog. This will give you a framework for you to add your own code... see http://www.vb6.us/tutorials/database-access-ado-vb6-tutorial

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