Device I/Q error hatası

[metinozlu]

İyi günler,
Problemin tanımlanması hususunda zorlandığım için böyle bir başlık yazdım.
Problemim şöyle;
2 adet çalışma kitabım var. A.xls ve b.xls , A da oluşturulan menü ile b deki formu ekrana çağırıyorum.b deki form ile c.doc word sayfasını açtırıyorum.c.doc u kapatıyorum.b.xls deki formu kapatıyorum.formun kapat olayı ile de b.xls kitabını kapatıyorum.
A.xls kitabınıda kapatarak programdan çıkıyorum.
A.xls kitabını tekrar açtığımda Excel normal açılmıyor,excel sayfası görünmüyor, masa üstü ekran görüntüsü Excel sayfasında duruyor. Ayrıca b.xls dosyasını açmadığım halde Project bölümünde sanki açılmış gibi görülüyor.b.xls formunu açmaya çalıştığımda “Device I/Q error” mesajı veriyor.
Böyle bir problem.Çözüm önerilerinizi bekliyorum.

 

[isakarakus]

merhaba,
sacdece teorik olarak fikir yürütüyorum.

A da oluşturulan menü ile b deki formu ekrana çağırıyorum.

form dan kastınızın user form olduğunu anlıyorum..
burada hangi komutu kullandığınızı bilmiyorum ama
örneğin, userform1.show gibi aynı kitap içerisinde kullanılan
bir komuttan farklıdır herhalde. durum böyle olunca prosedur gereği
b.xls dosyasında form elle kapanırsa a.xls dosyası formu açık zannedecektir. bundan dolayı olabilir diye düşünüyorum.
formu çağırmak için kullanılan mantık ne ise aynı mantıkla,
a.xls dosyasından b.xls dosyasındaki form kapatılmalı diye düşünüyorum.

 

[metinozlu]

sanırım aşagıdaki kodlarda bir problem var.
Private Sub CommandButton1_Click()

CommandButton6_Click
If ComboBox3.Value = "" Then
MsgBox ("Lütfen Ã?n İzleme Yapılacak Belgeyi Seçiniz.")
ComboBox3.SetFocus
Exit Sub
Else
End If

If ComboBox3.ListIndex = 0 Then
Set WordDoc = CreateObject("Word.Application")
'Dim WordDoc As Object

WordDoc.Documents.Open ("C:\KAMU İHALE PROGRAMI\yazi\dgtmn\talep.doc")
WordDoc.Visible = True
Else
If ComboBox3.ListIndex = 1 Then
'Dim WordDoc As Object
Set WordDoc = CreateObject("Word.Application")
WordDoc.Documents.Open ("C:\KAMU İHALE PROGRAMI\yazi\dgtmn\gorev.doc")
WordDoc.Visible = True

Else

If ComboBox3.ListIndex = 2 Then
'Dim WordDoc As Object
Set WordDoc = CreateObject("Word.Application")
WordDoc.Documents.Open ("C:\KAMU İHALE PROGRAMI\yazi\dgtmn\tutanak.doc")
WordDoc.Visible = True


Else

End If
End If
End If

'WordDoc.Visible = False

End Sub

 

[metinozlu]

problemi kendim hallettim
b.xls ismini değiştirdim.sorun çıkmadı.iyi çalışmalar