[Yardım]  runtime error 424 object required

Metin Kutucuğu. Bir programcının olmazsa olmazlarındandır.

runtime error 424 object required

İleti#1)  heavysharpa » 24 Ekm 2014 17:51

Arkadaşlar aşağıdaki kodları userform initialize kod bloğuna yazdım ve fakat hata aldım. Hata konusunda yardımcı olabilir misiniz?
Private Sub userform_initialize()

Sayfa1.Select

If CreateObject("scripting.filesystemobject").FolderExists("C:\Panjur") = False And CreateObject("scripting.filesystemobject").FolderExists("C:\Panjur\PDF Kayıtları") = False And CreateObject("scripting.filesystemobject").FolderExists("C:\Panjur\Proje Adı") = False And CreateObject("scripting.filesystemobject").FolderExists("C:\Panjur\Proje No") = False And CreateObject("scripting.filesystemobject").FolderExists("C:\Panjur\Siparişler") = False And CreateObject("scripting.filesystemobject").FolderExists("C:\Panjur\Tarihli Kayıtlar") = False And CreateObject("scripting.filesystemobject").FolderExists("C:\Panjur\Teklifler") = False Then
CommandButton21.Visible = True
Label8.Visible = True
Else
CommandButton21.Visible = False
Label8.Visible = False
End If

TextBox7.Text = Sheets("PROJEISLEMLERI").Range("b10").Text


Sheets("PROJEISLEMLERI").Range("b2").Value = TextBox1.Text
Sheets("PROJEISLEMLERI").Range("b4").Value = TextBox2.Value
Sheets("PROJEISLEMLERI").Range("b6").Value = TextBox3.Value
Sheets("PROJEISLEMLERI").Range("b8").Value = TextBox4.Value
Sheets("PROJEISLEMLERI").Range("b10").Value = ComboBox1.Value

Sheets("MAILTEKLIF_TLMETRE").Range("B11").Value = TextBox1.Text
Sheets("MAILTEKLIF_TLMETRE").Range("b12").Value = TextBox2.Text
Sheets("MAILTEKLIF_TLMETRE").Range("b13").Value = TextBox3.Text
Sheets("MAILTEKLIF_TLMETRE").Range("b14").Value = TextBox4.Text
Sheets("MAILTEKLIF_TLMETRE").Range("b16").Value = textbox7Text




End Sub
Kullanıcı avatarı
heavysharpa
Site Dostu
 
Adı Soyadı:ahmet keskes
Kayıt: 12 Şub 2012 23:01
Konum: serbest meslek
Meslek: pvc profil üreticisi-onoblok panjur profilleri üreticisi
Yaş: 49
İleti: 797
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya

Cevap: runtime error 424 object required

İleti#2)  Enes Recep BAĞ » 24 Ekm 2014 21:06

Olalım. [evet]
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8228
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: runtime error 424 object required

İleti#3)  Enes Recep BAĞ » 24 Ekm 2014 21:07

textbox7Text
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8228
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: runtime error 424 object required

İleti#4)  heavysharpa » 25 Ekm 2014 16:07

Yuh olsun bana.. Tamam gözlük kullanıyorumda bu kadar da kör olunmaz ki.!!! Yahu bu nokta ne kadar değerli imiş :)
Kullanıcı avatarı
heavysharpa
Site Dostu
 
Adı Soyadı:ahmet keskes
Kayıt: 12 Şub 2012 23:01
Konum: serbest meslek
Meslek: pvc profil üreticisi-onoblok panjur profilleri üreticisi
Yaş: 49
İleti: 797
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: runtime error 424 object required

İleti#5)  ahmetilhan282 » 25 Ekm 2014 16:41

Tekrar tekrar CreateObject... yazmak yerine değişken tanımlayarak bu işi yapmanız hem performans açısından iyi olur hem de kod yazma açısından daha kolay olur diye düşünüyorum.
Kod: Tümünü seç
If CreateObject("scripting.filesystemobject").FolderExists("C:\Panjur") = False And CreateObject("scripting.filesystemobject").FolderExists("C:\Panjur\PDF Kayıtları") = False And CreateObject("scripting.filesystemobject").FolderExists("C:\Panjur\Proje Adı") = False And CreateObject("scripting.filesystemobject").FolderExists("C:\Panjur\Proje No") = False And CreateObject("scripting.filesystemobject").FolderExists("C:\Panjur\Siparişler") = False And CreateObject("scripting.filesystemobject").FolderExists("C:\Panjur\Tarihli Kayıtlar") = False And CreateObject("scripting.filesystemobject").FolderExists("C:\Panjur\Teklifler") = False Then

Üstteki kodlar yerine aşağıdakileri kullanmanız daha iyi olur.
Kod: Tümünü seç
Dim ds As Object
    Set ds = CreateObject("scripting.filesystemobject")
    If ds.FolderExists("C:\Panjur") = False And ds.FolderExists("C:\Panjur\PDF Kayıtları") = False And _
        ds.FolderExists("C:\Panjur\Proje Adı") = False And ds.FolderExists("C:\Panjur\Proje No") = False And _
        ds.FolderExists("C:\Panjur\Siparişler") = False And ds.FolderExists("C:\Panjur\Tarihli Kayıtlar") = False And _
        ds.FolderExists("C:\Panjur\Teklifler") = False Then

