طريقة استرجاع بيانات المريض بمجرد اختيار اسمه داخل فورم مصدره جدول واحد يحتوى تفاصيل الزياره وتفاصيل المريض

[safaa salem5]

عندى فورم مصدره جدول يشمل بيانات المريض وبيانات الزياره

عايزه عند فتح زياره جديده لمريض متسجل قبل كدا  بمجرد اختيار اسمه يسترجع بياناته زى كود المريض السن العنوان الايميل رقم الموبايل 

 

طبعا مع الاحتفاظ بكود الزياره الجديد والترتيب اليومى الجديد

مع العلم عدم وجود مفتاح اساسى فى الجدول

lab2.rar

تم تعديل أكتوبر 25, 2023 بواسطه safaa salem5

[Foksh]

تجربة بسيطة باستخدام استعلام 

 

lab2.accdb

[ابو جودي]

طيب مبدئيا عندى اعتراضين

1- الافضل وضع بيانات المريض فى جدول منفضل بحيث لا تتكرر مع كل تحليل ومع كل زيارة  اومااااااااااال
2- بسبب امكانية تكرار الاسم مع المرضى لا احبذ استخدام الاسم لجلب البيانات 

ولكن سوف اضع الاجابة على كل حال

اولا مربع السرد اسم المريض يجب تامينه فى حالة وجود بيانات سابقة لا يجب تعديل الاسم وذلك بوضع الكود الاتى فى مربع سرد اسم المريض قبل التحديث

Private Sub pname_BeforeUpdate(Cancel As Integer)
  If Not NewRecord Then Me.Undo: Cancel = True: Exit Sub
End Sub

 

ولجلب البيانات بوضع الكود الاتى فى مربع سرد اسم المريض بعد التحديث

Private Sub pname_AfterUpdate()
  
  If Not NewRecord Then Exit Sub
  
  Dim strDLookupFlds  As String
  Dim stLinkCriteria  As String
  Dim MyVariable      As String
  Dim Arry()          As String
  
  MyVariable = Me.pname
  stLinkCriteria = "[pname] ='" & MyVariable & "'"         '|String
  
  strDLookupFlds = DLookup("[pname] & '|' & [code] & '|' & [ptitle] & '|' & [bdate] & '|' & [gender] & '|' & [phone] & '|' & [mobile] & '|' & [adress] & '|' & [email] & '|' & [wt] & '|' & [ht]", "[reservation_tbl]", stLinkCriteria)
  Arry = Split(strDLookupFlds, "|")
  
  Me.code = Arry(1)
  Me.ptitle = Arry(2)
  Me.bdate = Arry(3)
  Me.gender = Arry(4)
  Me.phone = Arry(5)
  Me.mobile = Arry(6)
  Me.adress = Arry(7)
  Me.email = Arry(8)
  Me.wt = Arry(9)
  Me.ht = Arry(10)
End Sub

 

بالنسبة للعمر يفضل استخدام دالة حساب العمر بناء على تاريخ الميلاد نظرا لزيادة العمر بعد ذلك 

 

واخيرا المرفق

lab3.zip

[safaa salem5]

59 minutes ago, Foksh said:

تجربة بسيطة باستخدام استعلام 

 

lab2.accdb 1.11 MB · 3 downloads

الفيلدات التانيه كدا اتقفلت مش عارف اكتب فيها حاجه كدا اتحول لفورم بحث فقط

35 minutes ago, ابو جودي said:

طيب مبدئيا عندى اعتراضين

1- الافضل وضع بيانات المريض فى جدول منفضل بحيث لا تتكرر مع كل تحليل ومع كل زيارة  اومااااااااااال
2- بسبب امكانية تكرار الاسم مع المرضى لا احبذ استخدام الاسم لجلب البيانات 

ولكن سوف اضع الاجابة على كل حال

اولا مربع السرد اسم المريض يجب تامينه فى حالة وجود بيانات سابقة لا يجب تعديل الاسم وذلك بوضع الكود الاتى فى مربع سرد اسم المريض قبل التحديث

Private Sub pname_BeforeUpdate(Cancel As Integer)
  If Not NewRecord Then Me.Undo: Cancel = True: Exit Sub
End Sub

 

ولجلب البيانات بوضع الكود الاتى فى مربع سرد اسم المريض بعد التحديث

Private Sub pname_AfterUpdate()
  
  If Not NewRecord Then Exit Sub
  
  Dim strDLookupFlds  As String
  Dim stLinkCriteria  As String
  Dim MyVariable      As String
  Dim Arry()          As String
  
  MyVariable = Me.pname
  stLinkCriteria = "[pname] ='" & MyVariable & "'"         '|String
  
  strDLookupFlds = DLookup("[pname] & '|' & [code] & '|' & [ptitle] & '|' & [bdate] & '|' & [gender] & '|' & [phone] & '|' & [mobile] & '|' & [adress] & '|' & [email] & '|' & [wt] & '|' & [ht]", "[reservation_tbl]", stLinkCriteria)
  Arry = Split(strDLookupFlds, "|")
  
  Me.code = Arry(1)
  Me.ptitle = Arry(2)
  Me.bdate = Arry(3)
  Me.gender = Arry(4)
  Me.phone = Arry(5)
  Me.mobile = Arry(6)
  Me.adress = Arry(7)
  Me.email = Arry(8)
  Me.wt = Arry(9)
  Me.ht = Arry(10)
End Sub

 

بالنسبة للعمر يفضل استخدام دالة حساب العمر بناء على تاريخ الميلاد نظرا لزيادة العمر بعد ذلك 

 

واخيرا المرفق

lab3.zip 88.46 kB · 2 downloads

بجد مش عارفه من غيرك كنت هعمل ايه متشكره جدا   تسلم لذوقك 

[ابو جودي]

4 دقائق مضت, safaa salem5 said:

بجد مش عارفه من غيرك كنت هعمل ايه

اكيد وحتما سوف تجدين من هم افضل من بكثير من اخوانى الكرام او اساتذتى العظماء الذين اتعلم منهم فى هذا الصرح الشامخ 

فقط انا طويلب علم هاو 

5 دقائق مضت, safaa salem5 said:

متشكره جدا   تسلم لذوقك

الله يسلم حضرتك لا شكر على واجب 

اهلا بيكى فى اى وقت

ولكن ارجوكى اقبلى نصيحتى بفصل بيانات المريض فى جدول منفصل بعيدا عن جدول التحاليل ونتائجها

واخيــرا شرفتى المنتدى يا بنت بلادى 

[Foksh]

8 دقائق مضت, safaa salem5 said:

الفيلدات التانيه كدا اتقفلت مش عارف اكتب فيها حاجه كدا اتحول لفورم بحث فقط

كان من الأفضل اختي الكريمة توضيح مطلبك أكثر حتى لا تتشعب الأفكار في ذهن القارئ , كل الإحترام لك 

 

[safaa salem5]

انا اسفه تعبتك معايا تسلم لكل ثانيه ضيعتها من وقتك شكرا بجد

12 minutes ago, ابو جودي said:

اكيد وحتما سوف تجدين من هم افضل من بكثير من اخوانى الكرام او اساتذتى العظماء الذين اتعلم منهم فى هذا الصرح الشامخ 

فقط انا طويلب علم هاو 

الله يسلم حضرتك لا شكر على واجب 

اهلا بيكى فى اى وقت

ولكن ارجوكى اقبلى نصيحتى بفصل بيانات المريض فى جدول منفصل بعيدا عن جدول التحاليل ونتائجها

واخيــرا شرفتى المنتدى يا بنت بلادى 

 هو شغال تمام فى حالة استرجاع  داتا قديمه متسجله

بس لما بسجل جديد فى رسالة بتطلع

[ابو جودي]

5 دقائق مضت, safaa salem5 said:

انا اسفه تعبتك معايا تسلم لكل ثانيه ضيعتها من وقتك شكرا بجد

 هو شغال تمام فى حالة استرجاع  داتا قديمه متسجله

بس لما بسجل جديد فى رسالة بتطلع

اكيد كود المريض الذي تريدين جلب بياناته غير موجود 🫣

[safaa salem5]

5 minutes ago, ابو جودي said:

اكيد كود المريض الذي تريدين جلب بياناته غير موجود 🫣

فى حالة جلب البيانات واسترجاعها الكود شغال تمام

ولكن فى حالة تسجيل اسم مريض جديد الرساله دى بتطلع ممكن حضرتك تجرب تكتب اسم مريض جديد  وانت هتفهمنى

تم تعديل أكتوبر 25, 2023 بواسطه safaa salem5

[ابو جودي]

14 دقائق مضت, safaa salem5 said:

ولكن فى حالة تسجيل اسم مريض جديد الرساله دى بتطلع

ولا تزعلى نفسك سهله ان شاء الله
اتفضلى يا افندم غيرى الكود السابق بالكود اللاحق

