Why 'Invalid Qualifier' ?

Invalid Qualifier
Can anyone tell me why i get an invalid qualifier using the code below to try and export the contents of my textbox to a text file please

cheers

gibbo


Code:
Dim strExport As String
strExport = Me.txtMulti1.Text
CommonDialog1.Filter = "my Files(*.gbo)|*.gbo|Text Files(*.txt)|*.txt"
CommonDialog1.FileName = Me.txtTitle.Text
CommonDialog1.ShowSave
If Me.txtMulti1.Text = "" Then Exit Sub
If CommonDialog1.FileName = "" Then Exit Sub
strExport.SaveFile CommonDialog1.FileName, 1

---

Invalid Qualifier
Hey there,
I'm making a very basic chat program. So far I have the design and the connecting sorted. Well, the connecting is a bit of a problem actually, which is why I'm here :P.
I have the following code:

Code:
Public Type Clients
Nick As String
Status As String
NetStat As String
IP As String
End Type

Public Clients(1 To 500) As String

Public Function FreeClient()
Dim Found As Boolean
Dim FNum As Integer

For X = 1 To UBound(Clients())
If Found = False Then
If Clients(X).Nick = "" Then
FNum = X
Found = True
End If
End If
Next

If Found = True Then
FreeClient = FNum
Else
FreeClient = ""
End If

End Function
On the line 'If Clients(X).Nick = "" Then' it highlights 'Clients(X)' and displays 'invalid qualifier'. Any ideas why this happens?

Thanks

---

Invalid Qualifier
Yo! 'Ello everyone, got a quick question for yuns.

I was reading somewhere on the forum about transparent text boxes and someone mentioned the idea of just taking a label , set its back style to transparent, then change it's mouse to I-Beam, and then on the click event or something have it to setfocus to a textbox hidden off somewhere on the form, then on the textbox's change event have it set the caption of the label equal to the textbox.text.

Now i'm using a label (name) and a textbox (txtname).


Code:
Private Sub name_Click()
txtname.SetFocus
End Sub

Private Sub txtname_Change()
name.Caption = txtname.Text
End Sub

I get a Invalid Qualifier error on the "name.caption = txtname.text" on the "name".

Any ideas on what i'm doing wrong here? And can anyone give me some insight onto what Invalid Qualifier means here?

Thanks a bunch.

--Val

---

Another Invalid Qualifier
Sorry peeps, but keep getting a IQ error flagged up here...(the blue section)

VB Code:
Private Function TwoMetre()Dim Index7 As Integer       Line1.Y2 = 2115      Line2.Y2 = 2115      Line3.Y1 = 2115      Line3.Y2 = 2115      Label8.Top = 2015      Label8.Caption = "2.0 mtrs"      Line7.Y1 = 2115      Line7.Y2 = 2115            For Index7 = 20 To 39      Picture3 [[color=RoyalBlue]Index7[/color]].Visible = True      Next      For Index7 = 40 To 43      Picture3 [Index7].Visible = False      NextEnd Function


This function is called after a 'Select Case' and worked fine until I decided to turn the individual pictureboxes into an array and change them with the 'For' loop.
I was just trying to be tidier.

Your thoughts are invited

---

Invalid Qualifier
There is probably a simply explanation but I'm missing it.

In a module I declare:


VB Code:
Public Type POINTAPI      x As Long      y As Long   End Type  Public mPoints(3) As POINTAPI


I can use mPoints in a Form without any problem (e.g mPoints(0).x = 10)
yet its usage in a Module fails with Invalid Qualifier.

Thanks

David

---

Invalid Qualifier[done]
i get a "invalid qualifier" error when i run my program
here is the Sub where i get the error,, im 100% sure that count.text
exists
the error is on the line with county = count.text


VB Code:
Private Sub Timer1_Timer() leng = stupid.Captioncounty = count.TextIf Len(leng) < 40 ThenIf (current * 40) county > Len(leng) Thenstupid.Caption = stupid.Caption & "|"End IfEnd IfEnd Sub

---

Invalid Qualifier Is Getting To Me....
Here is the code for the module for my project (log editor).
I keep getting Invalid Qualifier errors when I try to put values into my array. Please help! lol Thanks

-Pat-

Dim FSys As New FileSystemObject
Dim TMain As TextStream
Dim TSupport As TextStream
Dim LItem As ListItems

Public Type IRec
Index As Long
Edited As Boolean
TheDate As String
TheTime As String
Data As String
End Type

Public DataArray() As IRec
Public NumLines As Long

Dim SingleLine As String
Dim Comma(1 To 4) As Long
Dim FirstCharInLine As Long
Dim DataLength As Long
Dim X As Long

Dim IndexRecord As String
Dim EditedRec As String
Dim DateRecord As String
Dim TimeRecord As String
Dim DataRecord As String

Dim EditedRecord As Boolean

Public Sub NumOfLines()
Set TSupport = FSys.OpenTextFile(frmPref.txtFilePath.Text)

While TSupport.AtEndOfStream = False
TSupport.SkipLine
Wend
NumLines = TSupport.Line
End Sub

Public Sub ParseLog()
ReDim DataArray(1 To NumLines)
FirstCharInLine = 1
X = 1

Set TMain = FSys.OpenTextFile(frmPref.txtFilePath.Text)

'sets up a loop to process each line
While TMain.AtEndOfStream = False
SingleLine = TMain.ReadLine

'sets up a loop to find all 4 comma delims
For i = 1 To 4
Comma(i) = InStr(FirstCharInLine, SingleLine, ",")
FirstCharInLine = FirstCharInLine + 1
Next i

'I'm going to process each record with it's own code
'Extracting each record from the string so I can do my work
IndexRecord = Mid(SingleLine, 1, Comma(1) - 1)
EditedRec = Mid(SingleLine, Comma(1) + 1, Comma(2) - 1)
DateRecord = Mid(SingleLine, Comma(2) + 1, Comma(3) - 1)
TimeRecord = Mid(SingleLine, Comma(3) + 1, Comma(4) - 1)
DataRecord = Mid(SingleLine, Comma(4) + 1)

'...on the Index value...No need?
'IndexRecord = CLng(IndexRecord)

'...on the Edited value
If EditedRec = "Yes" Then
EditedRecord = True
ElseIf EditedRec = "No" Then
EditedRecord = False
End If

