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.
Ö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?
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.
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.
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.
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.