مشكلة غريبة في هذا الإستعلام أرجو حلها

عدل هكذا

fg.TextMatrix(fg.Rows - 1, 1) = rs("name")

fg.TextMatrix(fg.Rows - 1, 2) = rs("address")

fg.TextMatrix(fg.Rows - 1, 3) = rs("phon")

fg.TextMatrix(fg.Rows - 1, 4) = rs("blood")

fg.TextMatrix(fg.Rows - 1, 5) = rs("remaks")

or you can follow this :

n = 1

Do While Not rs.EOF

fg.Rows = fg.Rows + 1

fg.Col = 1

fg.Row = n

fg.Text = rs("name")

fg.Col = 2

fg.Row = n

fg.Text = rs("phon")

fg.Col = 3

fg.Row = n

fg.Text = rs("address")

fg.Col = 4

fg.Row = n

fg.Text = rs("blood")

fg.Col = 5

fg.Row = n

fg.Text = rs("remaks")

rs.MoveNext

n = n + 1

Loop

الأخ الفاضل ابو زيد شكرا جزيلا علي مرورك والإستعلام الاول ضبظ معي كان عندي خطأ في الترقيم ولو تكرمتم ممكن أحد الأعضاء أو المشرفين يساعدني في الإستعلام الثاني الذي يربط بين الجدولين ويعرض بيانات الجدولين في فليكس جريد وشكرا جزيلا للجميعشكرا للاخ أبو زيد المشكلة بالمثال المرفق أعلاهشكرا للأخ بلاك تيجر علي فضلك بإجابة الجزء الأول من الإستعلام ولقد ضبط معي ولكن المشكلة في ربط الجدولين بإستعلام وعرض النتائج فيليكس جريد أتمني حد يساعدني لاني مبتدا في الفيجوال ومحتاج المثال ضروري وشكرا لكم

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

Private Sub Command1_Click()

Dim ser As String

On Error GoTo Not_Found

ser = InputBox("من فضلك ادخل كود المريض", "استعلام عن حالة مريض")

If ser = "" Then Exit Sub

sql = "select person1.id,person.name,person.category,person.disname,person.acute,person.chroni

from person1,person where person1.id = person.id and person1.id=" & Val(ser)

If rs.State = adStateOpen Then rs.Close

rs.Open sql, Conn, adOpenDynamic, adLockOptimistic

Form2.fg1.Row = 0

Form2.fg1.Col = 0

Form2.fg1.Text = "كود المريض"

Form2.fg1.Col = 1

Form2.fg1.Text = "الاسم"

Form2.fg1.Col = 2

Form2.fg1.Text = "نوع المرض"

Form2.fg1.Col = 3

Form2.fg1.Text = "تشخيص المرض"

Form2.fg1.Col = 4

Form2.fg1.Text = "حاد"

Form2.fg1.Col = 5

Form2.fg1.Text = "مزمن"

Form2.fg1.Row = 1

Form2.fg1.Col = 0

Form2.fg1.Text = rs("id")

Form2.fg1.Col = 1

Form2.fg1.Text = rs("name")

Form2.fg1.Col = 2

Form2.fg1.Text = rs("category")

Form2.fg1.Col = 3

Form2.fg1.Text = rs("disname")

Form2.fg1.Col = 4

Form2.fg1.Text = rs("acute")

Form2.fg1.Col = 5

Form2.fg1.Text = rs("chronic")

Form2.Show 1

Exit Sub

Not_Found:

MsgBox "كود المريض غير موجود فى قاعدة البيانات"

End Sub

الأخ الفاضل بلاك تيجر 2007 شكرا لتكرمك بالإجابة وجزاك الله خيرا اخي الفاضل قمت بعمل مفتاح 1 علي النموذج الأول في المثال المرفق ووضعت الحل الذي ارسلته لي في المفتاحcommand 1وكما هو واضح من الكود ان الإستعلام سوف يفتح النموذج الثاني ويعرض نتيجة الإستعلام في فليكس جريد بالنموذج لثاني ولكن الاستعلام أعطي رسالة خطأ كالتاليcompile errormethod or data member not found===============قمت بنقل الإستعلام الي form2قمت بعمل مفتاح 1 علي النموذج الثاني ووضعت فيه الإستعلام طبعا بعد كلمة form2.وهو يعمل ويعطي صندوق الرسالة أدخل كود المريض وبعد إدخال ال id يعطي هذا السجل غير موجود فما الحل وآسف إذا كنت بتقل عليكوكيف ارسل لك الملف بعد التعديل لكي تلقي عليه نظرة وشكراالأخ بلاك تيجر عذرا نسيت أكتب الكود اللي تم وضعه في مفتاح 1 بالنموذج رقم 2 المحتوي علي فليكس جريدPrivate Sub Command1_Click()Dim ser As StringOn Error GoTo Not_Foundser = InputBox("ãä ÝÖáß ÇÏÎá ßæÏ ÇáãÑíÖ", "ÇÓÊÚáÇã Úä ÍÇáÉ ãÑíÖ")If ser = "" Then Exit Subsql = "select person1.id,person.name,person.category,person.disname,person.acute,person.chroni from person1,person where person1.id = person.id and person1.id=" & Val(ser)If rs.State = adStateOpen Then rs.Closers.Open sql, Conn, adOpenDynamic, adLockOptimisticfg1.Row = 0fg1.Col = 0fg1.Text = "ßæÏ ÇáãÑíÖ"fg1.Col = 1fg1.Text = "ÇáÇÓã"fg1.Col = 2fg1.Text = "äæÚ ÇáãÑÖ"fg1.Col = 3fg1.Text = "ÊÔÎíÕ ÇáãÑÖ"fg1.Col = 4fg1.Text = "ÍÇÏ"fg1.Col = 5fg1.Text = "ãÒãä"fg1.Row = 1fg1.Col = 0fg1.Text = rs("id")fg1.Col = 1fg1.Text = rs("name")fg1.Col = 2fg1.Text = rs("category")fg1.Col = 3fg1.Text = rs("disname")fg1.Col = 4fg1.Text = rs("acute")fg1.Col = 5fg1.Text = rs("chronic")Rem Form2.Show 1Exit SubNot_Found:MsgBox "ßæÏ ÇáãÑíÖ ÛíÑ ãæÌæÏ Ýì ÞÇÚÏÉ ÇáÈíÇäÇÊ"End Sub

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

الاخ العزيز رساله الخطأ هذه تدل على ان هناك شىء خطأ فى قاعدة البيانات نفسها وليس فى الكود عليك ان تعيد صياغة العلاقات بين الجدولين وتأكد من ان id هو المفتاح الاساسى فى جدول الملف الشخصى للمرضى من نوع number حيث يتم ربطه بالمفتاح الثانوى فى الجدول الاخر وسيكون الاستعلام من خلال رقم id فى الجدول الاول وعرض نتائج الاستعلام من الجدول الاخر على اساس ان رقم id متساوى فى الجدولين بالطريقة السابقة.