Sayın hocalarım,

Hemen hemen hergün sizlerden yeni birşeyler öğreniyoruz. Bizlere zaman ayırdığınız için sizlere çok teşşekkür ediyorum.

Soruma Gelince.

Yapmış olduğum programda personel bilgilerini gösteren bir formum var.
Başka bir form da ise izin takip bilgileri var.

Personel bilgilerinin olduğu forma bir buton koyarak İZİN TAKİP formunu açtırıyorum.
Benim istediğim. Personel bilgilerinde o an için kimin kaydı bulunuyorsa izin butonuna tıkladığımda da o kişinin kaydının açılmasıdır.

PERSONEL BİLGİLERİ on load kısmında yazan KOD aşağıdaki gibi

Private Sub persid_Click()
On Error GoTo Err_persid_Click
stDocName = "Personelid"
DoCmd.OpenReport "Personelid", acViewPreview, , "[Adı Soyadı]=Forms![Personel ID]![Adı Soyadı]"

Exit_persid_Click:
Exit Sub

Err_persid_Click:
MsgBox Err.Description
Resume Exit_persid_Click
End Sub

İZİN BİLGİLERİNDE ise

Private Sub Form_Load()
DoCmd.Maximize
End Sub

BAŞKA bir kaç yol denedim ama olumsuz.
YARDIMLARINIZI BEKLİYORUM

Saygılar

örnek ekleyiniz.

örnek eklerseniz çözülür sanıyorum

DoCmd.OpenReport "Personelid", acViewPreview, , "[Adı Soyadı]='" & Forms![Personel ID]![Adı Soyadı] & "'" olarak deneyiniz.

ORNEK EKLENMİŞTİR

Sayın hocalarım,

Hemen hemen hergün sizlerden yeni birşeyler öğreniyoruz. Bizlere zaman ayırdığınız için sizlere çok teşşekkür ediyorum.

Soruma Gelince.

Yapmış olduğum programda personel bilgilerini gösteren bir formum var.
Başka bir form da ise izin takip bilgileri var.

Personel bilgilerinin olduğu forma bir buton koyarak İZİN TAKİP formunu açtırıyorum.
Benim istediğim. Personel bilgilerinde o an için kimin kaydı bulunuyorsa izin butonuna tıkladığımda da o kişinin kaydının açılmasıdır.

PERSONEL BİLGİLERİ on load kısmında yazan KOD aşağıdaki gibi

Private Sub persid_Click()
On Error GoTo Err_persid_Click
stDocName = "Personelid"
DoCmd.OpenReport "Personelid", acViewPreview, , "[Adı Soyadı]=Forms![Personel ID]![Adı Soyadı]"

Exit_persid_Click:
Exit Sub

Err_persid_Click:
MsgBox Err.Description
Resume Exit_persid_Click
End Sub

İZİN BİLGİLERİNDE ise

Private Sub Form_Load()
DoCmd.Maximize
End Sub

BAŞKA bir kaç yol denedim ama olumsuz.
YARDIMLARINIZI BEKLİYORUM

Saygılar

sayın power;
rapor değil form açtıracak sanırım.