Çift Tıklama İle Veriye Dayalı Form Açmak

1 2 3 4
29/07/2018, 00:46

fascioğlu

Sayın Accesstr net ailesi

Ekli projemde resimlerde işaretlediğim alanlardaki verileri,
Hasta Kayıt alt formunda bulunan KüpeNo ile Grubu alanlarından her hangi birine  çift tıklandığında;
Hasta Kayıt alt formunda bulunan satırdaki veriler ile Müşteri Kayıt formunda bulunan ve işaretlenen alandaki verileri Tedavi  formundaki alanlara nasıl aktarabilirim.


29/07/2018, 02:12

mehmetdemiral

Önce hasta giriş açılacak, orada kayıt yapılarak kişi bilgileri girilecek veya çağrılacak. Sonra tedaviye basılıp tedavi girişi yapılınca, açılan formda dabilgiler aynen gelecek. Bu mudur?
29/07/2018, 09:59

fascioğlu

Hasta kaydı yapıldıktan sonra Hasta kayıt alt formunda Küpe No ve Gruba göre Tedavi formunu açacak.
Diyelimki adamın 10 tane hastası var ve bunların her birinin küpe numarası var işte burada esas olan Küpe noya göre formu açmak,
GRup ise küpe nosu olmayan için tedavi formunu açmak.

saygılarımla.

29/07/2018, 17:55

ozanakkaya

Tedavi formunuzun kayıt kaynağı Müşteri tablosu olarak belirlenmiş ve yüklendiğinde olayında yeni kayıt kodu var.
Tedavi formunun kayıt kaynağı tedavi tablosu olması gerekli ve yüklendiğinde olayındaki yeni kayıt kodu silinmeli.

frm_MusteriKayit isimli formda bulunan "Hasta Kayıt" isimli alt formdaki "mtn_KUPENO" metin kutusunun çift tıklandığında olayına

Dim VarMi As Integer
Dim AccessTrneT_HastaSahibi As String
Dim AccessTrneT_TCNO As String
Dim AccessTrneT_KUPENO As String
Dim AccessTrneT_FormAdi As String
Dim AccessTrneT_Kriter As String

AccessTrneT_FormAdi = "frm_Tedavi"
   
AccessTrneT_HastaSahibi = Forms!Frm_MusteriKayit!mtn_HASTASAHIBI
AccessTrneT_TCNO = Forms!Frm_MusteriKayit!mtn_TCKIMLIKNO
AccessTrneT_KUPENO = Me.mtn_KUPENO

VarMi = DCount("MUSID", "tbl_Tedavi", "[KUPENO]='" & Me.mtn_KUPENO & "'")

If VarMi = 0 Then
   DoCmd.SetWarnings False
   DoCmd.RunSQL "INSERT INTO tbl_Tedavi (TEDAVITARIHI, HASTASAHIBI, TCKIMLIKNO, KUPENO) VALUES ('" & Date & "', '" & AccessTrneT_HastaSahibi & "', '" & AccessTrneT_TCNO & "', '" & AccessTrneT_KUPENO & "')"
   DoCmd.SetWarnings True
End If

AccessTrneT_Kriter = "[KUPENO]=" & "'" & Me![mtn_KUPENO] & "'"
DoCmd.OpenForm AccessTrneT_FormAdi, , , AccessTrneT_Kriter


Kodu eklerseniz, tbl_tedavi tablosunda küpeno nun olup olmadığına bakar,yok ise TEDAVITARIHI, HASTASAHIBI, TCKIMLIKNO, KUPENO verilerini tbl_tedavi tablosuna aktarır, daha sonra ilgili kaydı açtırır.

Öncelikle tedavi formunuzun kayıt kaynağını düzeltin.

Ayrıca, kodlar içerisinde frm_Ana_Giris mevzusu dönüyor, ancak siz bununla ilgili herhangi bir bilgi vermiyorsunuz. Bu işlemler frm_Ana_Giris isimli formun içerisindeki altformda yapılacak ise önceden konu hakkında bilgi vermeniz gerekli.

Sonraki cevabınız muhtemelen "Olmadı" olacaktır.
29/07/2018, 18:24

fascioğlu

Sayın Ozan bey,
       Cevabınız için çok teşekkür ederim.
       Ancak son zamanlarda sorduğum sorulara verdiğiniz cevaplar sonrası tavır ve sözleriniz beni çok üzüyor,sebebi nedir bilmeden bir kusurmu ettim.
        Ayrıca vermiş olduğunuz bir çok cevap sonrası da minnettarlığımı belirttim.
        Yazdığınız cevaba gelince resimdeki hatayı veriyor.
29/07/2018, 18:55

ozanakkaya

Merhaba, önceki mesajımda verdiğim kodda düzeltme yaptım. Kodu tekrar uygulayınız.

(29/07/2018, 18:24)fascioğlu yazdı: Ancak son zamanlarda sorduğum sorulara verdiğiniz cevaplar sonrası tavır ve sözleriniz beni çok üzüyor,sebebi nedir bilmeden bir kusurmu ettim.

Sorduğunuz sorulara yazdığım cevaplarda herhangi bir art niyet yok. An itibariyle 200 Konu ve 1000 Mesajınız var. Artık accessi öğrenmenizi istiyorum sadece.
1 2 3 4