'...on the Date value...No need?
'DateRecord = CDate(DateRecord)

'...on the Time value...No need?
'TimeRecord = CDate(TimeRecord)

'...on the Data value
DataLength = Len(DataRecord)
DataRecord = Mid(DataRecord, 2, DataLength - 1)

'Inputing these into the array
DataArray.Index(X) = IndexRecord 'err...
DataArray.Edited(X) = EditedRecord 'err...
DataArray.TheDate(X) = DateRecord 'err...
DataArray.TheTime(X) = TimeRecord 'err...
DataArray.Data(X) = DataRecord 'err...

'set it up for the next loop cycle
X = X + 1
Wend

End Sub

---

New At VB: Invalid Qualifier
I was making a few simple codes to make data entry in one of my databases easier, but I ran into a pesky error that I can't figure out.


Code:

Private Sub Rules_Text_LostFocus()
CardName.SetFocus
If (CardName.Text <> "") Then
Rules_Text.SetFocus
Rules_Text.Text = Replace(Rules_Text.Text, "~", CardName.Text)
End If
Flavor_Text.SetFocus
End Sub



This is on a code for a form in MS Access; the error is caused by the reference to controls other than Rules_Text. It says that to reference a property or method of a control, that control must have the focus.

Until now I've been working around this by setting and resetting focus (though it's annoying), but here, I'd have to set it halfway through a statement to do that.

Can someone give me a fix, or at least an explanation for why it's doing this?

---

Invalid Qualifier
When I run this program I get an "invalid qualifier" error.

Private Sub Calculate_Click()
r = Val(Radius.Text)
h = Val(Height.Text)
Pi = 22 / 7
v = Pi * (r ^ 2) * h
Volume.Text = Str$(v)

End Sub
It keeps highlighting the 'height' bit, but everything seems to be referenced correctly.
Any ideas why?

---

Invalid Qualifier
hi

  in my program when i say
    if err.numer=2 then
        --do--
    endif
i am getting error as Invalid Qualifier. what will the wrong with this.
in this i want to handle the errors for that i want to use the Err object. i have set the option explicit.
then its saying that Invalid Qualifier.
i have written this in the error handler.

plz help me.


thanks
---------------------------------------------
Srinivas.

---

Invalid Qualifier
I am getting an Invalid Qualifier in the SaveData portion of code where I set the RN = Radnum I get the error and I cannot figure out why?

Code:
Private Sub Radnum_Initialize()
    Radnum.Clear
    Radnum.AddItem "1"
    Radnum.AddItem "2"
    Radnum.AddItem "3"
    Radnum.AddItem "4"
    Radnum.AddItem "5"
End Sub
Private Sub SaveData_Click()
' Save file in form of PCMonkey_RadNum_mmddyy on Local Drive in cPCMonkeyDataStationIDRadioType folder
' Save file in form of PCMonkey_RadNum_mmddyy on \PGMR Local SITG network drive in CPCMonkeyDataStationIDRadioType folder
    Dim FileName As String
    Dim sFileName As String
    Dim StationID As String
    Dim Radnum As String
    RN = Radnum.Value
    StationID = Station.Value
    FileName = "PCMonkey_"
    sFileName = FileName & "_" & RadioNumber & "_" & Format(Now, "mmddyy") & ".xls"
    'SaveAs FileName:="\PgmrcPCMonkeyDataStation" & StationID & "5100" & sFileName
    'SaveAs FileName:="C:PCMonkeyDataStation" & StationID & "5100" & sFileName
End Sub


Any help??

Thanks,
D

If I'm not back in five minutes... ...Just wait longer!!!!
   -Ace Ventura

Edited by - dartran on 10/1/2003 2:14:07 PM

---

VBA Invalid Qualifier On Strings
I'm working on a simple Macro for Excel, but I'm new to Visual Basic and I'm encountering some errors when working with strings. Here's an example of the error I keep running into:

Sub test()

Dim s1 As String
Dim s2 As String
s1 = "which case"
s2 = s1.ToUpper

End Sub

When I try to run this, I keep getting the error "Invalid Qualifier" highlighting s1.ToUpper

Thanks for any help!

---

Invalid Qualifier Error
Good day,

I have a string and would like to build a user defined array to populate the values in it, unfortunately I’m getting the error ‘invalid qualifier’. Can somebody please help. Thank you

Code:
Dim marrRegStatus() As String
Dim udtRegStatus() As TRegStatus

Private Type TRegStatus
StrCode As String
strRegStatus As String
End Type

ListData = “1, Accepted; 2, Rejected; 3, No decision”

searchChar = ","

marrRegStatus = Split(ListData, ";") 'split the data into array and later used for ‘populating the code and status


For i = 1 To UBound(marrRegStatus)
‘ ReDim Preserve udtRegStatus(i)
lngCommaPos = InStr(1, marrRegStatus(i), searchChar)
lngEndCommaPos = lngCommaPos - 1
udtRegStatus.StrCode(i) = Mid(marrRegStatus(i), 1, _ lngEndCommaPos) ‘I get error here udtRegStatus is highlighted
udtRegStatus.strRegStatus(i) = Mid(marrRegStatus(i), lngEndCommaPos + 1)
cboRegStatus.AddItem udtRegStatus.strRegStatus(i)

Next

---

Invalid Qualifier Error
Hi to all,

is there a way to use a string variable containing the name of the image object in my form and set its property programmatically?

ex: "image1" --> name of string that has been filtered out from the text file and assign it to a variable X.

code:

X.Picture ="C:arrow.ico"

From here , i got an error message "invalid qualifier"

---

Invalid Qualifier?!?!?! (RESOLVED)
what does that mean?
i put some variables down

VB Code:
Static itempic As StringStatic itemname As StringStatic itemfunc As StringStatic itemdes As String

and then later tried to edit them with code:

VB Code:
itempic.Caption = "Dagger"        itemname.Caption = "Dagger"        itemfunc.Caption = "for use in battle"        itemdes.Caption = "an old and rusty dagger. any class can use this weapon. increases Strenght + 2"

but when i try run the program it says error, invalid qualifier over the lines where i tried to edit the variables. so how do i edit them? and be able to get their values later on a different form to put into a label?

---

Invalid Qualifier Error
Good day,

I have a string and would like to build a user defined array to populate the values in it, unfortunately I’m getting the error ‘invalid qualifier’. Can somebody please help. Thank you

Dim marrRegStatus() As String
Dim udtRegStatus() As TRegStatus

Private Type TRegStatus
    StrCode As String
    strRegStatus As String
End Type

ListData = “1, Accepted; 2, Rejected; 3, No decision”
 
searchChar = ","
   
marrRegStatus = Split(ListData, ";") 'split the data into array and later used for ‘populating the code and status
    
    
For i = 1 To UBound(marrRegStatus)
   ‘ ReDim Preserve udtRegStatus(i)
        lngCommaPos = InStr(1, marrRegStatus(i), searchChar)
        lngEndCommaPos = lngCommaPos - 1
        udtRegStatus.StrCode(i) = Mid(marrRegStatus(i), 1, _ lngEndCommaPos) ‘I get error here udtRegStatus is highlighted
        udtRegStatus.strRegStatus(i) = Mid(marrRegStatus(i), lngEndCommaPos + 1)
        cboRegStatus.AddItem udtRegStatus.strRegStatus(i)
        
Next

---

WebBrowser - Invalid Qualifier Problem.
Hi, the first vbcode is what was done automatically when the browser was built. I then wanted to do a mousemove and change (code for both is the same, just in a different event) for displaying some text in a status bar but I am getting an Invalid Qualifier error on the part that is highlighted in red and bolded. Please advise.


VB Code:
Private Sub tbToolBar_ButtonClick(ByVal Button As Button)    On Error Resume Next          timTimer.Enabled = True          Select Case Button.Key        Case "Back"            brwWebBrowser.GoBack        Case "Forward"            brwWebBrowser.GoForward        Case "Refresh"            brwWebBrowser.Refresh        Case "Home"            brwWebBrowser.GoHome        Case "Search"            brwWebBrowser.GoSearch        Case "Stop"            timTimer.Enabled = False            brwWebBrowser.Stop            Me.Caption = brwWebBrowser.LocationName    End SelectEnd Sub



VB Code:
Private Sub tbToolBar_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)    On Error Resume Next          Select Case [b][color=red]Button[/color][/b][color=red][/color].Key        Case "Back"            BrowserStatusBar.Text = "Go back a page."        Case "Forward"            BrowserStatusBar.Text = "Go forward a page."        Case "Refresh"            BrowserStatusBar.Text = "Refresh page."        Case "Home"            BrowserStatusBar.Text = "Go to default Web site."        Case "Search"            BrowserStatusBar.Text = "Search Internet."        Case "Stop"            BrowserStatusBar.Text = "Stop Web site."    End SelectEnd Sub

---

Invalid Qualifier When Using String.remove()
my string (myStr) is read from a txt file into vb application like this...

'9999', '909',     2051, 'A', 1, 12345
'9999', '909',     2052, 'B', 1, 12346
...

i have 4000 of these records which im placing into a table.

problem is that the last column of the table is a number(4) hence 12345 wont fit.

so i've decided to chop off the last char with ...
newStr = Left(myStr, Len(myStr) - 1). and this works.
but my table now has 9 1234's

so ive decided to chop off the leading 1, (Len(myStr) - 5) that way ill have 4000 unique numbers.
eg
2345
2346
2347


Problem:
when i use the vb remove function from msdn help.
myStr2 = myStr.Remove(Len(myStr) - 5, 1)

i get an error 'invalid qualifier' on myStr

Is this a syntax err or is the vb string.remove()not avaliable?

---

'Overflow' And 'Invalid Qualifier' Problems
Hi there

on my display form i get an overflow problem when i run the program?

on my display form i get an invalid qualifier message when i run the program.

the rest of the code appears to be in a bit of a mess also.

Anybody got any ideas?

---

Compile Error: Invalid Qualifier
Hi, I am having problems with this function...

Code:
' ## Global Variables ######################################
Dim cell_count As Integer

Dim timber As Currency
Dim plumbing As Currency
Dim building As Currency
Dim other As Currency
' ##########################################################

' ## Checks through table and adds totals up ###############
Function CheckCells(sheet_index As String)

timber = 0
plumbing = 0
building = 0
other = 0

cell_count = 2

Do
    cell_count = cell_count + 1
    If sheet_index.Range("D" & cell_count) <> "" Then
        Select Case sheet_index.Range("C" & cell_count)
            Case "Timber"
                timber = timber + sheet_index.Range("D" & cell_count)
            Case "Plumbing"
                plumbing = plumbing + sheet_index.Range("D" & cell_count)
            Case "Building"
                building = building + sheet_index.Range("D" & cell_count)
            Case Else
                Dim message As String
                Dim vbMsgBoxResult As String
                message = "The product type: " & sheet_index.Range("C" & cell_count) & " is not a recognised type - would you like to add the value of " & sheet_index.Range("D" & cell_count) & " to the other total?"
                vbMsgBoxResult = MsgBox(message, vbYesNoCancel, "Unknow Product Category")
                Select Case vbMsgBoxResult
                    Case vbYes
                        other = other + sheet_index.Range("D" & cell_count)
                    Case vbCancel
                        Exit Function
                End Select
        End Select
    End If
Loop Until sheet_index.Range("B" & cell_count) = ""

End Function
' ##########################################################

' ## Paul's totals #########################################
Function Paul()

CheckCells ("Sheet2")

Sheet1.Range("C3") = timber
Sheet1.Range("C4") = plumbing
Sheet1.Range("C5") = building
Sheet1.Range("C6") = other

End Function
' ##########################################################


I get an error message saying: "Compile error: Invalid qualifier" and when I debug Code:If sheet_index.Range("D" & cell_count) <> "" Then is highlighted. It works if I just put Code:If Sheet2.Range("D" & cell_count) <> "" Then but I want to be able to define which sheet to check through in the Paul function...

You can get the file here if it makes things more clear >> http://die.servegame.com/C/Documents%20and%20Settings/Adrian%20Harding/My%20Documents/Example2.xls

Any ideas? Thanx - sch-55

---

Invalid Qualifier Selecting Object By Array Value
Hey,

How can I select an object, in this case a frame and set it's 'left' value when the frame name is in an array;


