تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عدد السجلات خطأ لماذا؟
#1
احترت كثيرا من هذا المشروع بالمرفقات ولم اعرف السبب
ارفقت لكم مثالين
في المثال الاول يظهر بدون اضافة جدول فليكس جريد ان عدد السجلات بعد الفلترة واحد وهذا خطأ

اما في المثال الثاني بعد اضافة الجدول تعطي عدد السجلات تمام

ياريت اعرف السبب ايه؟
ولكم جزيل الشكر


الملفات المرفقة
.rar   safy.rar (الحجم : 24.19 ك ب / التحميلات : 39)
الرد }}}
تم الشكر بواسطة:
#2
عجيب هذا الخطأ
لم اجد له تفسير
الرد }}}
#3
السلام عليكم ورحمة الله وبركاته
تفضل اخي الحبيب هذا الكود بعد التعديل
سوف يعطيك عدد السجلات الصحيح للبرنامج رقم 1

كود :
Private Sub Combo1_Click()
Dim i As Integer
i = 0
Data1.RecordSource = Empty
Data1.RecordSource = "Select * From TbName Where Name like '" & Combo1.Text & "'"
Data1.Refresh
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
i = i + 1
Data1.Recordset.MoveNext
Loop
Text1 = i
End Sub
Private Sub Form_Load()
Data1.RecordSource = "TbName"
Data1.Refresh
If Data1.Recordset.RecordCount <> 0 Then
Data1.RecordSource = "Select * From TbName Where NumFatora like '" & "1" & "'"
Data1.Refresh

Do
xcombo1 = Data1.Recordset.Fields![Name]
Combo1.AddItem xcombo1
If Not Data1.Recordset.EOF Then Data1.Recordset.MoveNext
Loop Until Data1.Recordset.EOF
End If

End Sub


بالتوفيق
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#4
(05-01-17, 10:55 PM)ahmedabdelaliem كتب : السلام عليكم ورحمة الله وبركاته
تفضل اخي الحبيب هذا الكود بعد التعديل
سوف يعطيك عدد السجلات الصحيح للبرنامج رقم 1

كود :
Private Sub Combo1_Click()
Dim i As Integer
i = 0
Data1.RecordSource = Empty
Data1.RecordSource = "Select * From TbName Where Name like '" & Combo1.Text & "'"
Data1.Refresh
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
i = i + 1
Data1.Recordset.MoveNext
Loop
Text1 = i
End Sub
Private Sub Form_Load()
Data1.RecordSource = "TbName"
Data1.Refresh
If Data1.Recordset.RecordCount <> 0 Then
Data1.RecordSource = "Select * From TbName Where NumFatora like '" & "1" & "'"
Data1.Refresh

Do
xcombo1 = Data1.Recordset.Fields![Name]
Combo1.AddItem xcombo1
If Not Data1.Recordset.EOF Then Data1.Recordset.MoveNext
Loop Until Data1.Recordset.EOF
End If

End Sub


بالتوفيق

ممتاز اخي الكريم
ولكن لماذا هذا الكود Data1.Recordset.RecordCount
لا يرجع قيمة عدد السجلات مع انه مختص بذلك
الرد }}}
تم الشكر بواسطة:
#5
الموضع بسيط اخي لكي يعمل Record Count

تفضل هذا الكود

كود :
Dim gg As Byte
Private Sub Combo1_Click()
Data1.RecordSource = "Select * From TbName Where Name like '" & Combo1.Text & "'"
Data1.Refresh
Data1.Recordset.MoveLast
gg = Data1.Recordset.RecordCount

Text1 = gg
End Sub
Private Sub Form_Load()
Data1.RecordSource = "TbName"
Data1.Refresh
If Data1.Recordset.RecordCount <> 0 Then
Data1.RecordSource = "Select * From TbName Where NumFatora like '" & "1" & "'"
Data1.Refresh

Do
xcombo1 = Data1.Recordset.Fields![Name]
Combo1.AddItem xcombo1
If Not Data1.Recordset.EOF Then Data1.Recordset.MoveNext
Loop Until Data1.Recordset.EOF
End If

End Sub

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


بالتوفيق
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}
#6
ممتاز اخي الكريم
يعني كلامك انه بعد كل عملية بحث ارجع لاخر سجل ليحدد لي عدد السجلات
سأعمل بهذه الطريقة ولكن عندي احساس انه هناك تفسير منطقي لتلك المشكلة
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , ahmedabdelaliem


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف يمكن برمجة عدد السجلات واستعراض السجلات بشرط رقم الموظف ؟ Microformt 3 195 09-01-24, 01:05 AM
آخر رد: Taha Okla
  [vb6.0] حذف سجل محدد بضغطة زر وحذف جميع السجلات بضغطة زر وادي العوضي 2 199 31-12-23, 07:24 AM
آخر رد: وادي العوضي
Question [vb6.0] كيف اجعل تقرير برنامجي تكون السجلات ملونه مثل الذي في الصورة التأليه ؟ Microformt 0 276 29-10-23, 07:37 PM
آخر رد: Microformt
  محتاج امر حدف جميع السجلات المختاره في MSHFlexGrid scsi7000 1 1,135 03-10-20, 08:55 PM
آخر رد: Ahmed_Mansoor
Question [vb6.0] لماذا لا يظهر جميع المسخدمين في القائمه نامل المساعدة في المثال المرفق؟؟ Microformt 4 1,926 01-05-20, 04:18 AM
آخر رد: karmina2012
  هل هناك اداة افضل من msflexgrid لعرض السجلات gonm64 2 1,538 07-01-20, 08:58 PM
آخر رد: gonm64
  كيف يمكن انزال تسلسل دفعة واحدة بعدد السجلات الموجودة gonm64 5 2,172 02-10-19, 10:22 PM
آخر رد: Ahmed_Mansoor
Question [سؤال] لماذا تظهر هذه الرسالة في فيجوال بيسك؟؟؟ Omar 6.0 6 3,074 18-08-18, 07:05 PM
آخر رد: elgokr
Exclamation [سؤال] لماذا عند التشغيل تظهر هذه الرسالة MicroDoha 2 1,515 18-08-18, 06:45 PM
آخر رد: MicroDoha
  ارجو المساعدة فى التنقل بين السجلات ..... جزاكم الله خير mhareek 15 4,316 07-06-18, 10:54 PM
آخر رد: mhareek

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم