Hata uyarısının anlamı ve düzeltilmesi.

[İsmail Küçükşengün]

Merhabalar;

Ana formdan (Ana formun üstüne) açmak istediğim formda:

Run-time error '70'
Permission denied

Hata uyarısı vermektedir.
Modal özelliğini True yaptım. Yine sorun çözülmedi.

Şimdiden Teşekkürler..

 

[xxrt]

kucuksengun,
Projende yeterli açıklamaları eklersen daha hızlı çözüme ulaşabilirsin.

Private Sub UserForm_Initialize()
olayında hangi kodlar var?
Kodlara bağlı nesneler yerindemi? gibi..
Yani bu hata Web sunucunda oluşan bir haat gibi görünüyor.chmod olaylarına bir bak..Yani ne bileyim,yetersiz bilgi,cevaben karşılamıyor.

Sorun şöyle olabilirdi;
CommandButton1 içinde şu kodlarım var.Şu kodlarla şunu gerçekleştirmek amacındayım.Ama şunu çalıştırıken şu satırda şu hata ile karşılaşıyorum...
gibi..

 

[İsmail Küçükşengün]

Sn.xxrt;

Form 19.da iken (tam ekran) bu formun üzerine açılması gereken form
8.için Commandbutton81.de şu kod var;


Private Sub CommandButton81_Click()
UserForm8.Show
End Sub

Açılması istediğim form 8.in initalize kısmında ise;


Private Sub UserForm_Initialize()

ComboBox1.RowSource = "arşiv!A2:A6500"
Dim i, say As Integer

say = WorksheetFunction.CountA(Worksheets("arşiv").Range("A:A")) 'Sayfa1 A sütunundaki dolu hücre sayısı.
Debug.Print say

For i = 2 To say
ComboBox1.AddItem Sayfa4.Cells(i, 1).Value
Next i

End Sub

Kodları mevcuttur.

chmod olaylarının ne olduğunu bilmiyorum.

Selam ve saygılarla.....

 

[İsmail Küçükşengün]

Merhabalar;

Epey uğraştıktan sonra;


Private Sub UserForm_Initialize()
ComboBox1.RowSource = "arşiv!A2:A6500"
Dim i, say As Integer
say = WorksheetFunction.CountA(Worksheets("arşiv").Range("A:A")) 'Sayfa1 A sütunundaki dolu hücre sayısı.
Debug.Print say
For i = 2 To say
ComboBox1.AddItem Sayfa4.Cells(i, 1).Value
Next i

End Sub

Kodunda, altı çizili, yerleri sildim. Sorun çözüldü.