Code:

difPages(1) = "firstFrame"
difPages(2) = "secondFrame"

... etc ...

For alignCount = 1 To alignCount = 6
difPages(alignCount).Left = 2400
difPages(alignCount).Value.Top = 145
Next alignCount
That gives me a 'invalid qualifier' error and highlights the 'difPages' array before the left/top values are set...

Basically, in the for loop I want the program to see;

' first loop
firstFrame.Left = 2400
firstFrame.Top = 145
' second loop
secondFrame.Left = 2400
secondFrame.Top = 145

Thanks for your time,

-Ross

---

Pass Form Name To Module -invalid Qualifier
I am trying to create a sub in a module that will be used by a few forms with the same command button names. I keep getting "invalid qualifier" error, so I guess I don't know how to do this properly.

My form has cmdAdd, cmdEdit, cmdDelete etc and the sub routine is called EnableCommands which will set the enabled property depending on the command.

Here is my form code for cmdAdd:
CODEPrivate Sub cmdAdd_Click()
    
    Call EnableButtons(True, Me)
    
End Sub

---

Excel VBA: Copy To Cell A1 - Invalid Qualifier Error
I have a peice of code that allows me to copy a range of A29:T53 from an excel file to a cell A1 of a new excel sheet. It continues to give me an Invalid Qualifier Error at the "copy cell values" action.

Here is the code and the error: The invalid qualifier is in red

Option Explicit

Sub Folder_Workbooks()

Dim wkbCopy As Excel.Workbook
Dim Path$, Workbook$, RangeCopy$
Dim Sheet%

Application.DisplayAlerts = False
Application.EnableEvents = False

'set range address to copy from/to
RangeCopy$ = "K29:T53"
Path$ = "W:ComptrolCorp_RepMONTHEND2002Monthly StewardshipOPEX"
Workbook$ = Dir(Path$ & "*01*.xls")

'loop all workbooks in folder
Do While Not Workbook$ = ""

'assign sheet index to copy data to
Sheet% = Sheet% + 1

'open workbook to copy from
Set wkbCopy = GetObject(Path$ & Workbook$)

'copy cell values
ThisWorkbook.Sheets(Sheet%).Range(Cells(1), _
Cells(RangeCopy$ .Rows.Count, RangeCopy$.Columns.Count)) _
= wkbCopy.Sheets(1).Range(RangeCopy$).Value

wkbCopy.Close
Set wkbCopy = Nothing

'try to find next workbook in folder
Workbook$ = Dir
Loop

Application.EnableEvents = True
Application.DisplayAlerts = True


End Sub

Any help would be appreciated. Thanks

---

ADO Connection Problems, Error: Invalid Qualifier PLease Helllllllp.!!!!
Hey all,
I'm very new to visual programming. I need to develop an application where in i should be able to display, add,edit, delete the records and most importantly should also be able to print the records based on a particular search criteria.

1) I 'm facing probelms with the connections and displaying the data.

2) I'm basically dealing with the personal details of a person ie., Name, surname , Address, Date of Birth , Time of Birth, Place of Birth, Qualifications, Occupation, Salary, Height etc.... And Most importantly with the Photograph of the person.

3) I'm using MS-Access as the database, I prefer to have various tables based on the gender of a person, Qualifications etc.

4) I have created the front-end. But one of the Text boxes is says Invalid Qualifier when i'm trying to clear it using "Reset " Button.

5) I need to save the image along with the other data but i dont know how.

6) Based on a particular(appropriate... age, gender,qual etc) search criteria i should be able to display multiple records ( no photos)....... a)per page, b) Gender wise - Qualification wise eg., Male graduates , Male Undergradualtes and Female graduates , female undergraduates etc.
Also i should be able to display one record at a time along with the photograph of a person.

7) Also i should be able to take the print-outs of the data based on the search.

I shall attach the Form (AddData) please help with where i'm going wrong.
I desperately need help.


PS: This is a stand-alone application to store and maintain the matrimonial database

---

Invalid Qualifier When Calling System.Diagnostics.Process.Start
Hi All,

I get this "Invalid Qualifier" compiler error on "System.Diagnostics.Process.Start". I done some research online with no avail.

Any help is really appreciated!!

Thanks,
Tabbey


Moved from VB.NET to VB General



Edited by - djjeavons on 8/17/2005 3:50:42 PM

---

"Invalid Qualifier" Error When Passing String Param To Function
-Compile Error: Invalid Qualifier

Hi All
I have written a simple function to populate various combo boxes in my application. The comboboxes are on various seperate forms so i decided to create the function as a public function and i wrote it in a global.bas module (not sure if this was the right thing to do so let me know if you think this should be changed)

Anyway the main problem is that when I pass the combobox_name to the function e.g. "Form1.cboBranchName" i get the invalid qualifier error

For info the sStoredProcName string parameter seems to pass without problem

P.s. My Vb knoweldge is very rusty and isnt great to begin with so please can you break it down a simply as u can, and feel free to point out any other glaring errors

Code:

The called function
****************************************************
Public Function PopulateComboBoxes(sStoredProcName As String, sComboBox As String, intCol As Integer, bNotSpecified As Boolean)

Dim sqlcon3 As New adodb.Connection
Dim Rs3 As New adodb.Recordset
Dim temp1 As Variant
Dim sqlstr As String
Dim i As Integer


sqlcon3.Open "Provider=sqloledb;data source=szs005;initial catalog=CallLog;", "shoezone", "property"

With Rs3
    .CursorType = adOpenDynamic
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
End With

Set Rs3 = sqlcon3.Execute(sStoredProcName)

Rs3.MoveFirst
Do While Not Rs3.EOF
    sComboBox.AddItem Rs3.Fields(intCol).Value
    sComboBox.ItemData(sComboBox.NewIndex) = Rs3.Fields _(intCol).Value
    Rs3.MoveNext
Loop

sComboBox.Text = sComboBox.List(0)
Rs3.Close
sqlcon3.Close

End Function
*****************************************************


The Calling function
******************************************************
Private Sub PopulateFilterBys()

'Get Branch List
Call PopulateComboBoxes("Exec branch", "Form1.cboBranch", 0, True)

End Sub
************************************************************

---

Invalid Qualifier Error ??? And Undefined Variable Error ???
Code:
Private Sub Form_Load()
If GetSetting(App.Title, "Startup", "counter", "") = "" Then
SaveSetting App.Title, "Startup", "counter", 1
SaveSetting App.Title, "Startup", "Started", Format(Date, "mm dd yyyy")
SaveSetting App.Title, "Startup", "Last Used", Format(Date, "mm dd yyyy")
lblcnt.Caption = "1"


for some reason when i compile my app, i get this error invalid qualifier at lblcnt <<
can anyone fix this? ...is it bcuz of this

Code:
Dim lblcnt As String


but b4 i put Dim lblcnt As String at the top...it was having an undefined variable error

---

Variables That Point To Other Variables Cause Invalid Qualifier (obviously), Fixible?
I have a class that holds some collections,
forsimplicity I will call them 1Coll, 2Coll, 3 Coll.

Ok

What I would like to do is circumnavigate the usual 'write 10 millions lines of cod which is exactly the same but for a different variable' situation

the situation is this:

each collection holds some data, I want to operate on the data according to user inputs

for example

UserInput = msgbox("enter a collection to use","a message", "1Coll")

for count = 1 to Userinput.count
tempvar = tempvar & UserInput.(count)
next count

the text in italics is what I want to specify a particular collection....
and I dont want reams of case statements in my class code, so is there a way round/to achieve this? there is in C++ cause you can assign pointers and stuff... I think this is what I need here

manythanks
Nit

---

"Invalid Qualifier" Compile Error
All right. This is really starting to get to me, and I need another pair of eyes, or some insight. I have the following code in a module (VB6):

Code:
Global aryIPList() As String
Public Type vbIPColor
    statustext As String
    statuscolor As ColorConstants
End Type
Public fMainForm As frmMain

Sub Main()
    Set fMainForm = New frmMain
    fMainForm.Show
End Sub
Public Function getStatus(prnIP As String) As String
    Set snmp = CreateObject("pw.snmp") ' Create Object
    snmp.remotehost = prnIP
    snmp.community = "public"
    snmp.oid = "1.3.6.1.4.1.11.2.3.9.1.1.3.0"
    answer = snmp.pduGet
    Set snmp = Nothing
    getStatus = answer
End Function

Public Function checkPrinter() As vbIPColor()
    Dim thisStatus As vbIPColor
    Dim mystatuscolor As ColorConstants
    If Len(ipAddress) > 0 Then
        thisStatus.statustext = rmtIP & ": " & getStatus(rmtIP)
        'OIDVal = "TONER EMPTY"
        If InStr(thisStatus.statustext, "LOW") Then
            thisStatus.statuscolor = vbYellow
        ElseIf InStr(thisStatus.statustext, "EMPTY") Then
            thisStatus.statuscolor = vbRed
        ElseIf InStr(thisStatus.statustext, "READY") Then
            thisStatus.statuscolor = vbBlue
        Else
            thisStatus.statuscolor = vbBlack
        End If
    End If
    checkPrinter = thisStatus
End Function
Public Function pollPrinters()
    Dim myStatus As vbIPColor
    txtOIDVal.Text = ""
    For Each thisAddress In aryIPList
        myStatus.Append = checkPrinter(thisAddress)
        txtOIDVal.ForeColor = myStatus.statuscolor
        txtOIDVal.Text = txtOIDVal & myStatus.statustext & vbCrLf
    Next
End Function
Public Sub addIP(thisIP As String)
    aryIPList.Append (thisIP)
End Sub


When I fire off "addIP()", I get a "compile error: Invalid Qualifier" message and "aryIPList" is highlighted in the line that reads "aryIPList.append (thisIP)".

I've tried it with aryIPList as a Public, and as Global with no change...what am I missing, here?

---

IndexOf Gives "Invalid Qualifier"
I'm in an Excel VB Macro, attempting to go through my cells with the following:

Code:
With ActiveSheet
For currentRow = 1 To .UsedRange.Rows.Count
For currentColumn = 1 To .UsedRange.Columns.Count
Dim currentCell As String
currentCell = RTrim$(.Cells(currentRow, currentColumn).Value)
If Len(currentCell) > 0 Then
If (currentCell.IndexOf(",") > -1) Then specialChars = True
If (currentCell.IndexOf("'") > -1) Then specialChars = True
End If
Next currentColumn
Next currentRow
End With

I am trying to find out if any cell in that range has either a quote or a comma. The program stops on "If (currentCell.IndexOf(",") ...)", saying "Compile error: Invalid qualifier".

I can't figure out what it means. current Cell is declared as a String, IndexOf is a String function, isn't it? Does it matter what's returned from RTrim$()?



Edit by Moderator:
Please post Excel questions, in the Excel forum.

Please use the [vb][/vb] tags when you post your code. Edit or reply to this post to see how.

Thank you.

---

Compile Error: Invalid Qualifier Error
Hi all

Just joined the forum looks very active (which is good).

After using MS Access for a few years, I thought it was time to learn VB and have started with VB6. After scrouging up a few books to use, I decided on the VB6 Bible from IDG books to start off with. So off I went working through the examples for creating a form etc. And came up with a problem....

the code...


Code:

Option Explicit
Private dbPrimary As Database
Private rsListData As Recordset
Private frmMDIRef As MDIForm

Public Sub Display(dbinput As Database, frmParent As MDIForm, sDataType As String)

Dim itemReturned As ListItem
Dim fldloop As Field
Dim i As Integer

Set dbPrimary = dbinput
Set frmMDIRef = frmParent
Me.Caption = sDataType
Set rsListData = dbPrimary.OpenRecordset("qryList" & fnRemoveSpaces(sDataType).dbOpenDynaset, dbSeeChanges)

ctlListView.View = lvwReport
ctlListView.Sorted = True
For i = 1 To rsListData.Fields.Count - 1
ctlListView.ColumnHeaders.Add "Column" & rstlistdata.Fields(i).Name
Next i
Do While Not rstlistdata.EOF
Set itemReturned = ctlListView.ListItems.Add( _
, _
"Item" & rsListData.Fields(0), _
rsListData.Fields(1))
For i = 2 To rsListData.Fields.Count - 1
itemReturned.SubItems(i - 1) = rsListData.Fields(i) & ""
Next i
Loop

