Excele İstenilen Verilerin-İstenilen Formatta Aktarılması
Tarih
05/10/2011 20:04
Konu Sahibi
yorum70
Yorumlar
14
Okunma
2782
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



yorum70

Kullanici Avatari
Özel Üye
A.... Ş....
1.187
08/10/2010
71
Ankara
Ofis 2013 64 Bit
22/10/2016,21:00
Çözüldü 
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ı: 23)
.rar   mALVARLIĞINA xlsx.rar (Dosya Boyutu: 10,51 KB / İndirme Sayısı: 15) 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.


Ek Dosyalar
.rar   13MAY SİP2011_-.rar (Dosya Boyutu: 1,5 MB / İndirme Sayısı: 42)
"Her tercih, bir vazgeçiştir"

Cevapla


Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.029
05/11/2008
KONYA
Ofis 2010
15/11/2016,02:32
Çözüldü 
Aşağıdaki örnek sizin istediğiniz işleri yapar.
Excele Aktarma 
Cevapla


yorum70

Kullanici Avatari
Özel Üye
A.... Ş....
1.187
08/10/2010
71
Ankara
Ofis 2013 64 Bit
22/10/2016,21:00
Çözüldü 
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.
"Her tercih, bir vazgeçiştir"

Cevapla


Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.029
05/11/2008
KONYA
Ofis 2010
15/11/2016,02:32
Çözüldü 
Excele gönderme kısmı aşağıdaki sub dır.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
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
 

Cevapla


yorum70

Kullanici Avatari
Özel Üye
A.... Ş....
1.187
08/10/2010
71
Ankara
Ofis 2013 64 Bit
22/10/2016,21:00
Çözüldü 
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.
"Her tercih, bir vazgeçiştir"

Cevapla


yorum70

Kullanici Avatari
Özel Üye
A.... Ş....
1.187
08/10/2010
71
Ankara
Ofis 2013 64 Bit
22/10/2016,21:00
Çözüldü 
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.
"Her tercih, bir vazgeçiştir"

Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Verilerin Listede Görünmesi m_demir 4 103 29/10/2016, 00:56 m_demir
Çözüldü raporu word veya excele raporda göründüğü gibi gönderme kesoka 9 2.327 30/09/2016, 14:27 ates2014
  tablodaki verilerin silinmeden ertesi güne yeni kayıt açılması dayko 10 332 25/08/2016, 11:42 dayko
  Accessdeki raporu excele gönderme ates2014 12 493 05/08/2016, 15:34 ates2014
  Form üzerindeki aranan veriyi excele aktarma Dekdurmaz 2 206 03/08/2016, 14:23 Dekdurmaz


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya