AccessTr.neT

Form Açtıracağın buton kodlarını aşağıdaki ile değiştir.

Private Sub izintakipcmd_Click()

On Error GoTo Err_izintakipcmd_Click



    Dim stDocName As String

    Dim stLinkCriteria As String

    Call VeriBulKaydet

    stDocName = ChrW(102) & ChrW(114) & ChrW(109) & ChrW(97) & ChrW(100) & ChrW(305) & ChrW(115) & ChrW(111) & ChrW(121) & ChrW(97) & ChrW(100) & ChrW(305)

    stLinkCriteria = "[sicilno]=" & "'" & Me![PersonelNo] & "'"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_izintakipcmd_Click:

    Exit Sub



Err_izintakipcmd_Click:

    MsgBox Err.Description

    Resume Exit_izintakipcmd_Click

    

End Sub

ve
üstteki kodun bulunduğu vb sayfasında en alta

Sub VeriBulKaydet()



strSQL = "SELECT * FROM tbadısoyadı "

Set rstkayit = New ADODB.Recordset

rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

With rstkayit

.Find "[sicilno]=" & Me.[Sicil No]

If Not rstkayit.EOF Then

.Fields("sicilno") = Me.[Sicil No]

.Fields("adısoyadı") = Me.Adı_Soyadı

.Fields("Çalıştığı Yer") = Me.ÇalıştığıYer

.Fields("Görevi") = Me.Görevi

.Fields("İşeGirişTarihi") = Me.İşeGirişTarihi

.Update

Else

.AddNew

.Fields("sicilno") = Me.[Sicil No]

.Fields("adısoyadı") = Me.Adı_Soyadı

.Fields("Çalıştığı Yer") = Me.ÇalıştığıYer

.Fields("Görevi") = Me.Görevi

.Fields("İşeGirişTarihi") = Me.İşeGirişTarihi

.Update

End If

End With

End Sub

kodunu ekle ve,

Referanslardan "Microsoft ActiveX Data Object........" referansını ekle.
Bu şekilde tbadısoyadı tablosunda ilgili kaydı arar, bulursa formu açar. Bulamazsa tabloya gerekli bilgileri kaydederek açar.

(19/01/2011, 11:09)orhantanriverdi yazdı: [ -> ]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

orhantanriverdi bey, özel mesajınıza cevap yazdım ancak gönderilemedi çünkü özel üye olmadığınızdan dolayı özel mesaj kotanız dolmuş.Bahsettiğiniz konu bu konu ilede alakalı olduğundan burdan cevap yazmamda bir sakınca yoktur sanırım.ben 2-3 aydır web tabanlı databaseler ve arayüzlerle uğraşıyorum.Sizin özel mesajda belirtiğiniz gibi çalışanlar gün içerisinde yapacakları işleri en baştan beklemede olarak giriş yapıyorlar daha sonra işin durumuna göre statülerini değiştirip devam ediyor tamamlandı veya iptal edildi deyip kaydediyorlar.İsterseniz bu çalışanların bağlı oldukları departman yöneticilerine sistem otomatik olarak raporlama yapıyor isterseniz kendiniz yapabiliyorsunuz.Ayrıca yöneticilerde altlarındaki çalışanlara web üzerinden görev atayabiliyor.Böyle bir çalışmam olmuştu ancak dosyamı bende geçenlerde aradım bulamadım.Yine bakacağım eğer bulamazsam yeniden yazmam gerekecek.

Openargs diye bir parametre vardır. formu çağırıken buraya id numarasını gönder. açılan formun açıldığında kısmına da openargs parametresinde değer varsa ara komutunu koy eğer değer gönderilmedi ise yeni kayıt aç.

sn orhantanriverdi, 11-02-2011'de oturum açmışsınız. Konuya geri bildirimde bulunmanız bekleniyor.

Hızlı Cevap Almanın Püf Noktaları
9-) Daha önce gönderdiğiniz bir konu var ise verilen cevapları kontrol edin ve yapılan yardımın olumlu ya da olumsuz sonucunu bildirin. Eğer açtığınız konulara cevap vermez iseniz sonraki sorularınızda daha önce sorunuzu yanıtlayan kişinin olası cevabından mahrum kalırsınız.

AccessTr.neT Forum Kuralları
9-) Herhangi bir soru(n) için konu açtıysanız verilen cevapları inceleyip en kısa zamanda yapılan yardımın olumlu ya da olumsuz sonucunu bildiriniz. Aynı sorun ile ilgili tekrar konu açmayınız. Açtığınız konuya cevap yazıldığı halde sonuç hakkında cevap yazmadan yeni konu açmayınız.
[Uyarı Puanı: +4]

Konu taşınmıştır.

9-) Herhangi bir soru(n) için konu açtıysanız verilen cevapları inceleyip en kısa zamanda yapılan yardımın olumlu ya da olumsuz sonucunu bildiriniz.
[Uyarı Puanı: +4]