compile error: invalid quaifier

Visual Basic for Applications (VBA)

‹ Microsoft ISV
- Archive
  - Windows Live
  - Architecture
  - SharePoint
  - VC++
  - VS Express
  - Windows Forms
  - SQL Server
  - Smart Device
  - Visual C#
  - Game
  - VB
  - ISV
  - VFP
  - IE
  - Dotnet
  - VS 2008
  - Visual Studio
  - Windows Vista
  - Office

- Previous
  - 1
    - VBA XML and encoding Hello, Here is my issue. In an excel sheet, I fill in several cells which contain text. This text can be either in english / french / spanish / italien / german, which means I can have characters like "e" or "e" etc... In a vba macro I'm trying to put all these data into an XML, this XML is then processed later on by an ASP.net app I have created (using an xmlreader). The thing is, when I try to display the value of each node of my XML with my ASP.net app, some characters are replaced by squares. For example, characters like "-", "...", singlequote BUT, characters like "e" and "e" are perfectly displayed . And when I have a look into my XML file with Visual Studio I can clearly see all my characters. Everything is fine. However, when I try to save the file in VS, it warns me "that some unicode characters can't be saved in the current codepage. Do you want to resave the file as Unicode in order to maintain your data " If I click "YES" it then set the Xml Encoding to : UTF-16 And from now on, everything is displayed correctly in my ASP.net app. Here is the VBA Code which generates my XML File. Code Snippet Open strPath & cstStudyName & ".xml" For Output As 1 Print #1, "< xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "ISO-8859-1" & Chr(34) & " >" Print #1, "<root>" iCurLine = cstiStartLine While objSheet.Cells(iCurLine, cstiVarCol).Value <> "" strValue = objSheet.Cells(iCurLine, iEnglisCol) Print #1, "<" & objSheet.Cells(iCurLine, cstiVarCol) & " label= " & Chr(34) & CheckContentsXML(strValue) & Chr(34) & "/>" iCurLine = iCurLine + 1 Wend Print #1, "</root>" Close #1 As you can see, I have tried to specify "ISO-8859-1" in the XML header. If I specify "UTF-8" then xmlreader is generating an error at the first weird character it encounters such as "-" If I try to specify "UTF-16", it then becomes a bunch of unreadable characters and my ASP.net display nothing. Does anyone have an idea Thanks a lot. Tag: compile error: invalid quaifier
  - 2
    - Increase prompt in message box I have a userform that contains a command button that when clicked displays a message box. This message box contains help notes for the user. However I can't quite fit all the text in. When displayed, the message box cuts off the last couple of sentences. I think this is because my help text is the prompt in the message box and it is too long (> 1024 characters). How can I get a few extra sentences into the message box Perhaps there is a better way to display the help text Tag: compile error: invalid quaifier
  - 3
    - Configuration Failed Configuration Failed One or more configuration settings failed. Completed configuration settings will not be rolled back. Resolve the problem and run this configuration wizard again. The following contains detailed information about the failure: Failed to initialize SharePoint Products and Technologies upgrade. An exception of type System.Collections.Generic.KeyNotFoundException was thrown.Additional Information The given key was not present in the dictionary Plz Help One or more configuration settings failed. Completed configuration settings will not be rolled back. Resolve the problem and run this configuration wizard again. The following contains detailed information about the failure: Failed to initialize SharePoint Products and Technologies upgrade. An exception of type System.Collections.Generic.KeyNotFoundException was thrown.Additional Information The given key was not present in the dictionary Plz Help Tag: compile error: invalid quaifier
  - 4
    - Communicator Mobile 2005 and TLS (Using port 4443 possible?) More options Confused on something with CM and CWA: We have web access enabled/installed, it uses MTLS and certificates on port 4443 to access the site... I'm assuming when using Communicator Mobile on Windows Mobile 2005, I specify TLS to connect remotely to the server (no vpn).. Is there a way to specify port 4443 or is the TLS port 443 even with Web Access installed on port 4443 (IE: these are different or the same) Thanks Tag: compile error: invalid quaifier
  - 5
    - VBA in Excel - organizing charts as objects in a sheet I am using a macro to create multiple charts from data on a separate sheet in the Excel file. However, the program places each new chart on top of the previous one in the sheet I select. I would like to place these charts apart on the sheet so that they are viewable. 1) Is there an command to order the charts down and across the sheet 2) Alternatively, can I select and move each sheet without using the actual object name in the while loop, "Chart1," for example. 3) Specifiying the object name would only work for the first chart. Is there a way to number the charts with a variable Here is the while portion of my code as it is now ( red text indicates the portion I am having difficulty with ) : While j < 243 Charts.Add With Sheets("TRESULTSdmp_3") ActiveChart.SetSourceData Source:=.Range(.Cells(i + 1, j + 1), .Cells(i + m, j + 1)), PlotBy:=xlColumns End With ActiveChart.ChartType = xlXYScatter ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "Test point to the right" .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With ActiveWindow.Visible = False <----- question 2 above) want to move object to a specific location ActiveWindow.WindowState = xlNormal (will have to make Range a variable) ActiveWindow.WindowState = xlMaximized Range("A1").Select ActiveSheet.ChartObjects("Chart 8").Activate ActiveChart.Paste ActiveSheet.Shapes("Chart 3").IncrementLeft -123.75 <--- question 3 above) want to make object # variable ActiveSheet.Shapes("Chart 3").IncrementTop -8.25 j = j + 1 Wend Tag: compile error: invalid quaifier
  - 6
    - AutoExec will not execute properly Hello there I have an .dot file in the Word 2003 start-folder. When opening word, the file is read. The autoexec-macro should make a new entry with a number of commands and subcommands in the standard menubar. On about 300 PC's this works fine. On a few ones only part of the commands appear. All PC's run W2000 and Office 2003. Any idea regards Jurgen Tag: compile error: invalid quaifier
  - 7
    - Determine if and where the .NET Framework is installed using VBA I have an Excel spreadsheet that needs to determine if the .NET Framework is installed as well as the path to that install. How can this be acomplished in VBA code Tag: compile error: invalid quaifier
  - 8
    - Pivot Table Macro Hi, I have set up a small macro to create a pivot table from a spreadsheet: Sub CreatePivot() ' ' CreatePivot Macro ' Macro recorded 3/14/2007 by Gary ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "Data!R1C1:R656C90").CreatePivotTable TableDestination:="", TableName:= _ "PivotTable1", DefaultVersion:=xlPivotTableVersion10 ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) ActiveSheet.Cells(3, 1).Select Sheets("Sheet1").Select Sheets("Sheet1").Name = "Pivot" End Sub The problem is that each spreadsheet I run it on, has a different number of rows. They all have the same number of columns (A-CL), but the number of rows varies. I'd like the pivot to work no matter how many rows it is: i.e., that it will automatically select the entire range whatever it is. Is this doable Thank you, Gary Tag: compile error: invalid quaifier
  - 9
    - how can I count # of columns between two specific columns? Hello, How can I count # of columns between two specific columns such like, how many columns between column A and column D Thanks so much! B.regards/Yaping Tag: compile error: invalid quaifier
  - 10
    - Why the do while loop does not work? Hello, Below is my code, the lastrowGSVGrowthRate is 101, I expected result is to copy all the "AFFILIATE" items. While with my code, it only copied the first "AFFILIATE" item. I do not know where I did wrong. Thanks so much! B.regards/Yaping raffiliate = 1 rowaffiliate = 1 Do While raffiliate <= lastrowGSVGrowthRate If cells(raffiliate, 1) = "AFFILIATE" Then MsgBox raffiliate Range(cells(raffiliate, 1), cells(raffiliate, lastcolumnGSVGrowthRate)).Select Selection.Copy worksheets("AFFILIATE").Activate ActiveSheet.cells(rowaffiliate, 1).Select Selection.PasteSpecial Paste:=xlPasteAll rowaffiliate = rowaffiliate + 1 Else End If raffiliate = raffiliate + 1 Loop Tag: compile error: invalid quaifier
  - 11
    - VBA and automated word generation Hi there, I am currently working on a VBA application. There is an automated word generation available in the appliacation that serves the reporting process. If there is any Flash add-in being installed in the user's machine (can be viewed through Tools->Templates and Add-ins in MS Word) ,the applicaiton crashes down when the user tries to generate the report because the flash add-in runs initially before the word gets opened. Is there any work around available other than removing the add-in for the application to run successfully Your help is greatly appreciated Tag: compile error: invalid quaifier
  - 12
    - Using Excel files in MS Works Had Office and XP on my previous computer and created several Excel files I want/need to keep New computer has Vista and MS WORKS installed - will I have a problem with transferring the Excel files to new computer If so, how do I remedy Tag: compile error: invalid quaifier
  - 13
    - iexplore.exe - Application Error I get the following error message when I close my internet explorer. The instruction at "0x62304320" referenced memory at "0x62304320", The memory could not be "read". Click on OK to terminate that program. Any ideas what is causing this Tag: compile error: invalid quaifier
  - 14
    - error with wscript.shell error 80070483 hi, i am trying to run a vb script from a VBA module in excel. fn = "test.vbs Set wshShell = CreateObject("Wscript.Shell") wshShell.Run (fn) in the line wshShell.Run (fn) i obtain an error error 80070483 method Run of object IWshShell3 failed it is the first time i do this, so i am not shure if i need to have done something before, some references in windows extension .vbs is not related to any application (is it ok ) tks in advance Tag: compile error: invalid quaifier
  - 15
    - Obtain Unique Work Units via SQL Below is the SQL I have for a Query. The results of my query are below the code. Everything works great except for the WorkUnit totals. I am getting the total Records for the date range and I really need the Unique workUnits for the date range. For this particular daterange I have a total of 197 WorkUnits but in reality there really are only 89 Unique WorkUnits. In the example below on one date range I had 0 No Faults and on the other date range I had 7 No Faults. Can anyone tell me how to add to this query to get only Unique WorkUnits SELECT 'No Faults' AS [Fault Type], Sum(IIf([FaultCategory]='No Faults',1,0)) AS [NoFault Totals], Count (WorkUnitsFaultsMainTBL.WorkUnit) AS [Total Work Units], FormatPercent(Sum(IIf([FaultCategory]='No Faults',1,0))/Count([WorkUnit]),2) AS [Pct NoFaults] FROM WorkUnitsFaultsMainTBL WHERE (((WorkUnitsFaultsMainTBL.BuildID) In ("E010","C809","F001","C810","F187","A910","M173","M174")) And ((WorkUnitsFaultsMainTBL.TodaysDate) Between Forms!Queries_ReportsFRM!StartDateTxt And Forms!Queries_ReportsFRM!EndDateTxt)); Fault Type--------NoFault Totals----------Total Work Units No Faults-----------------0--------------------------197 Fault Type--------NoFault Totals----------Total Work Units No Faults-----------------7--------------------------197 Tag: compile error: invalid quaifier
  - 16
    - Adding Menu to Microsoft project 2007 using VBA How can I add a custom menu using VBA code. There are some changes happened in from Microsoft Project 2003 to Microsoft Project 2007. How can I add custom menu to microsoft project 2007 and make it work to invoke appropriate code. Are there any whitepaper which talks about the changes in the coding from Microsoft project 2003 to 2007. I am new to this area of coding with little knowledge of VBA. ANy help will be highly appreciated. A sample code will work wonders for me. Tag: compile error: invalid quaifier
- Next
  - 1
    - Collection Item: Parent / NextItem Hi, I am struggling with classes. This is what I want to do, in VBA (test it in Excel please): I want to add a property/function to my class, named NextItem and PreviousItem. These return the next and previous items in the collection. I have several separate collections where I keep my items in. So if I want to determine the next and previous item, I need to figure out in which collection the item resides before I can start to loop through that collection. Unfortunately there is no collection.item.parent. That is what I need to simulate I thought about adding a property ParentCollection to the class, but how can I use that property as a pointer to a collection and retrieve the collection from that pointer. Help! Tag: compile error: invalid quaifier
  - 2
    - VBA Language Definition Hi, just a quick question Does there exist anywhere a formal definition of the VBA language It would be really useful for my dissertation as i am writing a program that interprets macros so could do with something that would tell me, for example all the different ways that variables can be defined, or all the different types of statement that can be used etc. Any advice is much appreciated Ryan Tag: compile error: invalid quaifier
  - 3
    - Are these valid bucket ids ? Hi Jason, Saar, The reports at my end is having following bucket id : 456012092, 455976259, 455999458, 49984945. But these reports are not available in Winqual - atleast I can't see when I log in to Winqual. One of them is as old as 6 days. Others are one day. Could you please, confirm whether these are all valid bucket id If not then reason. Thanks, DHON Tag: compile error: invalid quaifier
  - 4
    - VBA 6.5 New Version? I have loaded Office 2007 and the VBA about screen states version 6.5. Is there any documentation on recent changes to the VBA environment An older product which includes the VBA environment is not able to launch any VBA macros with Office 2007 installed. The upgrade to VBA 6.5 may be the problem and I would like to find some detailed information on new releases. Thank you, Greg Tag: compile error: invalid quaifier
  - 5
    - Updating column totals in sub forms This has to be simpler than I'm making it! Trying to maintain column ototals ni SubForm, and update them to the MainForm. Typical Northwind-type Orders-&-Details relationship: I extend row totals in the OrderDetails subform; and show OrderTotal (column total) in the SubForm's FormFooter. So far, so good. But when I change a quantity or price in the subform, I'd expect the subtotal to change automatically, no It does not; and I don't know whether I need to code a "Change" event myself, to modify that total whenever a single cell changes; and whether I must loop through the rows, or if there's a nifty group-operator in Access to do the columnTotal for me. (I'm a VB programmer, reluctantly roped into writing an Access form.) Finally, when I leave the Main Record (i.e., parent of the rows in the subForm), I want to store the updated suptotals in the Main/Parent record. (I know, I know, it's not kosher, but they pay me to do this stuff. -- Besides, it records what has been billed as it was billed; not as it's been updated since.) Many thanks, anyone who can provide a cogent reply. S Tag: compile error: invalid quaifier
  - 6
    - AutoExec will not execute properly Hello there I have an .dot file in the Word 2003 start-folder. When opening word, the file is read. The autoexec-macro should make a new entry with a number of commands and subcommands in the standard menubar. On about 300 PC's this works fine. On a few ones only part of the commands appear. All PC's run W2000 and Office 2003. Any idea regards Jurgen Tag: compile error: invalid quaifier
  - 7
    - MS Office document and image writer print driver Besides removing this feature from Office during setup, is there a process to remove this virtual printer from 300 users with roaming profiles on an active directory network We are having an issue with this printer assuming the "default printer" selection for our users. As a work around we have changed their default printer, but after they reboot or log off / on it has defaulted back to the MS Ofc doc and image writer printer. Tag: compile error: invalid quaifier
  - 8
    - Fill word document with fields from Access form programmatically Hi - i have a form called 'formpo' that allows users to enter information that we use for purchase orders such as date, order value, supplier name, purchase description, etc etc. when the user has filled in the information on the form i would like them to be able to click a button on the form screen that will take the values from the form and insert them into a specific word document, and have the values entered into a specific place on the word template. There is a lot of stuff out there but its not the best and its mainly about mailmerging it which i dont want to have to do because its a right pain in the proverbial behind. Has anyone done this before Many thanks, Rhys. Tag: compile error: invalid quaifier
  - 9
    - Projects, objects & modules I started learning VBA in MS Word yesterday. I have some programming experience in C++ and Java. I am trying to understand how the environment is structured and what Projects, Objects and Modules represent. For example I recorded a few macros using the macro recorder and then opened the VB Editor to see what was created. I notice that under "Project" are 3 folders. One is named "Microsoft Word Objects". Within this folder is what looks like a file named "This Document". What does "Project" represent What does "This Document" represent What is the difference between "This Document" and the "Project" Also under "Project" is a folder named "Modules". Within this folder is what looks like a file named "New Macros". This "file" seems to hold the code that represents the macros I recorded. Right clicking on the "Modules" folder allows me to insert another module into which I can add code for a Sub/s (short for subroutine/s I assume) via the VB Editor to do whatever. Why would you put code for different Subs into different modules The simple tutorials I have been studying seem to put all Subs into the one module. Why is the code for the recorded macros put into a separate module I am trying to work out exactly what Projects, Objects, and Modules are and how they interact. It seems like some sort of hierarchy. This environment is very new and quite confusing to me at the moment. Any help or references appreciated. Tag: compile error: invalid quaifier
  - 10
    - VBA read a value and not a formula Dear All, I have a question, I want to sum some values if a reference is equal to a date that I implemented in a cell that I defined as name (defined as string) name changes in a loop. I used the following formula ActiveCell.FormulaR1C1 = "=SUMIF(R[-2]C10:R[-2]C100 ,"" = name"", RC[7]:RC[84])" unfortunatelly it does not take the VALUE of the name variable but it writes it as =name. how can I force in my program that the value will be taken into account and not the formula which is behind thank you in advance Pompoire Tag: compile error: invalid quaifier
  - 11
    - ReportFault() vs. WerReportCreate/WerReportSubmit() on Vista Hi all, I'm experimenting with the available APIs for error reporting. On XP systems, I'm using ReportFault(), which seems to work as expected- it displays the WER dialogs, sends data to the Winqual site (including minidump data), launches a debugger when asked for by the user etc. Is this the right place to ask questions about those APIs If not, please ignore the following. (But if you know where I should ask instead, please drop me a note, thanks!) On Vista, ReportFault()'s behavior changed, unfortunately. With the default error reporting settings (automatic reporting without asking the user), it sends the crash report to the Winqual site - and then terminates the application. However, in my particular case, I need to re-gain control after WER reporting in my application in order to perform additional logging and clean-up, and to provide users with an option to continue working for a limited time (for example, to try and save their current data). Since ReportFault() didn't do what I wanted, I tried the WerReportCreate/WerReportSubmit combo instead. Those APIs do indeed return and don't terminate the application - but they also don't seem to report all the crash details correctly. For example, I've never seen any indication that one of the crash reports produced by the WerReport* APIs contained minidump information (judging from the problem report history in wercon.exe). My first guess is that I'm simply not using the WerReport* APIs correctly - but after trying lots of different options and variations, I'm pretty much at a loss. Hence my questions: - Where can I find tested sample code which uses WerReportCreate/WerReportSubmit() - Is there a way to use ReportFault() under Vista without terminating the application Thanks! Claus Brod Tag: compile error: invalid quaifier
  - 12
    - CurrentRegion Property to Specify SourceData in PivotCache Method I'm fairly new to writing VBA macros to create pivot tables in Excel, and I could use some help. I would like the macro I am writing to be able to use the Currentregion property in order to specify the SourceData for the PivotCache method, where the source data is located on a sheet named "macro". Any feedback warmly appreciated. Tag: compile error: invalid quaifier
  - 13
    - Passing Function As Argument I dunno if it's possible, but I'd like to pass a function name as an argument to a function. The idea is to use the result of the function to do some calculations, no matter what the function is. It would be like this: Function Find_Zeros( Function_Name As Function, Value_X As Double, etc) Thanks in advance. Tag: compile error: invalid quaifier
  - 14
    - Right-click menu icon Hi there, Can you tell me how to add an icon next to a custom right-click menu item Like the little scissors next to the "Cut" item, I would like to place an image next to my custom menu item. Any help would be great. Thanks. Tag: compile error: invalid quaifier
  - 15
    - Runtime Error '2001' I am using the following code to use an unbound text box to display the PM Name associated with the PM Number but for whatever reason, I keep getting the Runtime Error '2001' when I run the code. Private Sub Combo59_AfterUpdate() Dim StrName As String Dim strPM_Select As String strPM_Select = "[PM Number]=" & Me![Combo59] & "" StrName = DLookup("[Plan_Center_Name]", "Plan_Center_EPMC", strPM_Select) Me![PM Name] = StrName End Sub Please help. An explanation of the error would be great or if some one can tell me what it is that I am doing wrong that would be fabulous. Thanks! Tag: compile error: invalid quaifier
  - 16
    - Search (e.g. Windows Desktop Search) for specific words in VBA code Tag: compile error: invalid quaifier