Ayrıca ds isimli nesne ile işiniz bittikten sonra (Mesela kodların son satırına) Set ds = Nothing eklemenizde fayda var.
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 02:04
Konum: Adana
Meslek: Güvenlik
Yaş: 28
İleti: 774
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: runtime error 424 object required

İleti#6)  arşivist » 25 Ekm 2014 16:46

Kardeşim benim konuya bakman mümkün mü?
Kullanıcı avatarı
arşivist
Yeni Başlamış
 
Adı Soyadı:mustafa vardar
Kayıt: 21 Ağu 2014 17:18
Konum: izmir
Meslek: memur
Yaş: 54
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: runtime error 424 object required

İleti#7)  ahmetilhan282 » 25 Ekm 2014 16:54

arşivist yazdı:Kardeşim benim konuya bakman mümkün mü?

http://www.excelvba.net/viewtopic.php?f=100&t=19517&p=146745#p146745 şu konuysa bakıyorum. Umarım yardımcı olabilirim.
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 02:04
Konum: Adana
Meslek: Güvenlik
Yaş: 28
İleti: 774
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: runtime error 424 object required

İleti#8)  Ersoy AYDIN » 07 Eyl 2018 12:05

Merhaba, ben de aynı hatayı alıyorum. Fakat sorunu DEBUG ile bulamıyorum. Yardımcı olabilir misiniz ?

Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim Baglanti As New ADODB.Connection
    Dim KayitSeti As New ADODB.Recordset
    Dim Firma As String, Server As String, Database As String, Kullanıcı As String, Parola As String
   
    Firma = Sheets("SETUP").Range("B5").Value
    Server = Sheets("SETUP").Range("B1").Value
    Database = Sheets("SETUP").Range("B4").Value
    Kullanıcı = Sheets("SETUP").Range("B2").Value
    Parola = Sheets("SETUP").Range("B3").Value
           
    Set Baglanti = CreateObject("ADODB.Connection")
    con.Open "Provider=SQLOLEDB; Data Source=" & Server & "; Initial Catalog=" & Database & "; User ID=" & Kullanıcı & "; Password=" & Parola & ";"
    Set KayitSeti = CreateObject("adodb.recordset")
     
    s = "SELECT ITM.CODE AS Kodu, ITM.NAME AS Adı, TOT.ONHAND AS [Eldeki Miktar], "
    s = s & vbLf & "(SELECT  TOP 1 PRICE FROM LV_" & Firma & "_01_STLINE WHERE STOCKREF = ITM.LOGICALREF AND TRCODE = 1 AND LINETYPE = 0)  AS [Son Alış], "
    s = s & vbLf & "(SELECT  TOP 1 PRICE FROM LV_" & Firma & "_01_STLINE WHERE STOCKREF = ITM.LOGICALREF AND TRCODE IN(7,8)  AND LINETYPE = 0) AS [Son Satış] "
    s = s & vbLf & " FROM LV_" & Firma & "_01_GNTOTST TOT INNER JOIN LG_" & Firma & "_ITEMS ITM ON ITM.LOGICALREF = TOT.STOCKREF "
    s = s & vbLf & " WHERE (TOT.INVENNO = -1) And (ITM.Active = 0) "

Baglanti.Open "Provider=SQLOLEDB; Data Source=" & Server & "; Initial Catalog=" & Database & "; User ID=" & Kullanıcı & "; Password=" & Parola & ";"
KayitSeti.Open s, Baglanti
Cells(8, 1).CopyFromRecordset KayitSeti
KayitSeti.Close
Baglanti.Close
Set KayitSeti = Nothing
Set Baglanti = Nothing

MsgBox "İşleminiz Tamamlanmıştır. "

End Sub
Kullanıcı avatarı
Ersoy AYDIN
Site Dostu
 
Adı Soyadı:Ersoy AYDIN
Kayıt: 28 Ekm 2008 11:04
Konum: İstanbul
Meslek: LSU
Yaş: 41
İleti: 836
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ataşehir / İstanbul

Cevap: runtime error 424 object required

İleti#9)  Ersoy AYDIN » 07 Eyl 2018 12:57

Con: değişkeni tanımlı değil ve Baglanti diye vir connection string var, con satırını silip , baglantı satırını kopyaladım ve bu hatayı geçtim.

Set Baglanti = CreateObject("ADODB.Connection")
Baglanti.Open "Provider=SQLOLEDB; Data Source=" & Server & "; Initial Catalog=" & Database & "; User ID=" & Kullanıcı & "; Password=" & Parola & ";"
Set KayitSeti = CreateObject("adodb.recordset")
Kullanıcı avatarı
Ersoy AYDIN
Site Dostu
 
Adı Soyadı:Ersoy AYDIN
Kayıt: 28 Ekm 2008 11:04
Konum: İstanbul
Meslek: LSU
Yaş: 41
İleti: 836
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ataşehir / İstanbul


Forum TextBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe