Error Late-binding Creating Acrobat &"AcroExch.PDDoc&" (registrated Acrobat Prof 8.0)

What Do I Need For CreateObject("AcroExch.PDDoc")?
I was given code that converts PDF to text. I runs until I get to the following part of the code:

'instantiate object that we are going to use to get the text
Set myPDF = CreateObject("acroexch.pddoc")

The error is: "ActiveX component can't create object".

I guess I have to include the control in the Projrct->References, But what do I tick, do I need to load the library some how? if so how.

Is it "PDF Writer"? I am asking because "PDF Writer" is not free. I do not want to purchase it if in case it happens not to be the panacea to my problem

Thanks

---

How To Avoid Acrobat &"Save As Window...&" When Saving .doc File As .pdf
This code creates a document in a Word Objet and afther writing something on it, saves it as a pdf. When saving to pdf, Acrobat shows a window asking about "save as..." I would like to specify this save us path and file name form code and avoid that window.

Any ideas or suggestions...


'Acrobat PDFWriter needed.
'Reference to Word 9.0

Private Sub Form_Load()
Dim oWord As Word.Application
Dim defPrint As String
Set oWord = New Word.Application

On Error GoTo Err_Handler
With oWord
'To set default printer to the original one after this sub.
defPrint = .ActivePrinter
.Visible = True
.Documents.Add
'Here we create the report in word format...
.Selection.TypeText "Eureka"
.ActivePrinter = "Acrobat PDFWriter"

'Here apperas a PDF Window asking for "Save pdf file as.."
'And is this what I need to do by program.
.ActiveDocument.PrintOut

'Before closing Word, printing job has to be finish.
Do While oWord.BackgroundPrintingStatus > 0
Debug.Print oWord.BackgroundPrintingStatus
Loop
.ActivePrinter = defPrint
.Application.Quit wdDoNotSaveChanges
Set oWord = Nothing
End With
Exit Sub

---

Using Shell To Open Adobe Acrobat - &"Minimize&" Option Doesn't Work.
Hello, Everyone,

I've run into a problem with the following scenario:
From my Visual Basic 6.0 application I try to open several pdf files, one after another. The way I do that is by using Shell command to launch Adobe Acrobat application together with a given file. This is a sample VB code:


VB Code:
Dim Adobe_Acrobat As String  Dim PDF_Files_Path As String  Dim File_To_Open As String   Adobe_Acrobat = "C:Program FilesAdobeAcrobat 7.0AcrobatAcrobat.exe"  PDF_Files_Path = "C:TEMP"   For i = 1 To 5     File_To_Open = PDF_Files_Path & "TestReport" & i & ".pdf"     Shell Adobe_Acrobat & " " & File_To_Open, vbMinimizedFocus  Next i


The default action for the Shell command is to launch Adobe in the Minimized form. However, even if I specify the 'vbMinimizedFocus' option in the Shell command above, the Adobe window pops up on the screen wide open for every pdf file above (five times in this case). Even if you minimize the just opened Adobe window when the first pdf is displayed, it comes back up for the 2nd pdf and all subsequent ones. This happens for Acrobat 5.0, 6.0 and 7.0 versions.
The expected behavior should be that Adobe window remains Minimized and just gains focus in the Taskbar. I've tested exactly the same 'Shell' command with Notepad and it worked just as expected - Notepad opened all five text files but remained minimized in the Taskbar.

Does anybody know why the "Minimize" feature is not working with Adobe Acrobat, and is there a way to make it work?

Thank you in advance for your response.
Mark.

---

AcroExch.PDDoc Can't Create Object In VB6
Hi Experts,

I have the following function in Visual Basic. It works like a charm on my
computer, wich has Acrobat 6.0 Professional.

My problem is when I distribute this application, the function fails on the
client's computer. He has Acrobat 7.0 (Regular Not Pro) .

Is there a file that I need to distribute in order to make this work on a
computer that does not have a Professional version of Acrobat ?