End Sub

Private Function fnRemoveSpaces(sInput As String) As String
Dim sTmp As String
Dim i As Integer

For i = 1 To Len(sInput)
If Mid$(sInput, i, 1) <> "" Then
sTmp = sTmp & Mid$(sInput, i, 1)
End If
Next i
fnRemoveSpaces = sTmp

End Function
It errors with "Compile Error: Invalid qualifier" error on the section

fnRemoveSpaces(sDataType)

I've looked everywhere and can't find anything that might help me out hence the post.

Anyone have any ideas (remembering I'm a beginner)

TIA

Howard

---

"Type Mismatch"/"Invalid Qualifier" Error
Hi all

Am just using VB6 for the first time. Am connecting to a SQL Server 2000 database. What i am trying to do is simple select a single cell from the database into a string variable and then hold onto that variable for as long as i need it. The problem is that when i go to put the value into the variable i get a "Type Mismatch" error or an "Invalid Qualifier" error

The global variable that i am using:
Dim conn as new ADODB.Connection
Dim cmd as new ADODB.Command
Dim tempString as String

The connection string that i am using is:
conn.open "UID=;pwd=;Database=Marts;" & _
"Server=localhost;Driver={SQL Server};

The statement that i am executing is:
cmd.ActiveConnection = conn
cmd.commandType = adCmdText
cmd.commandText = "Select ColumnA from TableA where ColumnB = 'ABC'"
tempString = cmd.Execute

---

Object Qualifier
I could not able to edit object qualifier.

How to add object qualifier explicitly

I got the following info but I didn't get how to specify I, C, F

Please give me the details...

Kiran


Editing Object and Property Qualifiers
[This is preliminary documentation and subject to change.]

To edit object and property qualifiers
Select the object in the Object Explorer.
Display the Qualifiers (object or property) window you want to edit.
Click the field you want to change.
If a down arrow appears when you select the field, click the arrow and
choose a value from the list that appears.
If no down arrow appears, type the new value in the field.

Click the I, C, and O fields to select or cancel these settings.

The Origin field is read-only. It indicates where the qualifier originated:
local (for qualifiers defined in the current object) or propagated (for
qualifiers propagated from another object).

When you start typing, the text turns blue. The Save button becomes active
to indicate that the value has not been committed yet.

When you have finished editing, click the OK button. This closes the
Qualifiers window.
In the Object Viewer, click the Save button. A confirmation message appears.
Click Yes to save the changes.

---

New Error Qualifier?
--------------------------------------------------------------------------------
Private Sub Command2_Click()
Dim X As Integer
Regg = 2
If Asc(OwnerName(2)) = 91 Then
cr$ = Chr$(13) + Chr$(10)
Msg$ = "To Continue You Must Select OK !" + cr$ + " Then Select Set - Up To" + cr$ + " Configure Your Register Slot"
X = MsgBox(Msg$, 1, "Register 2 Selected", HelpFile, Context)
Form2.Hide
Load Form3
Form3.Show
' Msg$ = Cnf(Regg).R + " " + Cnf(Regg).S
' MsgBox (Msg$)
End If
[ If Asc(Cnf.R) = 0 Then ]
Form2.Hide
Load Form3
Form3.Show
End If
Msg$ = Str(Asc(OwnerName(2))) + "ASC"
MsgBox (Msg$)
If Asc(OwnerName(2)) <> 91 Then
If Cnf(Regg).R <> "" Then
Label1.Visible = True
Text1.Visible = True
Text1.SetFocus
'Msg$ = Cnf(Regg).R
'MsgBox (Msg$)
End If
If Cnf(Regg).S <> "" Then
Label1.Visible = True
Text1.Visible = True
Text1.SetFocus
'Msg$ = " " + Cnf(Regg).S
'MsgBox (Msg$)
End If
End If
End Sub

The line in the Brackets causes a Invalid Identifier Message, I have no idea what that means, how do I prevent that?

---

Use Of RANGE Without The APPLICATION Qualifier.
Within an EXCEL macro I have set up, I open a text file (.csv format), and then proceed to make changed for it using some failry simple VB.

The code starts with :

Workbooks.Open FileName:= "c:salflex.txt"
Range("A1").Select

And falls over as soon as it gets to the Range command with a "Select Method of Range Class Failed" message. If I recode it as application.range("a1").select it works. If I run it without the workbooks open command, it works. If I close the text file so that the original excel spreadsheet is active, it works. If I simply switch back to the original workbook in Excel, it works.

I'd rather not have to specify application. in front of everything, any suggestions ?

---

Declare Valid Qualifier
Me.Forecolor
Me.CurrentX
Me.Refresh
Form1.Forecolor
Form1.CurrentX
Form1.Refresh
and etc....

And etc.... This is Valid Qualifier, Now I suppose I want to create my own qualifier for example

One.Forecolor
One.CurrentX
One.Refresh
Two.Forecolor
Two.CurrentX
Two.Refresh

For now these are invalid qualifier.... If I want to make it a valid qualifier, how do or can I declare it? Just for my curiousity, and my future benefit.

---

Error Message Qualifier?
--------------------------------------------------------------------------------
Private Sub Command2_Click()
Dim X As Integer
Regg = 2
If Asc(OwnerName(2)) = 91 Then
cr$ = Chr$(13) + Chr$(10)
Msg$ = "To Continue You Must Select OK !" + cr$ + " Then Select Set - Up To" + cr$ + " Configure Your Register Slot"
X = MsgBox(Msg$, 1, "Register 2 Selected", HelpFile, Context)
Form2.Hide
Load Form3
Form3.Show
' Msg$ = Cnf(Regg).R + " " + Cnf(Regg).S
' MsgBox (Msg$)
End If
[ If Asc(Cnf.R) = 0 Then ]
Form2.Hide
Load Form3
Form3.Show
End If
Msg$ = Str(Asc(OwnerName(2))) + "ASC"
MsgBox (Msg$)
If Asc(OwnerName(2)) <> 91 Then
If Cnf(Regg).R <> "" Then
Label1.Visible = True
Text1.Visible = True
Text1.SetFocus
'Msg$ = Cnf(Regg).R
'MsgBox (Msg$)
End If
If Cnf(Regg).S <> "" Then
Label1.Visible = True
Text1.Visible = True
Text1.SetFocus
'Msg$ = " " + Cnf(Regg).S
'MsgBox (Msg$)
End If
End If
End Sub

The line in the Brackets causes a Invalid Identifier Message, I have no idea what that means, how do I prevent that?

---

Text Qualifier Problem
I am using DTS to import log files into SQL. I've worked out most of the kinks but have run into an issue that I'm not sure how to resolve. One of the columns in the text file has a text qualifier of ". The problem is that some of the data within that column also contains 1 or more "s. DTS does not like this at all and tries to add columns for each pair of " or just bombs when there is a single ". Is there a good way to write a vb script to strip out the inner "s without removing the outer 2? (They have to stay because it's a space delimited file and there are also spaces within that colmn.)



Edited by - amumaugh on 10/17/2004 7:22:59 AM

---

Remove Text Qualifier From CSV File
How would I go about stripping out the text qualifier from a CSV file?

" is the qualifier.

This is what I have and it works as long as there is no qualifier


Code:
Dim arrData() As String
Dim s As Variant
Dim i As Integer

Open "Filename" For Input As #1

Do While Not EOF(1)
rs.AddNew
Line Input #1, s

arrData = Split(s, ",")

For i = 0 To UBound(arrData)
'Debug.Print arrData(i)
rs!TRANS_ID = arrData(0)
rs!CO = arrData(1)
rs!FACid = arrData(2)




Thanks for any and all help...

---

Getting Count Of A Field In SQL Server With And Wihout Qualifier In One SELECT?
Hi, I am trying to get a Count(id_person) and a Count(id_person) WHERE income is > 100 in one SELECT, is this possible. Here is an example of the results I am trying to get: the numbers shoild be in two columns single digit, first row 2 in count, 1 > 100 etc.

category number number_gt_100
------------------------------ ----------- -------------
Cartoon 2 1
Daughter 1 0
Dog 1 0
Politician 2 2
Superagent 2 2
Superhero 2 0

I have tried the following:

SELECT category, COUNT(id_person) AS [number],(SELECT COUNT(id_person) AS [number_gt_100]
FROM #persons
WHERE income > 100
GROUP BY category)
FROM #persons
GROUP BY category;

It is easy to get each count seperately, but I am trying to get both counts at the same time and one has a qualifier that the other does not. Any help would be appreciated. Bronco



Edited by - bronco on 8/29/2006 7:17:33 AM

---

Invalid ID
hi, ive written a server type thing in VB and for some reason, if its sending out a huge sound file or sometimes picture file it will decide to give an error. the error is something to do with the file ID and i get the error when i use the 'Get' command.

im using open as binary BTW. is there any possible way a file can be closed without running the 'close' command? im pretty sure everywhere that the 'close' command is run i change a variable to show its been closed yet i still get the error. i open the file in 1 sub then another sub runs continously (caused by a winsock event) until the whole file has been sent. is there anything that could cause this cos i thnk ive checked everything

---

Invalid Row Msg
I use VB5 in windowsXP. I have a dbase table in a DBGRID control. I want to obtain certain values from th grid. I use the following code

for rowNum=1 to 200
grid.row= rowNum
grid.col= ColNum
x=grid.text ' the value I need is in x
next rowNum

This works fine for the first 4 rows (4 rows are visible on my grid) but when rowNum is 5, I get run time error 6148 - invalid row number. What can I do to get the values that I need?

---

Me - Invalid Use !!! ?
I have an app with a number of forms and one module.

In the module I have placed the Public Function


Code:
Public Sub OpenAFile(strFileLocation As String)
If Dir$(strFileLocation) = "" Then
Exit Sub
End If
ShellExecute Me.hWnd, "open", strFileLocation, vbNullString, "C:", ByVal 1&
End Sub

And I call this function from within a form with


Code:
Call OpenAFile("" & App.Path & "amem.rtf")


I get the error invalid use of the keyword “ME” in the function. I guess because I have put in in a module ? and made it Public because I would like to call it from all of my forms

How can I fix it

Or have I got to just keep my code in each form

---

Invalid Row Value?
Hey guys I'm writing a program which checks the link status of users connected in a network basically. I have a grid (grdStatus) in the form which shows the status of these users and Column 2 is the column which shows whether the link is up or down.

If sending and receiving of data to opposing user is available it will show a green in the Column 2. If only receiving data from opposing user, it will show yellow. While if both sending and receiving to opposing user is not through, then it will show red.

So I was writing this small function which returns a certain value for the link status of each station. The code is as follows:


VB Code:
Public Sub CheckStatus()   Dim i as Integer   With grdStatus   For i = 1 to .Rows      .Col = 2      .Row = i      Select Case .CellBackColor         Case QBColor(RCV_OK)            arrLinkStatus(i) = 1         Case QBColor(SEND_RCV_OK)            arrLinkStatus(i) = 2         Case QBColor(NOT_OK)            arrLinkStatus(i) = 3      End Select   Next i   End WithEnd Sub


When I try to run the program, it gives me an error which says Invalid Row Value. Anyone knows what's wrong with that?

(BTW this is on VB6)

---

Why Is This Invalid
Select Case left (myname,1)
Case myname < "D"
picBox.Print "Your name starts with A, B or C."
End Select

---

Invalid Key
I am having problems using downloaded tutorials.
After I download the tutorials I unzip them to find I
get a error when I try to load them into vb5 learning edition. The error is "Retained is an invalid key" Cannot load the Project.

I also get another error sometimes it states that Cannot find start up sub main.

Any suggestions on how to deal with these problems.

thanks tiro

---

Invalid Row Value
I have a VB6 application that runs on a SQL Server database backend and uses an MSFlexgrid control to display a number of records returned from a stored procedure.

I am getting the following error:
Error number 30009
Error Description: Invalid Row Value

Because the users are regularly updating the data, the flexgrid gets refreshed every few minutes or so i.e. the stored proc gets re-run. This error happens intermittently and it does do not occur when the flexgrid is first populated, so I'm 99% certain the error happens when this refresh occurs.

But also on this form there are various drop-down-lists which allow the users to filter which records are displayed. When the users select the filter which displays 'In progress' calls, a procedure is called which colours certain rows depending on their date.  I get the feeling the error occurs when the refresh is run and this particular filter is set.

Here is my populate flexgrid code, which I pinched off a the net (VBForums),

CODEPublic Sub FillFromRecordset_FlexGrid(p_ctlFlexGrid As Control, _
                                      p_objRecordset As Object, _
                                      p_booFieldNamesAsHeaders As Boolean)

'Fills an MSFlexGrid control with values from a recordset
'The code was taken from Si_the_geek, VBForums

'Parameters:
'  p_ctlFlexGrid            - The FlexGrid control to fill
'  p_objRecordset           - The Recordset to get the data from (can be ADO/DAO)
'  p_booFieldNamesAsHeaders - True to show field names as column headers

'Example usage:
'  Call FillFromRecordset_FlexGrid(MSFlexGrid1, objRS, True)

On Error GoTo ErrorHandler

Dim lngCol As Long
Dim lngRow As Long
Dim booOldRedraw As Boolean
Dim FlexGridName As String
Dim i As Long


FlexGridName = p_ctlFlexGrid.Name


  With p_ctlFlexGrid
  
    
      'Set up the required number of columns
    .Cols = p_objRecordset.Fields.Count
    .FixedCols = 0

      'If specified, show field names as headers
    If p_booFieldNamesAsHeaders Then
      .FixedRows = 1
      For lngCol = 0 To p_objRecordset.Fields.Count - 1
        .TextMatrix(0, lngCol) = p_objRecordset.Fields(lngCol).Name
        'sp - populate field headers to combo box for sort by
        'Combo1.AddItem p_objRecordset.Fields(lngCol).Name
      Next lngCol
    End If

      'remove all rows except any headers, and the first data row (cannot be removed)
    .Rows = .FixedRows + 1

      'Turn off screen updates (much faster to fill the data)
    booOldRedraw = .Redraw
    .Redraw = False

      'Check if there is any data
    If p_objRecordset.EOF Then
        'if there is no data, only allow the required blank row, and hide it (height=0)
      .AddItem ""
      .RemoveItem .FixedRows
      .RowHeight(.FixedRows) = 0
    Else

        'We have data, add it one row at a time
        '(nb: there are various ways to do this, this way is quick, and easy to read)
      lngRow = .Rows
      Do While Not p_objRecordset.EOF
          'Add the row (empty)
        .AddItem ""
          'Set the values once cell at a time (avoids problems with Nulls and data containing grid delimiters)
        For lngCol = 0 To p_objRecordset.Fields.Count - 1
            'if you want to format the text for some columns differenly, you can _
            'use If/Else or Select Case here - but its better to do that in your SQL _
            'statement, as it is more efficient, and allows this sub to be re-used easily
          .TextMatrix(lngRow, lngCol) = p_objRecordset.Fields(lngCol).Value & ""
          '.textmatrix(lngrow
        Next lngCol
          'Increment our row counter
        lngRow = lngRow + 1
          'Move to the next row of data
        p_objRecordset.MoveNext
      Loop

        'Remove the blank row we left at the top
      .RemoveItem .FixedRows

    End If


    'If p_ctlFlexGrid = frmNewLog.MSFlexGrid2 Then
    '    MsgBox "msflexgrid22"
    'End If
    
   
    
        If FlexGridName = "MSFlexGrid1" Then
        .ColWidth(0) = 750
        .ColWidth(1) = 1275
        .ColWidth(2) = 1050
        .ColWidth(3) = 500
        .ColWidth(4) = 1500
        .ColWidth(5) = 500
        .ColWidth(6) = 6280
        .ColWidth(7) = 1100
        .ColWidth(8) = 0
        .ColWidth(9) = 1730
    End If
    
    If FlexGridName = "MSFlexGrid2" Then
        .ColWidth(0) = 750
        .ColWidth(1) = 900
        .ColWidth(2) = 1050
        .ColWidth(3) = 530
        .ColWidth(4) = 0
        .ColWidth(5) = 0
        .ColWidth(6) = 6370
        .ColWidth(7) = 1050
        .ColWidth(8) = 0
        .ColWidth(9) = 1500
    End If
    
    For i = 0 To 8
    p_ctlFlexGrid.ColAlignment(i) = flexAlignLeftCenter
    Next i
    
   If FlexGridName = "MSFlexGrid1" Then
    'If MSFlexGrid1.Rows > 1 Then
        If cboStatus.ListIndex = 2 Then Form1.CheckFixByDue
        'dont run this again if its already happened
    'End If
End If
    
    
    

'Form1.MSFlexGrid1.CellBackColor = vbRed
'Form1.MSFlexGrid1.TopRow


    
    
    
       'Re-enable screen updates (if was previously enabled)
    .Redraw = booOldRedraw
    
    
      'Force a redraw of the grid
    .Refresh
    
    
    
MSFlexGrid1.Row = iCurrentRow
MSFlexGrid1.TopRow = iTopRow
MSFlexGrid1.RowSel = iCurrentRow
MSFlexGrid1.Col = 0
MSFlexGrid1.ColSel = .Cols - 1



    'MSFlexGrid1.ColAlignment(6) = flexAlignLeftCenter
  
  End With
    
    'If Status = InProgess and there are no rows on the grid check the fixby date
    'is in the past

    'If MSFlexGrid1.Rows <> 2 Then
        
     '   If cboStatus.ListIndex = 2 Then CheckFixByDue
        'dont run this again if its already happened
               
    'End If


    
Exit Sub

---

Invalid Use Of New
hi all
I have added an activex named "ArcMap" in an app . one of it's interfaces is ILine and the related class is Line . in the code :

Code:

dim Line1 as ILine
set Line1=new Line;


ther is an error : invalid use of new .
what is the problem ?
thank you.

---

Invalid Use Of Property
Trying to move basic img with this:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Then
imgImage.Left - 40
ElseIf KeyCode = vbKeyRight Then
imgImage.Left + 40
ElseIf KeyCode = vbKeyUp Then
imgImage.Top - 40
ElseIf KeyCode = vbKeyDown Then
imgImage.Top + 40
Else
End If
End Sub

problem 1: my cmd buttons are highlighted when i start so the arrow keys wont do anything if press them just move the cursor between quit and pause buttons.

problem 2: when i take the cmd buttons off and hit an arrow key it says "Invalid use of property"

---