Visual Basic :: HELP Common Dialog Error!

Common Dialog Error?
I am using the following code to try and get an open box to appear, however an run time error comes up saying object required???? Any ideas

Private Sub cmdSave_Click()
' Set CancelError is True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Set flags
CommonDialog1.Flags = cdlOFNHideReadOnly
' Set filters
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' Specify default filter
CommonDialog1.FilterIndex = 2
' Display the Open dialog box
CommonDialog1.ShowOpen
' Display name of selected file
MsgBox CommonDialog1.FileName
Exit Sub

ErrHandler:
'User pressed the Cancel button
Exit Sub
End Sub

Common Dialog Error
When I go to use the Common Dialog to select a font, it tells me that no fonts are installed...I have hundreds of fonts.

What's wrong?

Error With The Common Dialog
Hi I'm trying to change the font in a Rich Text Box. So when I run a line like this

CommonDialog1.Action = 4

I get A msgBox Saying
"There are no fonts installed. Open the fonts folder from the Control Panel to install fonts."
then I press OK and it gives me a Run-time error '24574' no fonts exist Error, so I go to the fonts folder and there are plenty
of fonts.

Does any body have a solution or alternative?

Thanks all

Common Dialog Error
lads,

in vb6 i show the print setup using a common dialog

my proplem is do when i create an exe i get
a error saying the comdlg32.ocx is not registered on some pc's

do i need to register the ocx on every machine or is there a quick and
clean
way around this
without creating a vb package

or can u show the print setup using something else

Thanks In Advance

Mick

Error After Usin Common Dialog
Hi!
After pressing a button with this code

Code:
Private Sub Command1_Click()
On Error GoTo cancel_error
cd.Filter = "Documentos Word|*.doc|Todos los Documentos|*.*"
cd.ShowOpen
texto = cd.filename
MsgBox cd.filename
MsgBox Val(idactual)
Exit Sub
If Conn1.State = 1 Then
Conn1.Close
End If
base = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=base.mdb"
AccessConnect = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=datos.mdb"
Conn1.ConnectionString = AccessConnect
Conn1.Open AccessConnect
Set Rs1 = New adodb.Recordset
Rs1.Open "SELECT * FROM trabajos", Conn1, adOpenDynamic, adLockOptimistic
''Do Until Rs1.EOF Or Rs1.BOF
Rs1.AddNew
Rs1("clienteid") = Val(idactual) ''= Rs1.Fields.Item("id").Value
Rs1("trabajo") = cd.filename
Rs1.AddNew
Conn1.Close
Call actualizar

Exit Sub
I get the MS ODBC Couldn Find File (Unknown) error...
Any ideas???
Its frustrating
Cya & Tnx!

Common Dialog. .and Listbox . Also A New Error
ok theres a text.txt that countains somehting like this
a word
2nd word
3rd word
etc
etc

so when I open to listbox loads like this
a word
2nd word
3rd word
....

Runtime Error In Common Dialog
Hello, I have this error, when I close a common dialog box in my app, it has a runtime error. Also happens when I click "cancel". This is because nothing is selected, anyone know how to fix this? Thanks.

Common Dialog Component Error
I know I should know how to fix this, but I don't so, I'm having trouble with my common dialog box. Everything works but when I click cancel when the dialog box is open, there is an error. How do I fix this error from showing up, and when you click cancel, the common dialog box (cd1) just dissapears?

Common Dialog Cancel Error
using cdbFile.ShowOpen

When clicking the cancel button I get an error. I set CancelError to False.

How do you keep from getting the error?

Thanks again.

Excel Common Dialog Error
In relation to my previous message... (common dialog license)

I think I should have specified that the program is written behind excel. At one point I was getting the same error in Excel running on the win98 platform, to solve this I copied the OCX file from the original win98 CD. This worked but When I open the spreadsheet on the NT platform I got the same error, as I am not hugely experienced in VB I hope this isn't a stupid question but would NT require a different OCX or DLL file

Again thanks for any help
Steve

Question: Common Dialog Box Error.
Greetings.

I wrote this file open Dialog in VB 4, and it did work, however it seems to have Broke, and i was wondering what went wrong??? maybe someone can help.

this code did not break until i upgraded to VB 5.0. now i get the Error Method or data member not found.

i dont want to have to rewrite my app in VB 5.0 from scratch, can someone help direct me in the correct path... thanks.

Sub FOpenProc()

Dim RetVal

On Error Resume Next

Dim OpenFileName As String

frmMDI.CMDialog1.Filename = ""

frmMDI.CMDialog1.ShowOpen

