ComboBox seçimine göre kayıt sorunu!!!

[ocamsul]

Arkadaşlar herkese iyi pazarlar. Benim ComboBox seçimine göre kayıt Macrolarımda bir sorun var ilgili TexBox a değeri girip Combobox ile de ilgili kayıt yerini seçtiğimizde Kayıt Butonu içerisindeki kodları s1 bölümünde hata veriyor bunun nedeni konusunda yardımlarınızı bekliyorum arkadaşlar.

 

[veyselemre]

En başta Option Explicit komutu var.

Bu komut olduğu için bütün değişkenlerinizi önceden tanımlayıp kullanmanız gerekiyor. Bu yüzden hata veren satırdan önce dim s1 veya dim s1 as object yazıp deneyin.

 

[ocamsul]

SN: veyselemre uyguluyorum ama hata veriyor acaba ben mi yanlış yapıyorum. OpTıons satırını sildiğimde düzeliyor, Ancak bu seferde kod çalışıyormuş gibi görünmesine rağmen ilgili sütunun üzerine ekleme yapmıyor.

 

[ocamsul]

SN: veyselemre uyguluyorum ama hata veriyor acaba ben mi yanlış yapıyorum. OpTıons satırını sildiğimde düzeliyor, Ancak bu seferde kod çalışıyormuş gibi görünmesine rağmen ilgili sütunun üzerine ekleme yapmıyor.

Sorunumu çözemiyorum dostlar!!!

 

[ocamsul]

Sorunumu çözemiyorum dostlar!!!

Askıda kaldı dostlar. bakma imkanı olan olmadımı?

 

[veyselemre]

SN: veyselemre uyguluyorum ama hata veriyor acaba ben mi yanlış yapıyorum. OpTıons satırını sildiğimde düzeliyor, Ancak bu seferde kod çalışıyormuş gibi görünmesine rağmen ilgili sütunun üzerine ekleme yapmıyor.

Sorunları birbirinden ayırmak lazım. Çalışıyormuş gibi görünmesine rağmen demek ilgili sorunun S1 ile ilgili sorunun kalmadığını gösterir. Sizin kayıt etmeme sorunu ile ilgili olayınız farklı bir sorun.
sira = s1.Columns(6).Find(ComboBox1.Value).Row
satırı ile 6 ncı sütunda birimi arattırıyorsunuz, bu işlem yanlış zannedersem, kullanıldığı birimde (4 sütun) arattıracaksınız, tablonuza göre değişikliği yapın deneyin.
Ayrıca dosyanıza api koymuşsunuz mousun hareketlerini engelliyor. Bu tip işleri ne için tercih ettiğinizi anlayamadım. Çalışmanızı ağırlaştırmaktan, ne işe yaradığı pek belli olmayan garip kodlar yerleştirmekten başka birşey değil bence, standart işlemleri yeterince kullanamadığımız halde böyle işlerle uğraşmak bana fazla sıcak gelmiyor.

 

[ocamsul]

sira = s1.Columns(6).Find(ComboBox1.Value).Row
satırı ile 6 ncı sütunda birimi arattırıyorsunuz, bu işlem yanlış zannedersem, kullanıldığı birimde (4 sütun) arattıracaksınız, tablonuza göre değişikliği yapın deneyin.

Sorunum çözüldü Sn: veyselemre ilginize ve yardımlarınıza teşekkür ederim. Ayrıca söz konusu API yi görüşünüze binaen kaldırdım (Haklısınız) teşekkür ederim.