öncelikle günaydın..access programını öğrenmeye çalışıyorum fakat belli bir yere kadar gelebildim.ama burada takıldım.Yardımcı olursanız sevinirim..
personel listesi tablosu var..
yamış olduğum report formunda belirlediğim kriterlere göre personel listesini raporlamak istiyorum..

Ek Dosyalar

Veritabanı1.rar(90.54 KB)

Sub baglan()

 baglanti = CreateObject("adodb.connection")

 baglanti.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='drmofis.mdb';Persist Security Info=True;Jet OLEDBatabase Password=13*13")

 End Sub

[vb]
Private Sub Ebildirge_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rs As Object
Call baglan()
rs = CreateObject("adodb.recordset")
rs.open("select dosyaismi from sgk where dosyaismi", baglanti, 1, 1)

If rs.recordco