يا جماعة الخير انا في ورطة ..ايجاد مجموع السجلات لكل تخصص.

بسيطه إن شاء الله

Dim MyDb As Database
Dim MyRs As Recordset
Dim strSql As String

Set MyDb=OpenDatabase("MyData.mdb")
strSql="Select * From tabel Where tabel.[الجنس]='" & _
Text1.Text & "';"
Set MyRs=MyDb.OpenRecordSet(strSql)
Text2.Text=MyRs.RecordCount

وهكذا لاى لإستعلام أخر ترغب فيه

اخي العزيز رمضان

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

الاسم - التخصص- عدد السجلات

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

مع خالص الشكر

اقتباس

الرسالة الأصلية كتبت بواسطة المثابر

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

الاسم  -  التخصص- عدد السجلات

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

مع خالص الشكر

بصراحه مافهمتش ماذا تريد بالضبط ياريت توضيح أكثر

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

تضع النص الذى تريد إيجاد مجموع ناتج الاستعلام عنه فى Text1

فيظهر لك المجموع فى Text2

الاخ رمضان

الكود السابق طبعا هو لايجاد سجلات تحتوي على الكلمة الموجودة في التكست,كيف اجد عدد السجلات التي سوف تظهر في الاستعلام.

اي ال count عدد السجلات الظاهرة.

مع خالص الشكر

السلام عليكم

أخوك أبو حسام مبرمج فيجوال بيسك محترف من جدة

إن كنت في جدة راسلني علي hosnii@hotmail.com