AccessTr.neT
Excele İstenilen Verilerin-İstenilen Formatta Aktarılması - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excele İstenilen Verilerin-İstenilen Formatta Aktarılması (/konu-excele-istenilen-verilerin-istenilen-formatta-aktarilmasi.html)

Sayfalar: 1 2 3


Excele İstenilen Verilerin-İstenilen Formatta Aktarılması - yorum70 - 05/10/2011

Merhaba sayın üyeler,

Sn.Abdulvahap'ın yapmış olduğu ASİS programını suç istatikleri için kullanmaktayım.Haftalık istatiklerde ekte sunulan formatta çıktı almak istiyorum.program Excel çıktısı veriyor ancak,istediğim formatta olmadığı için düzenlemek bayağı bir zaman alıyor.

Bilgim ölçüsünde uğraştım, Sn.Kural hocanın ''TEXT'e Aktarmak'' programına uyarlamaya çalıştım, beceremedim.

yapmak istediĞİm; Malvarlığına Karşı suçlarda; Evden Hırsızlık;İşyerinden-Oto, otodan,yankesicilik,kapkaç,Dolandırıcılık, yağma-ASIL OLARAK....Dışında kalan hırsızlıklar-DİĞER HIRSIZLIKLAR başlığı altında sunulsun.

Bunun dışında ki tüm mala karşı işl.suçlar ise;DİĞER SUÇLAR başlığı altında gözüksün.

KİŞİLERE KARŞI:
İNSAN TİCARETİ (FUHUŞ-ZORLA ÇILIŞTIRMA AMAÇLI)
CİNAYET KASTEN ÖLDÜRME
KASTEN YARALAMA KASTEN YARALAMA
CİNSEL SALDIRI VE TACİZ
REŞİT OLMAYANLA CİNSEL İLİŞKİ
TEHDİT HAKARET ŞANTAJ
KONUT DOKUNULMAZLIĞI İHLAL
ÖZEL HAYATIN GİZLİ ALANINA KARŞI SUÇLAR-ASIL SUÇLAR
Bunun dışında kalan, kişilere karşı, takibi gereken, topluma karşı, Millete Devlete karşı ve diğer Şube olayları ,DİĞER SUÇLAR
.rar kİŞİLERE KARŞI.rar (Dosya Boyutu: 11,01 KB | İndirme Sayısı: 24)
.rar mALVARLIĞINA xlsx.rar (Dosya Boyutu: 10,51 KB | İndirme Sayısı: 17)
başlığı altında.

sorguyu isterken, iki ILNO aralığı girip ikisininde dahil olması lazım: ÖRNEK: 2415-2581 ARASINI RAPORLA...Örnek eklemeye çalışacağım, şimdiden teşekkür ediyorum.

uMARIM özel bilgileri de göndermemişimdir, bayağı uğraştım temizlemek için.



Cvp: Excele İstenilen Verilerin-İstenilen Formatta Aktarılması - Kur@l - 05/10/2011

Aşağıdaki örnek sizin istediğiniz işleri yapar.
Excele Aktarma


Cvp: Excele İstenilen Verilerin-İstenilen Formatta Aktarılması - yorum70 - 05/10/2011

Hocam, af buyrun, dosyanızı açtım, reçete, ilaç, ürün tabloları var.Açıkcası hiç anlamadım.Anladığım ve emin olduğum bir şey var, Access bilgim, 10 üzerinden 1.


Cvp: Excele İstenilen Verilerin-İstenilen Formatta Aktarılması - Kur@l - 05/10/2011

Excele gönderme kısmı aşağıdaki sub dır.

Private Sub Komut4_Click()


'Excel'le ilgili koddan işlem yapabilmek için öncelikle Tools-Reference menüsünden,
'Microsoft Excel 1x.0 Object Library referansını işaretlemek gerekiyor.
Dim exceldosyasi As Object


'---------------------------------------------------------------------------------------------------------
'Excel açılıyor ve başlıklar ayarlanıyor
'---------------------------------------------------------------------------------------------------------
Set exceldosyasi = CreateObject("Excel.Application")

With exceldosyasi
.Application.Visible = True
.UserControl = True
.Workbooks.Open FileName:=CurrentProject.Path & "\MT2.xls"
.Range("D7").Value = Me.MÜŞTERİ_ADI
.Range("D8").Value = Me.MADDE_NUMARASI
.Range("d9").Value = Me.MADDE_ADI
.Range("d14").Value = Me.KALİTE
.Range("d16").Value = Me.EN
.Range("e16").Value = Me.BOY
.Range("f16").Value = Me.KALINLIK
.Range("d18").Value = Me.BRÜT_AĞIRLIK

Dim Sql As String
Dim sayac As Integer


Sql = "select * from recetelISTESI where [Madde numarası] = '" & Me.MADDE_NUMARASI & "'"

Debug.Print sql
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
sayac = 0
Do Until rs.EOF

.Cells(28 + sayac, 4).Value = rs.Fields("madde grubu4")

.Cells(28 + sayac, 7).Value = rs.Fields("miktar")

rs.MoveNext
sayac = sayac + 1
Loop


Set rs = Nothing
Set conn = Nothing





End With
Set exceldosyasi = Nothing


End Sub



Cvp: Excele İstenilen Verilerin-İstenilen Formatta Aktarılması - yorum70 - 05/10/2011

Sn.Kural Bey, sunmuş olduğunuz kodu istatistik programını açıp nereye yazacağım ? Sizi de yoruyoruz ama, bu ilk kod olacak benim için.


Cvp: Excele İstenilen Verilerin-İstenilen Formatta Aktarılması - yorum70 - 05/10/2011

Private Sub Form_Open(Cancel As Integer)----sarı renk.
Call Yetkiler(Form)

FrmAna'dan açılarak başlasın diyorum bu kmutu veriyor .Ne demek istiyor anlamadım ? Kural beyin örneği ile benim SİP'i birleştirdim.