Veri alma..

[Aktolgali]

Herkese Merhaba;
Forumdan aşağıdaki adresten aldığım dosyayı kendime uyarlamaya çalıştım ama beceremedim. "Compile error: User-defined type not defined" hatası veriyor. Dosyam ektedir hatamın nerede olduğunu bilmiyorum yardım ederseniz sevinirim.

http://www.excel.web.tr/showthread.php?t=30370&highlight=listwiev

Eyvallah..

 

[Recep İpek]

Dim Liste As ListItem

satırını

Dim Liste As Variant

değiştirin.

 

[Aktolgali]

Sayın ripek;
Verdiğiniz kod işime yaradı ama şimdide aşağıdaki kodlarda işaretli satırda hata veriyor.

Private Sub CommandButton1_Click()
tblDeneme.AddNew
tblDeneme!veri1 = TextBox1    "bu satırda"
tblDeneme!veri2 = TextBox2
tblDeneme!veri3 = TextBox3
tblDeneme!veri4 = TextBox4
tblDeneme!veri5 = TextBox5
tblDeneme!veri6 = TextBox6
tblDeneme!veri7 = TextBox7
tblDeneme!veri8 = TextBox8
tblDeneme!veri9 = TextBox9
tblDeneme!veri10 = TextBox10
tblDeneme.Update
TextBox1.SetFocus
CommandButton2_Click
PersonelleriEkle
End Sub

 

[Recep İpek]

İlgili Textboxların formatını veritabanındaki formata çevirmeniz gerekiyor.

Örneğin 1.alan tarih
tblDeneme!veri1 = Format(TextBox1,"dd.mm.yyyy")

Diğer alanları Val(TextBox10).... şeklinde düzenleyiniz.