A.S.C Filtre, Grafik ve Raporlama Eklentisi

Docmd.gotorecord,,newrec Sonrası Otomatik Dolu Metin Kutusu
#1
Merhaba;
Kişi detay formum ve veri giriş formum var. Kişi detayda veri gir butonu ile veri giriş formunu açıyorum. İstediğim bu form kişinin adı ile yeni kayıt şeklinde açılsın. 
Butona tıkladığımda açılan formun yeni id (veri id) almasını ve adı kısmına önceki formdan kimlik (kisi id) isimli metin kutusunun içeriğini almasını istiyorum. 
Buton Tıklama olayına;
Visual Basic
  1. DoCmd.OpenForm "frm11_sozlesmeAH"
  2. DoCmd.GoToRecord,,NewRec


yazınca istenilen oluyor. Ancak önceki formdan kişinin adını çekemiyorum. Tekrar elle seçmek zorunda kalıyorum. Bunun için butonun tıklama olayında;
Visual Basic
  1. Dim kisi as integer
  2. kisi = kimlik.text
  3. DoCmd.OpenForm "frm11_sozlesmeAH"
  4. DoCmd.GoToRecord,,NewRec
  5. hekimKimlik = kisi


Şeklinde yöntem izledim olmadı.
OpenForm ile filtre denediğimde hekim adı gelirken yeni kayıt(acNewRec) yapamadım. Buton tıklama olayına;
Visual Basic
  1. DoCmd.OpenForm "frm11_sozlesmeAH", acNormal, , "[hekimKimlik]=" & Me.Kimlik, acFormEdit, acWindowNormal


yazdım. 

Yardımcı olabilirseniz sevinirim.



  Alıntı
Bu mesajı beğenenler:
#2
Aşağıdaki koda ek olarak.. Hekimkimlik denetiminin olduğu forma gelin. Hekimkimlik alanının güncelleme sonrası yordamına 


Visual Basic
  1. Private Sub hekimKimlik_AfterUpdate()
  2. hekimadi = DLookup("hekimadi", "TabloAdiniz", "hekimKimlik=" & FormÜstündekiKimlikDenetimAdi)
  3. hekimsoyadi= DLookup("hekimsoyadi", "TabloAdiniz", "hekimKimlik=" & FormÜstündekiKimlikDenetimAdi)
  4. digerbilgiler=""
  5. '//YUKARIDAKİ ALANLARIN SAYISINI ARTIRMANIZ MÜMKÜN. PERSONEL BİLGİSİNİN OLDUĞU TABLODAN HEKİMKİMLİK NUMARASINA GÖRE BÜTÜN BİLGİLERİ GETİREBİLİRSİNİZ.
  6. End Sub





şeklinde yazarsanız adı gelecektir. Eğer başka alan istiyorsanız bu şekilde alt alta bütün alanları çağırabilirsin. Bu dediğimi Hekimkimlik güncelleme sonrası yordamına yazacaksınız.  Yuyarıda belirttiğim hekimsoyadi, ve digerbilgi gibi bütün bilgiler getirilebilir. Tabi bu basit bir yöntem. Bunu yapabilmenin birçok yolu var. Örnek çalışma paylaşırsanız üzerinde çalışabiliriz. Filtre uyguladiğiniz form açılışı yalnızca mevcut kayıtları getirmek için işe yarayacaktır. Anladığım kadarı ile siz personel seçtiğinizde başka bir formda yeni bir kayıt oluştururken o personelin bilgilerinin gelmesini istiyorsunuz.

Visual Basic
  1. Dim kisi as integer
  2. kisi = kimlik.text
  3. DoCmd.OpenForm "frm11_sozlesmeAH"
  4. DoCmd.GoToRecord,,NewRec
  5. hekimKimlik = kisi





  Alıntı
Bu mesajı beğenenler:
#3
(09-11-2022, 19:40)alperalper demiş ki: Anladığım kadarı ile siz personel seçtiğinizde başka bir formda yeni bir kayıt oluştururken o personelin bilgilerinin gelmesini istiyorsunuz.
Merhaba günaydın. Çok doğru. Bu işlemi yapmaya çalışıyorum. Dlookup ile yapmamı istediğiniz işlemi anlayamadım. Dosyayı ekledim.
Teşekkürler.



  Alıntı
Bu mesajı beğenenler:
#4
(10-11-2022, 10:12)meceka demiş ki:
(09-11-2022, 19:40)alperalper demiş ki: Anladığım kadarı ile siz personel seçtiğinizde başka bir formda yeni bir kayıt oluştururken o personelin bilgilerinin gelmesini istiyorsunuz.
Merhaba günaydın. Çok doğru. Bu işlemi yapmaya çalışıyorum. Dlookup ile yapmamı istediğiniz işlemi anlayamadım. Dosyayı ekledim.
Teşekkürler.

Dosyanız yok.



  Alıntı
Bu mesajı beğenenler:
#5
Ekleri ekle dememişim sanırım. Ekledim. Buyrun;


Eklenti Dosyaları
.zip   1.zip (Boyut: 54,2 KB / İndirilme: 5)



  Alıntı
Bu mesajı beğenenler:
#6
Sözleşme listesinden hangi sözleşmede düzenleme yapacaksan çift tıklayıp açabalirsin. sözleşme ekleye bastığın zaman da yeni kayıt oluşturarak gelir.


Eklenti Dosyaları
.rar   1.rar (Boyut: 49,58 KB / İndirilme: 7)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Formda Onay Kutusu Ile Veri Aktarma anno 7 121 24-11-2022, 23:02
Son Mesaj: onur_can
  [FORM] Birleşik Giriş Kutusu EminA 2 119 13-10-2022, 10:32
Son Mesaj: EminA
  Metin Kutusuna Girilen Bir Değeri Başka Metin Kutunda Arama farukozgursoy 3 98 18-09-2022, 09:31
Son Mesaj: alperalper
  Seçtikçe Eksilen Birleşik Giriş Kutusu obblomovv 8 160 09-08-2022, 13:14
Son Mesaj: obblomovv
  Duruma Göre Kaydı Yapılan Veya Yapılmayan Metin Kutusu Boş Ise Kaydet Butonu Hata Ve tarkanaykın 2 166 26-04-2022, 23:53
Son Mesaj: tarkanaykın
  Metin Kutusu Içinde Metin Bulma alikagan 4 123 25-04-2022, 11:49
Son Mesaj: alikagan
  Form Metin Kutusu Hakkında. noseti61 1 100 19-04-2022, 05:55
Son Mesaj: dsezgin
  [SORGU] Onay Kutusu Ve Filtreleme Hk. meceka 1 149 01-04-2022, 21:04
Son Mesaj: alperalper

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi