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

[safaa salem5]

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

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

 

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

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

lab2.rarFetching info...

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

[Foksh]

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

 

lab2.accdbFetching info...

[ابو جودي]

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

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.zipFetching info...

[safaa salem5]

  في 25‏/10‏/2023 at 14:13, Foksh said:

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

 

lab2.accdb 1.11 MB · 3 downloads

Expand  

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

  في 25‏/10‏/2023 at 14:39, ابو جودي 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

Expand  

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

[ابو جودي]

  في 25‏/10‏/2023 at 15:13, safaa salem5 said:

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

Expand  

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

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

  في 25‏/10‏/2023 at 15:13, safaa salem5 said:

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

Expand  

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

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

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

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

[Foksh]

  في 25‏/10‏/2023 at 15:13, safaa salem5 said:

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

Expand  

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

 

[safaa salem5]

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

  في 25‏/10‏/2023 at 15:20, ابو جودي said:

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

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

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

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

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

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

Expand  

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

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

[ابو جودي]

  في 25‏/10‏/2023 at 15:33, safaa salem5 said:

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

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

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

Expand  

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

[safaa salem5]

  في 25‏/10‏/2023 at 15:39, ابو جودي said:

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

Expand  

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

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

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

[ابو جودي]

  في 25‏/10‏/2023 at 15:44, safaa salem5 said:

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

Expand  

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

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).zipFetching info...

[safaa salem5]

  في 25‏/10‏/2023 at 15:55, ابو جودي 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

Expand  

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

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

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

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

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