If Err 32755 Then ' User chose Cancel.

OpenFileName = frmMDI.CMDialog1.Filename

' If the file is larger than 65K, it can't

' be opened, so cancel the operation.

If FileLen(OpenFileName) > 65000 Then

MsgBox "The file is too large to open."

Exit Sub

it is this line : frmMDI.CMDialog1.Filename = "" in the code that is causing the problem,,,, according to VB. but it may be anywhere in VB. this is the file, open box. nothing spectaculer here. im just at a loss.

Common Dialog Error Run-time Error
Hi,
I have an app (VB6) which uses the Common Dialog Conrol (Microsoft Common Dialog Control 6.0 (SP3)) to allow the user to browse for a folder path and specify a filename.

On my machine, both in code and the compiled exe, this works fine, no problems - this is also true when running on another machine as well.

However when I run the app on another test machine and attempt to open the common dialog box I get a run time error:

Run Time Error '5'
Invalid Procedure Call or Argument

If I debug the app and run it in the IDE on this machine I do not receive this error so I am at a loss as to what it could be.

The code I use to open the common dialog box is:

Code:
sFileName = GetSaveFileName("ReportName")

Which calls the function getsavefilename which is:

Code:
Private Function GetSaveFileName(ByVal sReportName As String, Optional ByVal bCopiedFile As Boolean = False) As String

Err.Clear
On Error GoTo catch
try:

If Not bCopiedFile Then
cDLG.FileName = sReportName & "_" & Replace(Format(Now, "dd mmm yyyy"), " ", "_")
cDLG.FileName = Replace(cDLG.FileName, ":", "-")
Else
cDLG.FileName = sReportName
End If

cDLG.DialogTitle = "Open File"
cDLG.InitDir = "C:"
cDLG.Filter = "Excel Files (*.xls)|All Files (*.*)|*.*"

cDLG.CancelError = True
cDLG.ShowSave

GetSaveFileName = cDLG.FileName

catch:
If Err.Number = 32755 Then GetSaveFileName = "***Cancelled***"

End Function

As I say, this works on some machines and not on others, and on the machine it doesn't work on when running through code no error is thrown.

Has anyone got any idea what could be causing this? I am at a loss as to what it could be. This is running on Windows XP.

Thanks in advance.

Run-time Error '429 && Common Dialog Problem
I wrote a program to kind of navigate through a bunch of exe's, so the user could just select from a puffed up menu what he/she wanted to do, then the program would open the appropriate exe and hide itself, then when the program was done, it would pop back up and the user could then choose something else. Works great, on my computer. But when I e-mail it to someone else and they try to use it, they get two errors:

COMDLG32.OCX or one of its dependencies not correctly registered: a file is missing or invalid

and

Run-time error '429': ActiveX component can't create object

How can I compile my exe to be self contained? I use a couple of API calls and have referenced the scripting runtime library, but everything else is absolutely standard VB.
Any suggestions? Still bombs when both my computer and someone elses are both running Windows 2000. I need it to work from XP down to 98.
Thanks!

Common Dialog Save As - Runtime Error 70
I am getting the following erro message when I use the commondialog control to save a database file to a new file.

Here is my code:

Dim oldfile, newfile

oldfile = frmMainMenu.CommonDialog1.FileName

CommonDialog1.Filter = "*.mdb"

CommonDialog1.ShowSave
CommonDialog1.FilterIndex = 1

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
CommonDialog1.FileName & ";Persist Security Info=False"

newfile = frmMainMenu.CommonDialog1.FileName

FileCopy oldfile, newfile

When I get the error and go to debug the info for both files show the correct name and path but it will not create a copy of the file to the new location.

What am I doing wrong?

Compile Error? Using Common Dialog Contorl.
Code:
Private Sub mnuFileOpen_Click()
Const conBtns As Integer = vbYesNoCancel + vbExclamation _
+ vbDefaultButton3 + vbApplicationModal
Const conMsg As String = "Do you want to save the current document?"
Dim intUserResponse As Integer
On Error GoTo OpenErrHandler
cdlEdit.CancelError = True
If mblnChange = True Then 'document was changed since last save
intUserResponse = MsgBox(conMsg, conBtns, "Editor")
Select Case intUserResponse
Case vbYes 'user wants to save current document
Call mnuFileSave_Click
[b]If blnCancelSave = True Then 'user canceled save
Exit Sub[/b]
End If
Case vbNo 'user doesn't want to save current document
'process instructions below End If
Case vbCancel 'user wants to cancel Open command
Exit Sub
End Select
End If
cdlEdit.Filter = "Text Files(*.txt)|*.txt|All Files(*.*)|*.*"
cdlEdit.FileName = ""
cdlEdit.ShowOpen

Close #1
mblnChange = False
frmEdit.Caption = cdlEdit.FileName & " - Text Editor"
Exit Sub

OpenErrHandler:
End Sub

when i try to make this file has a .EXE i get compile error message..

the bolded lines are the ones highlighted when the message shows.

can u help?

Common Dialog ShowSave Cancel Error
Why doesn't this work? When I press the "Cancel" button, I get run-time error 32755 "Cancel was Selected". I have an error handler and I have the cancelerror property set to true. (I have also set the property to true in the properties button of the common dialog).

Private Sub mnuExcelExport_Click()
Dim export As Boolean
Dim strFileName As String

On Error GoTo Cancel_Error
With CommonDialog1
strFileName = CJobCost.JobName & Trim(" Job Costs.xls")
.Filter = "Excel (*.xls)|*.xls"
.FileName = strFileName
.CancelError = True
.ShowSave
If .FileName <> "" Then
export = spreadItems.ExportExcelBook(.FileName, "")
End If
End With
Exit Sub
Cancel_Error:
If Err.Number <> cdlCancel Then
MsgBox Err.Description
End If
End Sub

Open File Error With Common Dialog
Hi,

I have an open file button, which uses the common dialog control...

The problem is, is that the program errors if the cancel button is selected.

Please help me eliminate this annoying error?

Here is the code;

Private Sub cmdopen_Click()
Dim customer As onecustomer
CommonDialog1.ShowOpen
txtfilename.Text = CommonDialog1.filename
filename = txtfilename.Text
Open filename For Random As #1 Len = Len(customer)
numberofrecords = LOF(1) / Len(customer)
num.Caption = numberofrecords
Close #1
End Sub

thankyou,
Mark

Common Dialog Ocx Gives Error Msg On Computers Other Than The One It Was Designed On.
I am having problems with the Microsoft Common Dialog Control. I compiled a project using it on my computer. It worked fine until I tried to use it on another computer. Then, it gave me this error message when I tried to run it.
The error message had the 'Critical' icon on it (x) and it said:

"Failed to load control 'CommonDialog' from COMDLG32.OCX. Your version of COMDLG32.OCX may be outdated. Make sure you are using the version of the control that was provided with your application."

Maybe it's because the other computer had Win98? (I have Win95 .)
I've attached a ZIP with my project, form, module, ActiveX, etc....

Please reply,
-Jatopian

System Error From Using Common Dialog Control
Hi, when i try to place a common dialog control onto my form a system error message box appears, i need this control to save a file within the project, is there any way around this? Thanks.

Common Dialog Control (unspecified Error)
Hai Guys,
I am a newbie to VB. i want to use Microsoft Comon Dialog Control in my form. so i have added this control to the toolbox. when i use my mouse over the control it shows me 'Unknown'. and when i click it and use it in my form it is giving me 'Unspecified Error'.
pls help me ....
how can i solve this problem. I am using VB 6.0. and this common dialog control is of version 6.0. how can i get he exact version of this control.
thanks & regards
Mahesh

Common Dialog Cancel Error Trap?
If the user hits Cancel on the Common Dialog box... the way my program i set up now the code keeps running and i get to an error because no file has been selected.

If they hit cancel, I want to return to the previous state... basically.. where the main form is being displayed and everything is idle. I hope i've explained so you understand.

Thanks,

Eric

Automation Error With Common Dialog Control
I have a VBA application in MS Word which includes a Common Dialog Control on one of the forms. On some machines, An 'Automation error' occurs when Word tries to load the form in question.
I have managed to track the problem down to the Common Dialog Control, because if I remove this from the form, it loads and the application runs (but for the vital load and save facilities).
The relevant files for this control appear to be Commdlg.dll and Comdlg32.ocx. So I have replaced these on a machine which has the problem, using the files taken from my machine (which does not have the problem).
However, this hasn't helped at all.

Furthermore, if I try to view the properties of this offending Common Dialog Control it comes up with a non-descript System error.

I've tried re-installing Word ('97 & 2000) and have run out of ideas completely.

If anyone has any ideas, please share them!

Common Dialog Control Error HELP URGENTLY NEEDED
This is the code:

CommonDialog1.ShowSave
SaveFile = CommonDialog1.filename

If CommonDialog1.CancelError = False Then
Open SaveFile For Output As #2
For i = 0 To lstLogs.ListCount - 1
keyword = lstLogs.List(i)
Print #2, keyword
Next i
Close #2
End If