Public Function CountPages(strFile As String) As Integer

Dim objApp As Object

Set objApp = CreateObject("AcroExch.PDDoc") '<<<<< This line fails :
Activex can't create object...
objApp.Open strFile
CountPages = objApp.GetNumPages
objApp.Close

End Function



"MMS <deltabank.net>" made the following annotations.

---

Check If Full Acrobat Is Installed And Not Only Acrobat Reader?
How can I check if the user have full acrobat installed and not only Acrobat Reader?

---

Check If Full Acrobat Is Installed And Not Only Acrobat Reader?
How can I check if the user have full acrobat installed and not only Acrobat Reader?

---

Launching Acrobat Or Acrobat Reader From Within A VB Program
I publish a computer program that has been written in Visual Basic. I want to view PDF files from within this application. Since I am not a programmer let me explain what I want to do. The user of my program will click on one of about 10 documents that they want to view. These documents are PDF files. I need to know specifically what coding is required to launch Acrobat or Acrobat Reader from within my application no matter whether the user has version 7.0 or any earlier version.

-Jay

---

Error Binding Data Field To Textbox - &"Type Mismatch&"
I am trying to bind a data field to a textbox. I am using an Access database and have the following code:

Dim DB as database
Dim RS as recordset

Private Sub Form_Load()

Set DB = OpenDataBase("DataFile")
Set RS = DB.OpenRecordSet("DataFile")

RS.MoveFirst

Set Text1.DataSource = RS <---error messsage occurs here
Text1.DataSource = "FieldName"

End Sub

-----------------------

I get "Type Mismatch" error on the above line trying to set DataSource of textfield. Any help would be greatly appreciated.

Regards, DC

---

Open PDF Through Visual Basic Only Works When Acrobat Prof 8.0 Instance Is Open
Hi all,

Something strange happens to my code (it used to work correctly in the past).

When executing next sample code:

Code:Dim ac_App As Object
Dim ac_AVDoc As Object

Set ac_App = CreateObject("AcroExch.App")
Set ac_AVDoc = CreateObject("AcroExch.AVDoc")

ac_AVDoc.Open "c: emp.pdf", "Test"

I get error message:

Quote:Run-time error '-2147024875 (80070015)'
Automation error

When Acrobat Pro 8 is running everything works fine.

With some sloppy programming I resolved my problem (see code below), but this doesn't seem right to me.
Does anyone know what the reason could be for this?

Code:Dim ac_App As Object
Dim ac_AVDoc As Object

Shell "C:Program FilesAdobeAcrobat 8.0AcrobatAcrobat.exe", vbHide

Set ac_App = CreateObject("AcroExch.App")
Set ac_AVDoc = CreateObject("AcroExch.AVDoc")

ac_AVDoc.Open "c: emp.pdf", "Test"

I've allready checked my register and AcroExch.App, .PDDoc, .AVDoc, etc.. are registrated.
Although, I noticed that there is also an instance of AcroExch.App.1 etc. registrated. Could this be the issue?
(see screen capture of registry in att.)

Hope anyone can help me, 'cause it's getting messy here at the moment !

Thanks in advance.

DoLp




Edited by - DoLoop on 5/30/2008 9:20:54 AM

---

Solution&gt; Error: &"&"&"&"&amp;H8007007E (-2147024770) The Specified Module Cannot Be Found&"&"&"
Hello

This is the error what i am getting after installing a package of one of my module on user testing machine.
The same module being working fine on others.


What can be the reason for this and what can be the probable solution for this?

Sandeep

---

Automating Adobe Acrobat Using The Acrobat SDK
Hi,
I am trying to print a pdf file to a file(using a printer driver that we have developed) by automating Acrobat by using the SDK(either version 4 or 5) provided by Adobe. Unfortunately, Adobe has not provided enough support in order to accomplish this task. I know this is probably a real shot in the dark, but has anyone had any experience with either version 4 or 5 of the Acrobat SDK? And if so, do you have any suggestions?