CarlaCruz

Hi!

I'm a portuguese school teacher that uses vb 6.0.

The error mentioned occurs here **:

Public Sub introduz()
i = 0
Do While i <= 20
VF.Nr(i) = Val(InputBox("Introduza o numero de cliente", "Numero de cliente")) **
VF.NomeCliente(i) = InputBox("Introduza o nome do cliente", "Nome do cliente")
If VF.NomeCliente(i) = ("XYZ") Then
Exit Do
End If
VF.Dt(i) = InputBox("Introduza a Data da Factura", "Data da Factura")
i = i + i
Loop
End Sub

That's an array defined with public statement that uses an type structure also defined with public statement.

Can anyone help me

My students say thanks!!

Re: compile error: invalid quaifier

Andy Pope

Hi,

The following works for me.

Public Type typVF
Nr(20) As Long
NomeCliente(20) As String
Dt(20) As Date
End Type
Public VF As typVF
Public Sub introduz()
Dim i

i = 0
Do While i <= 20
VF.Nr(i) = Val(InputBox("Introduza o numero de cliente", "Numero de cliente")) ' **
VF.NomeCliente(i) = InputBox("Introduza o nome do cliente", "Nome do cliente")
If VF.NomeCliente(i) = ("XYZ") Then
Exit Do
End If
VF.Dt(i) = InputBox("Introduza a Data da Factura", "Data da Factura")
i = i + i
Loop

End Sub

Can you post the code where you define and declare the type.

Re: compile error: invalid quaifier

CarlaCruz

Hi!

Thanks a lot!

It works like this!!!!

Thanks!!

Re: compile error: invalid quaifier

CarlaCruz

Hi!

Thanks a lot!

It works like this!!!!

Thanks!!