I want it so if i click cancel I dont get a bloody error message and everything goes on as normal. Any ideas?? Please help otherwise i'm screwed and I dont go to Uni! Its a Path/File Access error and the line "Open SaveFile For Output As #2" Is highlighted as the 'problem' line. I understand why the error shows up but how can I get rid of it.

Ali Mac

Common Dialog: When Cancel Is Pressed, Error Is Generated
How do I trap this error??? I dont want it to show a run time error and shut down the program!

Common Dialog Load List Cancel Error
When someone clicks "Load List" on my program, it opens the load dialog but if they click cancel it keeps adding blank items to the list and freezes. Here is the code

List1.Clear
CommonDialog1.DialogTitle = "[ListBox Functions 2001] Load"
CommonDialog1.InitDir = App.Path
CommonDialog1.Flags = &H4
CommonDialog1.Filter = "list files (*.txt)|*.txt|all files or custom(*.*)|*.*"
CommonDialog1.ShowOpen
Call xLoadList(CommonDialog1.FileName, List1)
List1.ListIndex = 0

Sorry, dont know how to post as VB code..

Common DIalog Control Error On Show Color
Why anint his workking???

Code:Private Sub Form_Load()
Dim x

x = CommonDialog1.ShowColor
Me.BackColor = x
End Sub

Thx

------------------------------------------------------------------------------
And when a man gets to heaven,
To saint Paul he'll tell:
1 more soldier reporting sir,
I served My Time in Hell
6 June 1944

2GB DDR400 RAM, 3.4Ghz EM64T P4 Socket 775, 200gb PATA HD 8mb cache, 500GB WD 16mb Cache (Master), 256mb 9950 ATI RADEON AGP ,19" LCD, and a 250W PSU

Running Vs6 Enterprise, running all vs8 products express edition

Common Dialog Control License Error/OleServer Registration Errror
HI,
I am using Access 2000 on windows 2000 machine .Whenever I place the Common dialog control(comdlg32.ocx). I have another pc with windows 2000 and access 97 I didn't get any problem with common dialog control,
I get two types of errors at different time.

1) OLE SERVER isn't Registered. To register the OLE SERVER re-install it.

When I looked at MICROSOFT help they gave me the different solution to turn off the Script blocking of Norton ANtivirus. But Iam trying to place the control at design time...
why does Norton Antivirus should interfere with my appliacation.

Sometimes I get the below error
2) YOU Don't have the license required to use this ActiveX control..

but this ActiveX control comes with MS ACCESS. In fact I did notice that this common dialog control(ActiveX control- comdlg32.ocx) is registered in my system and the CLSID is also correct. I did registered it again using REGSVR32.exe command.
I got message that my activex control is registered properly at C:WINNTSystem32comdlg32.ocx.

It would be great if somone can help me.

Regards

Common Dialog Without Common Dialog Object
*EDIT* Sorry, I meant to post this in faq's section but I pushed the wrong button go here to view this post.

Edited by - msg555 on 5/23/2004 4:55:39 PM

Common Dialog Open Dialog Box, With A Picture Preview?
Hey ya, is there any way i can add the picture preview in the attached image to my Common dialog control's open ?

I guess its a flag? but cant see it etc?

Common Dialog Contol - Font Dialog - *unresolved*
i have a common dialog control.. .names cdFont on my form... and a rich text box... named rtfMain

now... i have a problem and a question

---
Problem
---

when i call cdFont.ShowFont... (default settings)... i get a strange result

first i get a dialog that says "There Are No Fonts Installed. Open the fonts folder from the control panel to install fonts."

there are fonts, lots of them

then... i click ok... then i get error 24574 - no fonts exsist

anyone care to explain why this is happening?

---
Question
---

To change the font name on the rtfMain... its just a matter of rtfMain.Font = cdFont.Fontname isnt it?

thx for your help (if you do decide to help that is )

Browse Dialog For Folders Without Using Common Dialog Control
Is there any way in excel vb script to display an open folder fialog box which returns only folder paths not files. I can get it to work for files using:

Application.GetOpenFilename

However, there doesn't seem to be a command for browsing for a folder. I don't want to use the common dialog control due to current platforms.

Any ideas?

Common Dialog .ShowFont - "There Are No Font's Installed" Error?
Quote:

---------------------------
Fonts
---------------------------
There are no fonts installed.
Open the Fonts folder from the Control Panel to install fonts.
---------------------------
OK
---------------------------

I get this error when i try to use the common dialog's show font function.

is it something i need to add to the flag's or something for it to make the common dialog's show font to work?

anyone wanna give a little helpin hand w./ ?

TNX

Color Dialog (common Dialog) Problem
I use the commondialog.showColor property to get a value of a color. The problem is that the color is returned in the following format 1254865213 .A very huge number. What I want is to get the #CCCCCC format of the value of a color.How can I do that?

I would appreciate an answer.
Thank you

Common Dialog Control-color Dialog
Hi all,
I am using Microsoft common dialog control 6.0 for color dialog. When I show the color dialog using .showcolor property it is coming in the top left corner of my form. Can I position that color window where ever I want in my form. I am unable to position the window.

Any idea?

-thanks in advance
Santhakumar B

Print Dialog (common Dialog) Frustration
Hi,

I've read through quite a number of help topics on different forums trying to find an easy solution:

I'd like to achieve the following:

1) show a print setup dialog
2) When user wants to print, the printer object (default printer) would reflect all the changes that the user made in step 1 (that is, the choice of printer, page orientation, papersize etc.)

For step 1, I know that code

commondialog1.flags = cdlPDPrintSetup
commondialog1.showprinter

shows the print setup dialog, but how can you easily make use of the user selections? (through experiment I know that setting printer.trackdefault = true makes the printer object reflect at least on the choice of the printer, but not e.g. paper size, at least not consistently).

Thanks for any help,
Efunlake

Printer Dialog Of Common Dialog Control
I have one query related to common dialog control for printer. printer dialog provids one facility called "scaling" with the help of that you can scale ur printing object 0-1000%. its working with windows 95 and 98 but not with NT. Why???

Common Dialog Print Dialog
How do I check what printer the user selected in the Print Dialog?

Print Dialog Box (Common Dialog Box)
Hi,

Does anyone know how to make the pages section of a print dialog box enabled. I'm referring to the print range frame. I know you can set the
flags property of the common dialog control, but setting this to &H2 which is what should make it become enabled does not do anything. Am I
overlooking something?

thanks

Common Dialog Control: How To Show A "replace File" Dialog Before Save
Its saving Ok, but i need it to ask the user if he wants to
replace the file when it has the same name.
It should occur just the first time, and then the following clicks
on save shoudnt ask again.

How can I do it?

Thanks!
JCI

Common Dialog Box Not So Common?
Hi,
I've had this problem before and i forgot how i resolved it, how do i get fonts to show up on the list when i use the Common Dialog Box to display the font dialog? It get an error saying that i don't have any fonts installed. Any help would be appreciated.

Thanks
-George

Help With Common Dialog
Hey all I am using Visual Basic 6 making a comparision data program but i have tables stored all over the network. I used the Common Dialog Open box, but when i use txttable.text = commondialog1.filename it only returns the filename not the full path so it bottoms out, any suggestions?

Thanks for the help

SkyX

Common Dialog Ocx And Dll
Good Day,

I am currently using Inno Setup.
One of the file I have to include is comdlg32

There is no problem including comdlg32.ocx, but if i try to include comdlg.dllm the compile program will say that it can't include this dll

Will the common dialogs will work on user's machine only with the ocx ?

Thanks

Common Dialog Box
hello, i open an excel file with he common dialog box, this works fine. but if i click on open a file and do not chose a file and exit the common dialog box then it throws an error. is there anyway to stop this.

this is my code

'open the common dialog box
cdlFileBox.ShowOpen
cdlFileBox.Filter = "excel (*.xls)|*.xls"

'Open an Excel workbook
Set MyXLApp = New Excel.Application

Set MyXLWorkBook = MyXLApp.Workbooks.Open(FileName:=cdlFileBox.FileName) '"H:sarahWeeklySpent.xls

thanks

Common Dialog
hi, i am a beginner in vba....so, is anybody know how to solve this problem?

Problem: i wan to create a program that create and save an excel file....but i dunno how to run a "Save As" dialog box.......????

Common Dialog
I am using MS Common Dialog Control to let the user give the location of a MS Access database that will be used in an Excel-project. Trouble is, once I move the excel-sheet to another PC, it errors, telling me that the MS Common dialog control cannot be found on the computer! I thought this was an OCX-file that was distributed with windows, and that all windows-installation have. Obviously I was mistaken. So my questin is: is there som way I can compile the Excel-file so that it brings the OCX with it? Or can I only use the file on a PC with VB installed (that just doesn't seem right to me...).

Common Dialog Box
hi to all,

just want to ask if there is another tool that functions the same as the common dialog box does? im using excel application and its VB editor to automate it and wen i tryd to add the Common Dialog Component and use it, there is a pop-up notice. it says 'the control could not be created because it is not properly licenced.'

thank you very much!