TIA,
Scott

---

Early Binding OK, Late Binding Gives Error: Member Not Found
It’s strange, the whole application works well in early binding. I had to change it to late binding to solve some issue. But now I get the exception:
Member not found. (Exception from HRESULT: 0x80020003 (DISP_E_MEMBERNOTFOUND))
At line:
Code:oActiveDoc.ActiveLayout = oActiveDoc.Layouts.Item(value)
 
 I also tried unsuccessfully:
Code:CallByName(oActiveDoc, "ActiveLayout", CallType.Set, 1)

The application uses AutoCAD drawing object oActiveDoc and was created in VB.NET.

Any idea why this happens?




Edited by - Barts007 on 7/10/2007 6:16:25 PM

---

Creating Program &"item&" In Existing Start Menu &"group&"
Hi all,

I'm finally at the stage of packaging my application for distibution here at work. When it installs, I don't want it to create a new group in the start menu rather I want to ADD it to an existing group. All of our essential programs go in to a group called "Desktop Applications". During the P&DW, I created a new Group under Programs called "Desktop Applications" and put the program item under that group thinking it would recognize it as an existing group and just add it. Well, apparently I did something wrong because it doesn't add it to this group, nor does it add it anywere else.
Does anyone know how to do this?

---

If I Use "SaveSetting App.Title, "Settings", "Font", "001122"" - Save Date In The Registry, Where Ca
If i use "SaveSetting App.Title, "Settings", "Font", "001122"" - save date in the registry, where can i find the value saved in the registry? Thanks

---

Creating Acrobat File
Is it possible (and how) to create a acrobat file with Visual Basic.
(without having acrobat installed on your computer)

thanks

roy
The Netherlands

---

A Stupid Problem: &"Error Accessing The System Registry&" (&"Solved&") Thank You
This is a very silly problem. I tried to have a look of References from Project dropdown menu, it returned a critical error:

"Error Accessing the system registry".

I reinstalled VB6 but it seems that the problem still exists. Anybody please tell me how to solve the problem.

thanks in advance





Edited by - kenyiwei on 5/6/2004 2:07:51 AM

---