Private Sub pname_AfterUpdate()
  
  
  If Not NewRecord Then Exit Sub
  
  Dim strDLookupFlds  As String
  Dim stLinkCriteria  As String
  Dim MyVariable      As String
  Dim Arry()          As String
  
  MyVariable = Me.pname
  stLinkCriteria = "[pname] ='" & MyVariable & "'"         '|String
  
  On Error GoTo ErrorHandler
  strDLookupFlds = DLookup("[pname] & '|' & [code] & '|' & [ptitle] & '|' & [bdate] & '|' & [gender] & '|' & [phone] & '|' & [mobile] & '|' & [adress] & '|' & [email] & '|' & [wt] & '|' & [ht]", "[reservation_tbl]", stLinkCriteria)
  
  Arry = Split(strDLookupFlds, "|")
  
  Me.code = Arry(1)
  Me.ptitle = Arry(2)
  Me.bdate = Arry(3)
  Me.gender = Arry(4)
  Me.phone = Arry(5)
  Me.mobile = Arry(6)
  Me.adress = Arry(7)
  Me.email = Arry(8)
  Me.wt = Arry(9)
  Me.ht = Arry(10)
  
  
ExitHandler:
  Exit Sub
ErrorHandler:
  
  Select Case Err.Number
  Case Is = 94: pname.Requery: Resume ExitHandler
  Case Else
    MsgBox "Error Number : " & Err.Number & vbNewLine & "Error Description : " & Err.Description
    Resume ExitHandler
  End Select
  
End Sub

 

وغيرى الكود الخاص بزر امر الاضافة الى الكود الاتى 

Private Sub Add_cmd_Click()

    On Error GoTo Err_NewRec
    DoCmd.Requery
    DoCmd.GoToRecord , , acNewRec
    
    
Exit_Err_NewRec:
    Exit Sub
Err_NewRec:
    
    MsgBox Err.Description
    Resume Exit_Err_NewRec
    
    
End Sub

 

وهذا مرفقكم بعد التعديل 

 

lab3(2).zip

[safaa salem5]

2 hours ago, ابو جودي said:

ولا تزعلى نفسك سهله ان شاء الله
اتفضلى يا افندم غيرى الكود السابق بالكود اللاحق

Private Sub pname_AfterUpdate()
  
  
  If Not NewRecord Then Exit Sub
  
  Dim strDLookupFlds  As String
  Dim stLinkCriteria  As String
  Dim MyVariable      As String
  Dim Arry()          As String
  
  MyVariable = Me.pname
  stLinkCriteria = "[pname] ='" & MyVariable & "'"         '|String
  
  On Error GoTo ErrorHandler
  strDLookupFlds = DLookup("[pname] & '|' & [code] & '|' & [ptitle] & '|' & [bdate] & '|' & [gender] & '|' & [phone] & '|' & [mobile] & '|' & [adress] & '|' & [email] & '|' & [wt] & '|' & [ht]", "[reservation_tbl]", stLinkCriteria)
  
  Arry = Split(strDLookupFlds, "|")
  
  Me.code = Arry(1)
  Me.ptitle = Arry(2)
  Me.bdate = Arry(3)
  Me.gender = Arry(4)
  Me.phone = Arry(5)
  Me.mobile = Arry(6)
  Me.adress = Arry(7)
  Me.email = Arry(8)
  Me.wt = Arry(9)
  Me.ht = Arry(10)
  
  
ExitHandler:
  Exit Sub
ErrorHandler:
  
  Select Case Err.Number
  Case Is = 94: pname.Requery: Resume ExitHandler
  Case Else
    MsgBox "Error Number : " & Err.Number & vbNewLine & "Error Description : " & Err.Description
    Resume ExitHandler
  End Select
  
End Sub

 

وغيرى الكود الخاص بزر امر الاضافة الى الكود الاتى 

Private Sub Add_cmd_Click()

    On Error GoTo Err_NewRec
    DoCmd.Requery
    DoCmd.GoToRecord , , acNewRec
    
    
Exit_Err_NewRec:
    Exit Sub
Err_NewRec:
    
    MsgBox Err.Description
    Resume Exit_Err_NewRec
    
    
End Sub

 

وهذا مرفقكم بعد التعديل 

 

lab3(2).zip 127.41 kB · 3 downloads

لو يسمح وقت حضرتك 

هل ممكن عند اختيار اسم المريض لو طلع متسجل قبل كدا  تطلع رساله   زى الصوره دى

بحيث لو  المستخدم اختار نعم يبقى نفس كود المريض ميتغيرش

  لكن لو اختار لا  فى الحاله دى كود المريض يعد تلقائى

تم تعديل أكتوبر 25, 2023 بواسطه safaa salem5