vb5prgrmr

[QUOTE=koolsid;835174]No. You can only redim the last element of an array...[/QUOTE] Technically speaking... [quote=help] Similarly, when you use Preserve, you can change the size of the array only by changing the upper bound; changing the lower bound causes an error. [/quote] which means [code] Dim MyString() As String Redim MyString(0 …

Biometrics, covers a lot of territory from thumbprint scanners, hand scanners, facial recognition, iris recognition, retina recognition, voice recognition... Just what kind of biometric scanner are you talking about? Who makes it? Do they have a developers corner or some such on their website? Is their policy their program or …

I believe I responded to your PM with the answer. If so please post your final answer here and mark this thread as solved.

systemautorizin, Nice little program but the OP (tripes) asked how to break down a selected color into the rgb triplet values. What tripes did not tell us is how they are getting those value and off the top of my head I can think of a couple of ways. GetPixel …

Don't know if it will help... but do your object have a close method or other house keeping call you can make before you set them to nothing? Or if you are worried about your form staying up, just add a me.hide before you do your current code. Good Luck

use the LockWindowUpdate just prior to adding items to lock the control and then call it again after the loop to to reenable it Good Luck

what OS? What control?

waynespangler & KSS, Gentlemen/Ladies, Unfortunantly you are both wrong. The data control can connect to text files. MrMie, You need to set up your databasename to the folder that contains the text file (app.path). Then setup the recordsource to the name of the file (no extension as you are using …

name oldfile as newfile will do the same... Good Luck

[code] If toclear Like "1" Then [/code] what if there is more than one control without a caption... you should... [code] if toclear>0 then [/code] Good Luck

Refresh/Requery

Yes you can use threads in VB but it is not advised. Here is a link to a simple example of using threads in vb by strongm from the [url]http://www.tek-tips.com[/url] community. [url]http://www.tek-tips.com/viewthread.cfm?qid=519374[/url] Look for strongm's post/example that starts with the evil laugh. As for hkdani's posts, I would suggest that …

As a simple example... [code] Option Explicit Dim SelectedListBoxItem As Integer Private Sub Command1_Click() MsgBox List1.List(SelectedListBoxItem) End Sub Private Sub Form_Load() Dim ForLoopCounter As Integer For ForLoopCounter = 1 To 10 List1.AddItem CStr(ForLoopCounter) Next ForLoopCounter End Sub Private Sub List1_Click() SelectedListBoxItem = List1.ListIndex End Sub [/code] Now, the above example …

First off, modifying the setup package is a tricy thing to do. I hope you have backed those files up prior to attempting to make any changes. Now as for running two setup programs, you will need to search for Shell and Wait on the net to find code that …

[code] Dim C As Control For Each C In Me.Controls If C Is TextBox Then If Trim(C.Text) = "" Then C.SetFocus msgbox "message" Exit For ElseIf C Is ComboBox Then If Trim(C.Text) = "" Then C.SetFocus Exit For End If End If Next C [/code] Or... [code] If C Is …

First off, in the future it would be a good idea to also post the err.number and the err.description. Now, if your err.number is 5 and your description is Invalid proceedure call or arguement then... The intrinsic shell function built into vb is not used to open data files. It's …

You need to loop through your array... [code] Dim FoundPass As Boolean, FoundName As Boolean, ForLoopCounter As Integer, UpperBoundOfArray As Integer UpperBoundOfArray = UBound(ArrNames) For ForLoopCounter = 0 To UpperBoundOfArray If Trim(strUsername) = Trim(ArrNames(ForLoopCounter, 0)) Then FoundName = True If Trim(strPassWord) = Trim(ArrNames(ForLoopCounter, 1)) Then FoundPass = True Exit For …

Unlikely you will find such an animal, but you could check ebay or various search engines (yahoo, google) or perhaps your local used book store. Good Luck

see reply to you Q at [url]http://www.dreamincode.net/forums/showtopic94981.htm[/url]

Well, if it is being opened over a network it will take time. You will need to check your object to see if you were successful, or you could copy the file locally and then open the file, do your thing, and then copy it back. Good Luck

I would believe that anyone here would be willing to discuss VB. However, this is the VB "classic" forum for versions 4/5/6. If you have VB.NET version 2k2, 2k3, 2k5, or 2k8 you may want to ask your questions in the .NET forum. Good Luck

Well not sure how to do what you are wanting but the intrinsic date and time functions can change the systems date and time. Start a new project and add the code and run. [code] Option Explicit Private Sub Form_Load() Debug.Print Date Debug.Print Time Date = DateAdd("d", 1, Date) Time …

Set the computer up so its default printer is pointed to the printer you want. Good Luck

perhaps this web site might help you with your connection string [url]http://www.connectionstrings.com/[/url] if not, i am betting a google/yahoo search will return many vb examples Good Luck

[url]http://www.tek-tips.com[/url] [url]http://www.xtremevbtalk.com[/url] but when it comes to the busiest sites [url]http://www.vbforums.com[/url] [url]http://www.dreamincode.net[/url] Altho, the last one, and this just seems to me or is of my opinion that the mods look for posts without code and reply with a boilerplate, cut and paste statement asking for your code or portion …

To address controls in another form you need to add the form name... [code] Form1.Text1.Text [/code] Good Luck

ActiveX

If you want to use SQL "Server" as you back end for a VB6 "Client" then.... You need to install the server As for connection strings [url]http://www.connectionstrings.com/[/url] Good Luck

You will need to change the volume via the volume control through the system and you can do that via VB6 by starting off with the mixerSetControlDetails API. You can look this up in the VB help files and at the bottom of the page take a look at Audio …

Where or what is the problem? Your code looks like it should work even if I have a few sugestions, but what I have in the way of suggestions may not help you, so please describe what kind of problem you are having or where your error is occuring. Thanks

To help us help you... we need a little more information. Are you using ADO, DAO, or RDO?

There is another way depending upon what version of VB you have. Start new standard exe project Goto vb's ide menu Add-Ins > select add-in manager. Look for VB 6 Data Form Wizard, highlight > Look at frame in bottom right corner with caption Load Behavior > select Loaded/Unloaded so …

see this [url]http://www.vb6.us/tutorials/indepth-vb6-listbox-tutorial[/url] and check out the demos Good Luck

Do the reverse of what you are doing...

well left, top, right are functions and properties in vb and perhaps you should prefix them with My or MyFormsLeft etc. then in form load... me.visible=true, prior to your setting the cursor Good Luck

MDI... New Project > Menu Item Project > Add Form > MDI > Change Form1's Property MDI Child = True Menu Item Project > Properties > Start up Object > MDIForm1 > OK Double click MDIForm1 to get to its Form Load() Event Add [code] Load Form1 Form1.WindowState = vbMaximized …

If you are quering a text field then you need to encompass what you are quering against/for with single ticks [B][COLOR="Red"]'[/COLOR][/B] [code] squery = "Select * from tblStation where Station like [B][COLOR="Red"]'[/COLOR][/B]" & txtStation.Text & "[B][COLOR="Red"]'[/COLOR][/B]" [/code] if number then you don't need... [code] squery = "Select * from tblStation …

g_8306 @ vbforums? See replies there

[code] Option Explicit Dim NumberOfCanidates As Integer Dim CanidateNames() As String Dim CanidateVotes() As Integer Private Sub Command1_Click() If Trim(Text1.Text) <> vbNullString Then NumberOfCanidates = NumberOfCanidates + 1 ReDim Preserve CanidateNames(1 To NumberOfCanidates) As String ReDim Preserve CanidateVotes(1 To NumberOfCanidates) As Integer CanidateNames(NumberOfCanidates) = Text1.Text Combo1.AddItem Text1.Text End If End …

[code] sql = "select * from " & Combo2.Text [COLOR="Red"]& "'"[/COLOR] [/code] You don't need tick on the end. Good Luck

Unless I am misunderstanding you, all of your fields are in the details table, No need for a join. Good Luck

I'm thinking FORM and not forum and the OP is using Access 2k3 and the forms the Access environment provids. It also seems that the form they are using is not bound by query or control but beyond that I am clueless as all others...

Well, I can tell you why. You are going from the first character to the last character and not stopping on either yes or no, so what you are seeing as the loop ends, it the last test on the last letter. Look up InStr and the Do Loop structure. …

[code] Shell "rundll32.exe shell32.dll,Control_RunDLL" [/code]

[code] Option Explicit Private Sub Form_Load() Text1.Text = "This is a test. This is only a test." End Sub Private Sub Command1_Click() Randomize Dim ForLoopCounter As Integer, TextLength As Integer, TempInt As Integer TextLength = Len(Text1.Text) For ForLoopCounter = 1 To TextLength If Mid(Text1.Text, ForLoopCounter, 1) <> " " Then …

[QUOTE=VIPER5646;820006]I been searching for days for a sulotion but can't seem to find one. The coed that I have does not give me an error but it does not save anything on the table either ' Can someone help me find what I'm missing? this is my coed [CODE] Dim …

Private Sub cmdadd_Click() Adoaddlec.Recordset.AddNew optftime.Value = False optptime.Value = False optict.Value = False optassessmentprogramme.Value = False optdbt.Value = False opttvet.Value = False optcarrerdev.Value = False optictinstruc.Value = False opteventsmanagement.Value = False opteduandtranng.Value = False optcnstrudsitemanagement.Value = False cboparish.Text = "Select Parish" Adoaddlec.Recordset.update End Sub

[code] "ORDER BY MaterialRequisitionOrder.[COLOR="red"]serialno DESC[/COLOR];" [/code]

Well you are using a recordset object which is normally for retrieving records. Check either you connection object or you database object (if you have one) for the .execute method. i.e. [code] conn.execute sql3 [/code]

I could be wrong, but, I believe windows cycles through the zorder to shut programs down. A way to test this is to have several programs or your design running. Tile them in the order you want on the desktop and when they are told by windows to shut down …