Type: Posts; User: Arnoutdv
Search took 0.06 seconds.
I'm not going to advise you to change your project, nor am I going to say get rid of some forms, I'm also not telling you to merge the functionallity of some forms in a single form, but somehow you...
Do you get the error from within Excel or when using Excel automation?
Have you tried the default xlsx format of Excel (2007 and up)?
When I replace the Printer object with the current form then it seems to work.
Dim s As String
.ScaleMode = vbMillimeters
.Font = "Arial"
You need to give more information.
A skeleton could look like this:
Public Sub MyLengthyRountine()
Dim oRS As ADODB.Recordset
Dim iPercentage As Integer, iPrevPercentage As Integer
But using the Sleep API you will hold all processing.
It seems that you have a routine which needs to be initialized, then some processing needs to be done and then a message to indicate the work is...
Based on the size of your table you need also at least 600MB for the created recordset plus the amount of overhead of getting the data from the database -> interface -> recordset.
Then it is not a string array, but a single string.
You need to use string manipulation:
How is rx defined and how do you get the data.
You are using the rx variable as if it's an array of string values, but it's seems it's not an array of strings, just a "large" string.
Maybe start with something simple to get used with how to program in VBA.
Then if you grasp the concept of variables, objects, strings etc etc, just then step into the world of database programming.
Maybe you are calling the service to many times in a row and you are blocked and/or the connection is refused for some limited time.
It should be possible using ADO 2.x and this provider "Provider=Microsoft.ACE.OLEDB.12.0"
Just try it, but the target PC at least needs .Net Framework 3.5.
Maybe it's already installed, maybe not...
If you place quotation marks round a variable name then it will be a literal text.
Dim team As String
team = departmentcombobox.text
The other way is to download and install the .Net 4 runtimes on the target computer:
You should start with adding "Option Explicit" as the first line of the module you are working in.
This will cause at least an error on
.CommandText = handlerbydept
What is the "&_" doing in the string
Also objconn seems to be a Connection object.
You can not just assign a string to it.
Dim sDBPath As String, sConnection As String
Dim oConn As...
Have you tried using the Macro recorder to see what happens before and after the print preview?
There is also no difference when using a variable instead of a predefined constant:
Private Const CRLF As String = "CL" ' pseudo delimiter
Private Sub Form_Click()
Hello octor, you don't have to introduce yourself in every posting :)
If you want to check if you have added any items to the Listbox List1, just refer to the .ListCount property of the ListBox....
Indeed many VB6 controls don't support unicode.
Look in the Codebank for a Unicode control set by Krool....
It seems you are correct.
Then you would need to build the normal .Text property yourself, otherwise the content may not be visible for some users.
Unless you know your audience :)
About the plain text, maybe this can be of any help to you
strText = val(txtboxword.Text)
strLetter = val(txtboxLetter.Text)
What do you think happens in the above 2 lines?
But if you want to find 1 of the possibilties then why do you use <> instead of =
Do While (fullprg(loc + 1) = ">(" & var1name & ");") Or (fullprg(loc + 1) = ">(" & var2name & ");")
You are making no sense.
Just guessing, the "OR" should be an "AND"
Then just for further information, dim your variables properly.
Dim pr As String
You should repeat the compare statement:
Do While (fullprg(loc + 1) <> ">(" & var1name & ");") Or (fullprg(loc + 1) <> ">(" & var2name & ");")
loc = loc + 1
Creating the database, tables, queries etc can all be done using ADO.NET
A simple Google search reveals a lot of samples.
Very basic sample:
Dim fID As Integer
Dim sLine As String
Dim lLineCnt As Long
fID = FreeFile
Open "PathToYourFile" For Input As #fID
Did you actually buy Visual Basic 6, a product from 1997, 18 years old?
If you are new to VB programming why not start Visual Basic Express?
Visual Basic works with projects, you first create...
In the Input statement the variable "fe" holds the date of current line.
If you want to add only lines with a specific date then you should compare the date in "fe" with the desired date.
I think we can't fix your project if we don't see more of it...
In the article the first word is SharpMap, which is a hyperlink to https://sharpmap.codeplex.com/
Somehow I think xuantruongbn is not the creator/programmer of MicroStation SE.
There must be a hidden question somewhere in his post. :rolleyes:
A basic standard string concatenation test, performed in the IDE:
Private Sub Form_Load()
Dim MyString As String
Dim i As Long
Dim l As Long
MyString = "Hello"
For i = 1 To 100
I assume the needed library is not available on all target machines.
Can you post a basis sample project with some data files in which this problem occurs?
Click Here to Expand Forum to Full Width
Survey posted by VBForums.