korumalı excel dosyasına veri gönderme
Tarih
16/02/2013 23:24
Konu Sahibi
zipir37
Yorumlar
6
Okunma
1876
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
zipir37
Üye
Kullanici Avatari
Üye
5
1
26/11/2010
0
Belirtilmemiş
Ofis 2003
18/11/2013,12:11
Çözüldü 
Oluşturduğum formdan belli alanlardaki verileri sabit bir Excel dosyasına belli hücrelere gönderiyorum. forumda aramama ve hemen hemen her örneği incelememe rağmen Access konusunda yeteri kadar bilgiye sahip olmadığım için başaramadığım iki olay var.
BİRİNCİSİ: gönderdiğim dosyadaki formdaki(F_ODEME) adısoyadı, tcnu,iban,tutar ve açıklama alanlarını banka listesi.xls dosyasındaki sırasıyla a,b,f,g,h sütünlarına accessdeki sütün başlıkları olmadan yerleştirmek
İKİNCİSİ: bu Excel dosyasına ODEME_TARIHI ve DOSYA_ADI alanlarına girdiğim değerlerle isim vererek ayrı Excel dosyası olarak kaydetmek.
NOT: Excel dosyasının formatının olduğu gibi kalması gerekiyor.dosya korumalıdır.

Arkadaşlar yardımlarınızı bekliyorum.


Ek Dosyalar
.rar   odeme_listesi.rar (Dosya Boyutu: 108,34 KB / İndirme Sayısı: 8)
Cevapla

zipir37
Üye
Kullanici Avatari
Üye
5
1
26/11/2010
0
Belirtilmemiş
Ofis 2003
18/11/2013,12:11
Çözüldü 
Sponsor Reklam
Access bu sorum karşısında çaresiz galibaImg-grin)
Kimseden bir cevap alamadım.
Cevapla

Yandemir
Only Office 2003
Kullanici Avatari
Onursal
M.... Y....
1.432
26/08/2009
482
Tekirdağ
Ofis 2003
13/04/2017,00:47
Çözüldü 
dosya koruma yerine hücre kilitleme kullanın.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla

fatih karagöl
Aktif Üye
Kullanici Avatari
Aktif Üye
167
05/10/2010
88
Edirne
-
15/12/2015,17:38
Çözüldü 
Sponsor Reklam
sn zipir mantık olarak ikinci kısmı manuel yapacaksınız sanırım.
ilk kısıma gelince, istediğnizi doğru anlamışsam; döngü kullanmanız gerek.
örnek kodları takip ederek tamamlayın. bir kaç alan attırdım ben.

Private Sub Komut18_Click()
Dim exceldosyasi As Object
Dim Klasor As String, strPersonel As String
Set exceldosyasi = CreateObject("Excel.Application")
Klasor = CurrentProject.Path & "\BANKA_LISTESI.xls"
Set Con1 = Application.CurrentProject.Connection
Set rst1 = CreateObject("ADODB.Recordset")
rst1.CursorLocation = adUseClient
currentCell = 13

With exceldosyasi
.Visible = True
.Workbooks.Open Klasor
.UserControl = True
.Range("A13:I1084").Select
.Application.CutCopyMode = False
.Selection.ClearContents
Sql = "select * from Q_ODEME_DETAY"
rst1.Open SQL, Con1, adOpenStatic, adLockBatchOptimistic
Do While Not rst1.EOF
.Range("B8").Value = Me.ODEME_KODU
.Range("B7").Value = Me.Metin32
.Range("B6").Value = Me.PARA_CINSI
.Range("B3").Value = Me.HESAP
.Range("B9").Value = Me.ACIKLAMA
intPersonel = rst1.Fields("ADI_SOYADI"): strPersonel = Dlookup ("ADI_SOYADI", "T_BILGILER", "kimlik = " & intPersonel & "")
.Cells(currentCell, 1) = strPersonel
.Cells(currentCell, 2) = rst1.Fields("TC_NU")
'.Cells(currentCell, 5) = 12 ' örnek olarak koydum. veri doğrulamasından geçtiği için veri kontrolü burda yapılmalıdır.
.Cells(currentCell, 6) = rst1.Fields("IBAN_NU")
currentCell = currentCell + 1
rst1.MoveNext
Loop


End With


End Sub
Hayatta listbox kullanmam..
Cevapla

zipir37
Üye
Kullanici Avatari
Üye
5
1
26/11/2010
0
Belirtilmemiş
Ofis 2003
18/11/2013,12:11
Çözüldü 
Sn.Yandemir korumalı Excel dosyası hazır geldiği için değiştirme yada başka bir dosya kullanma şansım yok malesef.

Sn.Fatih Karagöl, öncelikle ilginiz ve yardımınız için çok teşekkür ederim. Bir nokta hariç yapmak istediğim buydu. Kayıtları excele atarken tüm kayıtları gönderiyor. Benim yapmak istediğim odeme_nu göre göndermek. örneğin 3 numaralı ödemeye ait kayıtları atmak ve bunu ayrı Excel dosyası olarak kaydetmek, daha sonra 4 numaralı ödemeye ait kayıtları excele gönderip onuda ayrı kaydetmek. kısaca herbir ödeme ayrı ayrı Excel dosyasında saklanacak.
Cevapla

fatih karagöl
Aktif Üye
Kullanici Avatari
Aktif Üye
167
05/10/2010
88
Edirne
-
15/12/2015,17:38
Çözüldü 
Sponsor Reklam
Sn zipir
istediğiniz işi yapan eki yüklüyorum.
detayları takip ederek uyarlamasını yapabilirsiniz


Ek Dosyalar
.rar   Fatih banka.rar (Dosya Boyutu: 47,74 KB / İndirme Sayısı: 13)
Hayatta listbox kullanmam..
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Otomatik Sms Gönderme kyskys_2017 2 74 24/05/2017, 15:55 kyskys_2017
  Form Da Döngü İle Mail Gönderme barcins 8 212 08/05/2017, 09:09 barcins
  Wep Access Dosyasını Masaüstü Access Dosyasına Çevirme next 7 276 02/04/2017, 23:36 next
  Sorgu Sonucunu Excel'e SQL Kod ile Nasıl Yazdırılır cozumuret 16 344 27/03/2017, 11:18 atoz112
  Formdan Seçilenleri Diğer Formdaki Listeye Gönderme haziran4 4 138 07/03/2017, 07:59 haziran4


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status