EnumWindows AddressOf EnumWindowsProc, 0 &"Syntax Error&"</title> <script Type="text/javascript"> <!-- Function PrintTags() { Var Curr=document.getElementById('vB_Editor_QR_textarea').value;
I get "Syntax Error" when i put this code in to a button. Whats wrong?

EnumWindows AddressOf EnumWindowsProc, 0


______________________________________________________________________
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim Length As Long
Dim sName As String
Dim Temp As String
Static iCount As Integer

iCount = iCount + 1
Length = GetWindowTextLength(hwnd) + 1

If Length > 1 Then
sName = Space(Length)
GetWindowText hwnd, sName, Length
If Left(sName, Length - 1) Like "Order*" Then MsgBox "window found!"
End If

EnumWindowsProc = 1
End Function

---

Binding TextBoxes To Query Results And Handling Sessions [Was: &"Help Pls&"]
Hi

I have two questions, I was wondering if someone would be able to give me some help

1. I need to be able to populate a set of textboxes, with values which have been returned from a simple select query, i can seem to get them to bind to anythin but an textbox

2.I also am unsure how to code a session variable, I have a table of users and when i select view user profile, i want it to take the records userID, and pass that into a session variable which can be accessed by my results page, i know how to get the userId its jus the writing of the session variable which has me stuck

any help greatly appreciated
boyindie

---

&"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

---

Vista Error: &"program Is Not Working&" And App &"has Run Out Of Time&"
Client is running my vb6 app on Vista (in XP compatibility mode), and is getting an error that indicates the app "has run out of time and shuts the program down" (her words). This happens in a very specific section of the pgm that no xp machines report errors in.

Separately, on (attempted) startup, she gets the message that the app "has stopped working, where Windows will close the program and notify me later if a solution is available." But the solution is "as easy as allowing the program to close then re-opening it back up"

Help!?

---

Acrobat Automation Error
Hi Again Everyone,

It seems I only ever ask for help, not give it! Maybe when "I'm a big boy programmer" I'll be able to do a payback!

Anyway, am having a perplexing problem with trying to merge multiple pdf's into a single pdf using the Acrobat.tlb library.

I have it referenced (Acrobat 8.0) and I am using XP SP2.

My problem is the line...Set oMainDoc = CreateObject("AcroExch.PDDoc")
I tried the command immediately below (now commented out) and the same error occured...Error 430...Class does not support automation etc

I have tried all sorts of variations on the theme to get it to work to no avail
Can someone please tell me whats wrong here?
In every code search I have done, the code used is exactly as I have it and works for them!

Your help is much appreciated in advance.


Code:
Public Function MergePDFFiles(psRawPDFFilesDir As String, _
psSinglePDFOutputDir As String, _
psSinglePDFOutputName As String) As Long

'On Error GoTo MyError
On Error GoTo 0
Dim lErrNum As Long
Dim sErrDesc As String
Dim sMess As String
Dim bFirstDoc As Boolean
Dim sRawPDFFilesDir As String
Dim sSinglePDFOutputDir As String
Dim sSinglePDFOutputName As String
'acrobat library
Dim oMainDoc As Acrobat.AcroPDDoc
Dim otempdoc As Acrobat.AcroPDDoc
'Need to use Adobe internal Java Object
'in order to Add Book marks
Dim oJSO As Object 'JavaScript Object
Dim oBookMarkRoot As Object
Dim oFolder As Scripting.Folder
Dim saryFileSort() As String
Dim oFile As Scripting.File
Dim oFSO As Scripting.FileSystemObject
Dim sBMName As String
Dim lPos As Long
Dim lFile As Long
Dim lBMPageNo As Long

sRawPDFFilesDir = psRawPDFFilesDir
sSinglePDFOutputDir = psSinglePDFOutputDir
sSinglePDFOutputName = psSinglePDFOutputName
Set oFSO = New Scripting.FileSystemObject
Set oFolder = oFSO.GetFolder(sRawPDFFilesDir)
Set oMainDoc = CreateObject("AcroExch.PDDoc")
'Set oMainDoc = New Acrobat.AcroPDDoc

bFirstDoc = True

If oFolder.Files.Count = 0 Then
Exit Function 'nothing to do
End If

'Because the FSO folder files collection does not allow for
'native sorting, we need to plug all the files into an array to sort
ReDim saryFileSort(1 To oFolder.Files.Count)
lFile = 0
For Each oFile In oFolder.Files
lFile = lFile + 1
saryFileSort(lFile) = oFile.Name
Next
'do your sort here, or not
'goUtil.utBubbleSort saryFileSort

For lFile = 1 To UBound(saryFileSort, 1)
If LCase(Right(saryFileSort(lFile), 4)) = ".pdf" Then
If bFirstDoc Then 'open the pdf and insert/bookmark first page
bFirstDoc = False
Dim IsOpen As Boolean
IsOpen = oMainDoc.Open(sRawPDFFilesDir & "" & saryFileSort(lFile))
Set oJSO = oMainDoc.GetJSObject
Set oBookMarkRoot = oJSO.bookmarkroot
sBMName = saryFileSort(lFile)
lPos = InStr(1, sBMName, "_{", vbBinaryCompare)
If lPos > 0 Then
sBMName = Left(sBMName, lPos - 1) & ".pdf"
End If
oBookMarkRoot.CreateChild sBMName, "this.pageNum =0", lFile - 1
Else 'insert/bookmark rest of pages
Set otempdoc = CreateObject("AcroExch.PDDoc")
otempdoc.Open sRawPDFFilesDir & "" & saryFileSort(lFile)
'get the Book mark page number before the actual insert of new pages lBMPageNo = oMainDoc.GetNumPages
oMainDoc.InsertPages oMainDoc.GetNumPages - 1, otempdoc, 0, otempdoc.GetNumPages, 1
otempdoc.Close
sBMName = saryFileSort(lFile)
lPos = InStr(1, sBMName, "_{", vbBinaryCompare)
If lPos > 0 Then
sBMName = Left(sBMName, lPos - 1) & ".pdf"
End If
oBookMarkRoot.CreateChild sBMName, "this.pageNum =" & lBMPageNo, lFile - 1
End If
End If
Next
oMainDoc.Save 1, sSinglePDFOutputDir & "" & sSinglePDFOutputName
oMainDoc.Close
MergePDFFiles = 33 'saved OK so no error

CLEAN_UP:
Set oFolder = Nothing
Set oFile = Nothing
Set oFSO = Nothing
Set oBookMarkRoot = Nothing
Set oJSO = Nothing
Set oMainDoc = Nothing
Set otempdoc = Nothing
Exit Function
MyError:
'lErrNum = Err.Number
'sErrDesc = Err.Description
'MsgBox sErrDesc
MergePDFFiles = Err.Number
'Enter you error handler
Set oFolder = Nothing
Set oFile = Nothing
Set oFSO = Nothing
Set oBookMarkRoot = Nothing
Set oJSO = Nothing
Set oMainDoc = Nothing
Set otempdoc = Nothing
End Function

---

The Data Binding Dll, &"VB5DB.DLL&", Could Not Be Loaded.
I get the following error message when running my executable vb app on Terminal Server:

The data binding dll, "VB5DB.DLL", could not be loaded.

This error occurs when I run a procedure that sets a recordset using the following method:

db as database
rs as DAO.recordset

I also have the DAO object on my form (not sure if this is necessary, but that's what I got from Microsoft's Knowledge base). I wasn't sure if they were saying you need the vb code as well as the object. Any help is appreciated.

---

Method &"SaveAs&" Or &"Save&" Of Object &"Excel.Workbook&" Does Not Work.
Hi people.
I did for a long time a program that uses excel automation, so that from a template will create a final file with some data pulled from the database (with ADO). At the end and when the Excel file is ready to be saved I got in a couple of computers some problems. In the whole LAN have XP, but in these 2 computers we have SP2. I have checked the rights and are OK (I have even tried to save the Workbook under the Temp folder and also the same problem).
Working with Office 2003 (SP1).
I have searched in internet about any bugs but I don´t find anything.
Any ideas.
Thanks for your time
Jaime

---

&"Run-Time Error '28':&" &"Out Of Stack Space&"
Ok, I know the cause of this issue is one sub calling another, repeaditly. It runs about 3400 loops before crashing, but is not infinite. I was wondering if anyone knew a way to clear the stack during it's run.

---

How To Replace &"Apple&" With &"Banana&" In A String That Contains &"Orange&" In A TXT File
Whoa! Long thread title. Basically, how can I search for any string in a text file that contains "Orange", then replace "Apple" with "Banana" in that same string? Is this difficult? Thanks!

---

Data1.RecordSource = &"select * From Salary Where &#22995;&#21517; Like &" + S + &" &" * &"&"
Data1.RecordSource = "select * from salary where 姓名 like " + s + " " * ""
thanks in advance gentlemen and ladies..
firstly...I don't know what must add "++" between "s " variant..
who can tell me why?? thanks , ,, I really don't know why it does this..
maybe i am a beginner..please forgive me why add ++ between s..thanks

---

How To Change Boolean Field From Displaying &"0&" And &"-1&" To &"Yes&" And &"No&"
Hey there,

I have a data report, which displays a few fields from an Access table, one which is a boolean. At the moment if the boolean value is True, then on the data report it displays "-1", and if False "0".

How can I change this so it displays "Yes" if true and "No" if False?

Would be really grateful for any help.
Thanks.

---

Binding The &"Datasource&" Property
hi guys and girls!

this site has been of tremendous help until now, and hopefully in the future too, so Thanx.

my problem: can I bind the "Datasource" property of a control like this:

Code:
dim tmpBinding As Binding
dim ctrlTmp As Control

tmpBinding = New Binding("Datasource", DS1, "DS2")
ctrlTmp.Bindings.Add(tmpBinding)


If yes, how should the DS1(DataView or smth like) and DS2(DataView or smth like) look like?

the ctrl could be DataGrid, Combo or List ...

thanx.
if there are ambiguous things don't hesitate to make them known.



Edited by - vlad_ on 2/21/2005 12:26:32 PM

---

Extract Local Names For &"OK&", &"Cancel&" And &"Apply&"
Hi!

I noticed that some programs written in C++ have an English language, but the captions of the buttons "OK", "Cancel" and "Apply" are in German, Swedish or whatever localized Windows version the user utilizes. Any idea how to obtain the captions of those buttons in VB? The only method which comes into my mind is to get the locale ID and have an array with strings for the the various language versions, but I doubt that those programs do it in that way.

Regards,
Sebastian

---

&lt;input Type=&"submit&" Name=&"op-savefile&" Value=&"Save&"&gt; - How To S
<input type="submit" name="op-savefile" value="Save"> - How can you submit this button through visual basic in a webbrowser?

---

Disabling &"wake Up&", &"sleep&" &amp; &"power&" Button
hello there, how to disable "wake up", "sleep" & "power" button with visual basic? thanks

---

Pleez, Read This!!! Matter Important! "Printing In "DOS Mode" Using "Shell" -not Happening, I Wonder
Hi

[I had to repost it since I have not received any replies for my earlier post]

I have a problem.

Following is the code :

Shell("c:windowscommand.com /c type " & App.path & "matrix.txt &gt;prn")

where App.path is C:XYZ

when the above line is executed, the contents of "matrix.txt" is not printed on the printer. Instead, control just passes on to the next line.

So, to find out why, I modified the line thus.

Shell("c:windowscommand.com /K")

The above command takes me to the "command prompt". Here, when I give the command "type c:xyzmatrix.txt &gt;prn", which is what the vbcode does, I get the message "file creation error".

So, I have identified the problem. Can anyone tell me why this "File creation error" occurs, And how to solve the problem?

Thanks for reading through.

---

Late Binding Error When Adding 'Option Strict' To Mshtml Routine
This code works great for me except I prefer using option strict in my code. I'm having trouble with the following code when I implement Option Strict. The code will search for a link or input element, set focus and login. Hope there is a simple solution. Thanks.

Code:
   Private Sub LoginToWebsite(ByRef wBrowser As SHDocVw.WebBrowser)
        'set focus to input or label element and login to website
        Dim HTMLDoc As mshtml.HTMLDocument
        Dim strElement As String = ""
        Do
        Loop Until Not wBrowser.Busy
        HTMLDoc = wBrowser.Document < --- must change for Option strict

         ***** 'HTMLDoc = CType(wBrowser.Document, mshtml.HTMLDocument)' ****

        Dim iHTMLCol As mshtml.IHTMLElementCollection
        Dim iHTMLEle As mshtml.IHTMLElement
        iHTMLCol = HTMLDoc.getElementsByTagName("input") 'textboxes
        'iHTMLCol = HTMLDoc.getElementsByTagName("a") 'links
        For Each iHTMLEle In iHTMLCol

            iHTMLEle.focus() <--- **** Late Binding because focus can only be set for the WebBrowser object ******

            Sleep(100)
            SendKeys.SendWait(sUsername)
            SendKeys.SendWait("{TAB}")
            SendKeys.SendWait(sPassword)
            SendKeys.SendWait("{Enter}")
            Exit For
        Next
    End Sub




Edited by - blaforce77 on 11/12/2006 4:02:46 PM

---

"server Not Yet Been Opened" & "Object Variable Or With Block Variable Not Set" Error
I'm a new user of Crystal Report 8.5. I'm using VB6 and SQL Server 2000. I have designed a report at CR 8.5 and inserted it on VB 6, how will I connect?
I have tried a sample code below but I'm getting an "Object variable or with block variable not set" error. How do I solve this? Please Help. Thanks in advance Gurus

'General Declaration
Dim Report As New CrystalReport1
Dim crApp As New CRAXDRT.Application
Dim crReport As CRAXDRT.Report
Option Explicit

Private Sub Form_Load()
Dim crTable As cRAXDDRT.DatabaseTable
Set crReport = crApp.OpenReport("c:durden mmiclossratioreport.r pt")
crTable.SetLogOnInfo "servername", "dbasename", "userid", "password"
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub



And when I'm using this code, I'm getting a "Server has not yet been opened" error.



'General Declaration
Dim Report As New CrystalReport1
Dim crApp As New CRAXDRT.Application
Dim crReport As CRAXDRT.Report
Option Explicit

Private Sub Form_Load()
Dim crTable As cRAXDDRT.DatabaseTable
Set crReport = crApp.OpenReport("c:aris mmiclossratioreport.rpt ")
crReport.Database.Tables(1).SetLogOnInfo "mis002", "mqs", "aris", "110796"
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub



--

---

&"Error During Loading&",&"Out Of Memory&" :O(
I programmed my graduation project by visual basic and after 6 months of work ,suddenly the program didn't run

i got a massege saying "Errors during load .refer to 'D:......form1.log' for details" ,after clicking ok another message appears saying "out of memory" ,then nothing happened and the program didn't run.........
the program was working well, all what have been changed is that i installed a fresh copy of windows xp, then the problem happened........
does anyone can help ,my graduation project test is in the coming 3 weeks, i am in a very difficult attitude.............

---

REPLACE(variable,&"X&",&"Y&") Error
I've use this before with no problems now all of a sudden I have a problem.

alt1 = UCase(tbAlter.Text)
alt2 = REPLACE(alt, "Z", "S")

Compile error: Wrong number of arguments or invalid property assignment.

Do I need to add a component or reference?
Thanks

---

Syntax Error In FROM Clause With "from Mds-nro" But Not With "from [mds-nro]"
one more thing for you to ponder:

when I type my sql statement in a text area on a form like this: "select * from mds-nro",
I get the following error:

Error -2147217900: Syntax error in FROM clause.

when I type my sql statement like this: "select * from [mds-nro]",
I get no error and I can see my o/put sitting pretty in the list box.

Why, I do not know!!!

---

Getting The File &"Type&" Descriptions (i.e., &"doc&" = &"Microsoft Word Docume
Hello there,
I am creating an Explorer-type Listview to display the files in a directory, and one piece of info I need to know how to obtain is the file "type" (i.e., "doc" = "Mircosoft Word Document", "xls" = "Microsoft Excel Worksheet", etc.). Is there an API, or does anyone have a technique to do this? Thanks.

---

Changing The &"title&" Of A VB Created Word Doc From &"Document1&" 2 &"BadgerBai
Ok, when I create a new word doc it automatically takes on the name "DocumentX", where X is a number greater than 1.
What I want to do is change this by using something like:

VB Code:
Dim objWoof As New Word.ApplicationDim objGrowl    As Word.Document    Set objGrowl = objWoof.Documents.Add    objGrowl.[What Property] = "Badger Baiters R Us"

Is this possible?

Oh, and b4 anyone mentions it, I do NOT want to save it, that is NOT an option...just getting that out the way now

Rarararrrrrrrrr

Woka

---

Resubmitting: "BeginTrans" , "CommitTrans" And "Rollback With Data Environments
----- Original Message -----


From: shankar [ babu ]


To: visualbasic-l@OpenITx.com


Sent: Wednesday, February 26, 2003 12:24 PM
Subject: "BeginTrans" , "CommitTrans" and "Rollback with dataenvironments



hello everybody,
I am using data enviroment designer in my project.


I am getting error while using
"BeginTrans" , "CommitTrans" and "Rollback"
of the DataEnvironment 's connection properties



kindly let me know the solution
thanks in advance
bye
shankar

---

Can Someone Guide Me On How To &"PUT&" A &"CHECKBOX&" Inside A &"Datagrid&" For VB6.0?
Can someone guide me on how to "PUT" a "CHECKBOX" inside a "Datagrid" for VB6.0?
please i need these to complete my program security....................for my thesis? please please!!Can someone guide me on how to "PUT" a "CHECKBOX" inside a "Datagrid" for VB6.0?

---

Combobox Help &"&"&"&"&"&"&"&"&"&"&"&"&"'Urgent&"&"&"&"&"&"&"&&quo
Hi Guys,,,,,,

This may be the stupid way.But i need this.................

   I am using combobox in my form. I set the style to Dropdown combo.

Here we can exter text in combobox b'coz of the style Dropdown combo.
But i don't want to allow user to enter ......allowed only to select.....

For that i can set the style to Dropdownlist.

But i don't want this style. B'coz i can't clear the text at run time.

Tell me if dropdown combo means, User shouldn't enter at runtime
Tell me if dropdown list means, how to clear the text at runtime...


Pls help me out.....Urgent
sangeetha

---

"BeginTrans" , "CommitTrans" And "Rollback With Data Environments
hello everybody,
I am using data enviroment designer in my project.


I am getting error while using
"BeginTrans" , "CommitTrans" and "Rollback"
of the DataEnvironment 's connection properties



kindly let me know the solution
thanks in advance
bye
shankar

---

Help Converting Early Binding To Late Binding
a previous thread suggested using late binding instead of early binding to make a VB project compatible with all versions of Excel. I'm not sure how to do this with the code I'm using and there are no examples in VBhelp. Can anyone help?

'late binding version
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set xlBook = GetObject(DefaultPath & "Allocation.xls")
Set xlSheet = xlBook.Worksheets(1)

xlSheet.Cells(zRow, 1).Value = "100"

xlBook.SaveAs SpreadsheetPath & "Allocation.xls"
xlBook.Application.Visible = True
xlBook.Windows(1).Visible = True

---

Is Late Binding Faster Than Early Binding
Which one is the faster early binding or late binding?

---

Objects: Late Binding Vs Early Binding
Hi,
I've finally learned how to early bind an object. (Project-Relations). This is supposed to give "Better performance" per help.
What does this really do?
What "performance" is better?
Another question I just thought of. I've gotten responses with "From help" as the greeting. These are far more informative then any help files I have found.
Where are these help files?
Thanks again,
Al.

---

Objects: Late Binding Vs Early Binding
Hi,
I've finally learned how to early bind an object. (Project-Relations). This is supposed to give "Better performance" per help.
What does this really do?
What "performance" is better?
Another question I just thought of. I've gotten responses with "From help" as the greeting. These are far more informative then any help files I have found.
Where are these help files?
Thanks again,
Al.

---

What Is Mean By Binding?what Is Early Binding And Late Binding?
what is mean by binding?what is early binding and late binding? please give details brieafly with example.

---

What's More Efficient---Data Environment Or "manually" Creating Report Forms?
After reading the thread on Data Report, I have a question. I' sure my question won't come out right, but if anyone knows wha I'm trying to say, please respond. Is it easier or mor efficient to create reports from an database through using th Data Environment object or jusr creating a form that displays report?

I'll be in the process soon to be ready to setup forms to displa specific reports from many of the database tables. My thinkin is to create forms for the specific database tables & use SQ queries to get the data and use listboxes to display the data=2 But after reading the current thread as I said, I'm getting little confused now on how I should go forward. Right now, I'm I used the link that was in thread and have been reading following the directions to create a data environment and so fa I've been able to follow it. My question is, so I continue t follow it, or go with my original train of thought with creatin the forms? It seems like it would be "easier" to use Data Repor objects to show the queried data. I'm feeling uneasy because al of this is still largely new to me.

---