Skip to main content

AccessTr.neT


Toplu Veri Girişi

Yunus Bozkurt
Yunus Bozkurt
9
2035

Toplu Veri Girişi

#4
aşağıdaki ekle butonunun kodunu dener misiniz?
Private Sub Komut68_Click()
Dim x As Integer

For x = 0 To CInt(Me.Metin57) - 1
Sql = " insert into [t_evraklar] (turbaglama, tarihi, ciltno, ilksayfano) values(" & _
Me![Açılan_Kutu6] & ",#" & CStr(Me.Metin18) & "#," & Me![Metin10] & "," & Me![Metin40] + Me![Metin46] * x & ")"

CurrentDb.Execute SQL
Next

End Sub
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Toplu Veri Girişi - Yazar: Yunus Bozkurt - 07/06/2019, 06:05
Cvp: Toplu Veri Girişi - Yazar: berduş - 07/06/2019, 08:02
Cvp: Toplu Veri Girişi - Yazar: Yunus Bozkurt - 07/06/2019, 08:41
Cvp: Toplu Veri Girişi - Yazar: berduş - 07/06/2019, 13:02
Cvp: Toplu Veri Girişi - Yazar: Yunus Bozkurt - 07/06/2019, 13:28
Cvp: Toplu Veri Girişi - Yazar: berduş - 07/06/2019, 13:34
Cvp: Toplu Veri Girişi - Yazar: berduş - 07/06/2019, 13:38
Cvp: Toplu Veri Girişi - Yazar: Yunus Bozkurt - 07/06/2019, 13:39
Cvp: Toplu Veri Girişi - Yazar: Yunus Bozkurt - 07/06/2019, 13:43
Cvp: Toplu Veri Girişi - Yazar: berduş - 07/06/2019, 14:22
Task