[ali saud]

بسم الله الرحمن الرحيم 

رمضان كريم عليكم وعلى الامة العربية 

 

وحفظكم الله من كل مكروه 

*****************************************************************

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

عندي جدولين 

الاول اسمه Info  خاص بمعلومات المرضى 

الجدول الثاني اسمه Reviews وفيه زيارات المرضى ونوع الزيارة وتاريخ الزيارة 

بينهم علاقة 

ID >>>>>IDD

لما اقوم باستدعاء بيانات المريض وكما في الصورة 

يوجد زر اسمه زيارة جديدة 

اثناء الضغط علية يخرج لي فورم اخر

لكن المشكلة يقوم بجلب زيارات وتواريخ جميع المرضى 

كما في الصوره 

المطلوب 

لما اقوم بتحديد مريض جديد والضغط على زر 

زيارة جديدة 

يفتح الفورم الثاني   
 ويعرض زيارات المريض المحدد  فقط 

والسلام عليكم 

[aljzazy]

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

[ali saud]

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

---

da = New OleDbDataAdapter(" select * from Reviews  ", con)
       da.Fill(dt)
في فورم الزيارات
وهذا في زر الاختيار  في الفورم الاول 
    If ID.Text = "" Or age.Text = "" Then
           MsgBox("يرجى اختيار المريض")
           Return
       Else
           Visits.Show()
       End If

[aljzazy]

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

---

بالنسبة لتحميل البيانات يجب ان تكون بحدث الزر الخاص بفتح الشاشة

[ali saud]

حلو يعني تحميل البيانات بيكول بزر فتح الفورم
طيب كيف بدي اكتب الشرط حسب ID

[aljzazy]

عندك برنامج anydesk

[ali saud]

ثواني بيكون جاهز

[aljzazy]

كود :

(" select * from Reviews where id="& ID.Text &"", con)