Excelde Userfom Üzerinden Access Veri Tabanına Kayıt, Değiştir, Sil ve Listele

[Orion1]

ks.Open "select * from [Tablo1] where [İsim] like '" & TextBox5.Text & "%';", baglan, adOpenKeyset, adLockReadOnly

bu satırda yapıyor ama işin tuhaf kısmı tüm işlemlerde bu hatayı veriyor yeni kayıt girdiğimde alttaki satır hataya düşüyor

ks("İsim") = TextBox2.Text

Klasörü winrar ın içinden çıkardınızmı?

 

[ozgurpeh]

Klasörü winrar ın içinden çıkardınızmı?

Tabi tabi, masa üstünde

 

[Orion1]

Önceden referanslardan Microsoft ActiveX Data Objects 2.8 Library ekledinizmi?

 

[ozgurpeh]

Önceden referanslardan Microsoft ActiveX Data Objects 2.8 Library ekledinizmi?

o zaten ekliydi

 

[Orion1]

Dosyaları yollarmısınız.Hata vereni.

 

[ozgurpeh]

ekte listwiev alanını gönderdim Sıra No alanı karakter sorunu var dil sorunu olabilir mi ?

 

[Orion1]

bende sorun gözükmüyor.
dosya ektedir.

 

[ozgurpeh]

Farklı bir pc de denerim sanırım şuan kullandığım pc ile alakalı, teşkkür ederim destek için. Selamlar.

 

[ozgurpeh]

Sayın Orion bu konu ile bir sorum daha olacak farklı PC’lerden aynı anda açılsa bu uygulama tek bir noktada accese nasıl veri oluşturur
Yani yerel ağda bir konumda access dosyası ve aynı ağ içinde birden fazla pc bağlacak

 

[Orion1]

Sayın Orion bu konu ile bir sorum daha olacak farklı PC’lerden aynı anda açılsa bu uygulama tek bir noktada accese nasıl veri oluşturur
Yani yerel ağda bir konumda access dosyası ve aynı ağ içinde birden fazla pc bağlacak

Bunu deneme şansım olmadı.Bişey diyemeyeceğim.Önce isterseniz bir deneyin.

 

[ozgurpeh]

Bunu deneme şansım olmadı.Bişey diyemeyeceğim.Önce isterseniz bir deneyin.

ama aynı dosya içine kopyaladık 2 dosyayı da farklı pclerden açtığımız zaman dosya yolunun dışına çıkmış olacak mantıken çalışmaması lazım

 

[Orion1]

ama aynı dosya içine kopyaladık 2 dosyayı da farklı pclerden açtığımız zaman dosya yolunun dışına çıkmış olacak mantıken çalışmaması lazım

Deneyip sonucu yazarsanız memnun olurum.

 

[ozgurpeh]

Deneyip sonucu yazarsanız memnun olurum.

excel dosyası neredeyse eğer dosyayı orada arıyor

 

[Orion1]

excel dosyası neredeyse eğer dosyayı orada arıyor

Kırmızı satırı şimdiki yol gibi yazın.
diğer prosedürdekileride ona göre ayarlayın.

Private Sub CommandButton4_Click()
    Dim yol As String, dosya As String
    Dim baglan As New ADODB.Connection, ks As New ADODB.Recordset
    [B][COLOR="Red"]yol = ThisWorkbook.Path & "\"[/COLOR][/B]
    dosya = "Veritabani.mdb"

 

[ozgurpeh]

Kırmızı satırı şimdiki yol gibi yazın.
diğer prosedürdekileride ona göre ayarlayın.

Private Sub CommandButton4_Click()
    Dim yol As String, dosya As String
    Dim baglan As New ADODB.Connection, ks As New ADODB.Recordset
    [B][COLOR="Red"]yol = ThisWorkbook.Path & "\"[/COLOR][/B]
    dosya = "Veritabani.mdb"

anlamadığım kısma geçtik biraz daha detaylı destek lütfen

 

[Orion1]

vt yi koyduğunuz yerden sağ tıklayın orada dosya yolu olacak onu bulun ve yol yazan yere yazın.
Şimdi çıkıyorum yarın bakarız.İyi geceler.

 

[ozgurpeh]

anlamadığım kısma geçtik biraz daha detaylı destek lütfen

MDB dosyası C nin aldında bir klsörde Excel dosyasıda C nin aldında masaüstüne olsaydı nasıl olamlıydı bunu tariflyein yeter sanırım

 

[ozgurpeh]

tamam hallettim, büyük bir sorunumu çözdünüz. teşekkürler.

 

[ozgurpeh]

bende sorun gözükmüyor.
dosya ektedir.

Merhaba,

Bu dosyaya Combobox ile Var - Yok seçeneği eklenmesi için destek olabilirmisiniz ?

 

[ozgurpeh]

Daha detaylı anladım için ekli dosyaya ekledim. Combo 1.2.3.....6 alanlarına var yok seçeneği eklemek ve bu verileri de accese aktarmak istiyorum. Değerli yardımlarınızı rica ederim