Çekiliş ile 2 Adet Microsoft Excel Kitabı Hediye Edilecektir. Ayrıntılı Bilgi İçin [Tıklayınız]

ÖNEMLİ

  • Forumumuzda bilgi alışverişinde bulunabilmeniz için Üye olmalısınız. Üye olmayanlar forumumuzdan yararlanamazlar.
  • Eğer daha önceden üye olduysanız lütfen kullanıcı adınız ve şifreniz ile Giriş yapınız.
 Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
22/05/2009 09:07
Konu Sahibi
emin_111
Yorumlar
3
Okunma
2425
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

emin_111

Üye
Kullanici Avatari
Üye
10
8
09/04/2009
0
Denizli
Ofis 2003
20/06/2009,23:30
Çözüldü 
Vb formdan rapor nasıl alınır


emin_111, 09-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

aliyem

Üye
Kullanici Avatari
Üye
1
0
21/05/2009
0
Adana
Ofis 2003
31/10/2009,18:16
Çözüldü 
[b]Bende nasıl yapacağımı öğrenmek istiyorum


aliyem, 21-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

maytas

Aktif Üye
Kullanici Avatari
Aktif Üye
545
21/12/2008
173
Bursa
Ofis 2010 32 Bit
16/10/2017,12:01
Çözüldü 
Merhaba.
VB formları veri barındırmazlar, ancak veriyi kaynağından çağırıp raporlarlar, ki bu kaynak herhangi bir dosya ve ya veritabanı olabilir.
Sizin sorunuza gelince çok genel ve yeterince açık değil.
Tam olarak ne yapmak istoyrsunuz? Herhangi bir veritabanından veri çekip form üzerinde herhangi bir nesnede(örneğin ListBox) listelemek mi istiyorsunuz?
Soruyu net ve anlaşılır şekilde sorun ki doğru cevap alabilesiniz.


Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
resim
Cevapla

crykoray

Üye
Kullanici Avatari
Üye
1
0
08/01/2010
0
Adana
Ofis 2003
23/05/2010,18:04
Çözüldü 
Private Sub Command12_Click()
Dim I As Integer
If Adodc1.Recordset.Recor DCount = 0 Then
MsgBox "KAYIT YOK"
Exit Sub
End If
Dim ExcelNesne As Object
Set ExcelNesne = CreateObject("Excel.SHEET")
ExcelNesne.Application.Visible = True



ExcelNesne.Application.Cells(1, 1).Font.Size = 11
ExcelNesne.Application.Cells(1, 1).Font.Bold = True
ExcelNesne.Application.Cells(1, 1).Font.Underline = True

ExcelNesne.Application.Cells(1, 1).Font.Color = vbBlue
ExcelNesne.Application.Cells(1, 1).ColumnWidth = 40
ExcelNesne.Application.Cells(1, 1).Value = "EXCEL DENEME PROGRAMI"

ExcelNesne.Application.Cells(1, 1).Font.Size = 11
ExcelNesne.Application.Cells(1, 1).Font.Bold = True
ExcelNesne.Application.Cells(1, 1).Font.Underline = True

ExcelNesne.Application.Cells(2, 1).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 1).ColumnWidth = 15
ExcelNesne.Application.Cells(2, 1).Value = "PLAKA"

ExcelNesne.Application.Cells(2, 2).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 2).ColumnWidth = 15
ExcelNesne.Application.Cells(2, 2).Value = "MARKA"

ExcelNesne.Application.Cells(2, 3).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 3).ColumnWidth = 15
ExcelNesne.Application.Cells(2, 3).Value = "RENK"

ExcelNesne.Application.Cells(2, 4).Font.Color = vbRed
ExcelNesne.Application.Cells(2, 4).ColumnWidth = 15
ExcelNesne.Application.Cells(2, 4).Value = "KimNo"
I = 2
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF = True
I = I + 1

ExcelNesne.Application.Cells(I, 1).Value = Adodc1.Recordset.Fields("PLAKA")


ExcelNesne.Application.Cells(I, 2).Value = Adodc1.Recordset.Fields("MARKA")

ExcelNesne.Application.Cells(I, 3).Value = Adodc1.Recordset.Fields("RENK")

ExcelNesne.Application.Cells(I, 4).Value = Adodc1.Recordset.Fields("KimNo")
Adodc1.Recordset.MoveNext
Loop
MsgBox "PROGRAMA DÖN"
End Sub
en mukemmel ornegı bunu sız kendınız gore duzenleyın not("alıntıdır")


crykoray, 08-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü VB6 ListView'e Accessten Veri Alma Sorunu alican60 4 2.752 12/03/2014, 11:05 ogulcan92
Çözüldü Visucal Basic Koşullu (Filtreleme) Rapor Alma |By|KiDnArUt| 2 2.871 17/12/2011, 01:02 mcmaho
Çözüldü Txt dosyasından accsess tablosuna veri alma vb kodu ucloy 3 2.487 18/08/2011, 21:08 DUAYEN
Çözüldü VB 6 Girilen Tarih İle Date Kontroluna Göre Rapor Alma |By|KiDnArUt| 6 3.961 24/05/2011, 18:06 |By|KiDnArUt|
Çözüldü Visula Basic ile Tarihler arası rapor alma kibrix 4 2.401 14/01/2010, 16:49 Seruz
 
 

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.