runtime error 94

[MR MAN]

what that message mean

runtime error 94

invalid use of null

 

i use that code to open dwgs files in listbox1

 

Private Sub CommandButton12_Click()

For Each FIL In ListBox1.List

ThisDrawing.Application.Documents.Open (FIL)

Next FIL

End Sub

 

AND LINE WITH COLOR BLUE GIVE THIS ERROR

 

 

CAN ANY ONE HELP ME

[bsamc2000]

I added a couple of checks to the code. It appears to work. I hope this helps.

 

[color=lime]' Check for an empty list[/color]
[color=blue]If[/color] Me.ListBox1.ListCount <> 0 [color=blue]Then[/color]

   [color=blue]For Each[/color] Fil [color=blue]In[/color] Me.ListBox1.List

[color=lime]       ' Check for nul[/color]
       [color=blue]If [/color]Fil <> nul [color=blue]Then[/color]

           ThisDrawing.Application.Documents.Open (Fil)

       [color=blue]End If[/color]

Next Fil

[color=blue]End If[/color]

[MR MAN]

dear dsamc2000 i try what you say but it still give error at same line

 

 

 

thanks for help

[MR MAN]

Can Any One Help Me To Solve This Error

[bsamc2000]

I have tested this in AutoCAD 2008 and 2010 using VBA and it works in both. I will test it on a 2005 system on Monday.

If you are using something other that VBA please let us know.

[MR MAN]

dear bsamc2000 iam using vba with autocad 2007