التعديل في الكود
On Error Resume Next: Err.Clear
Call ConnectionDatabase
If HD.State = adStateOpen Then HD.Close
HD.Open "Select distinct id_person From Emp_DataFIRST order by id_person asc", db, adOpenStatic, adLockOptimistic
If HD.RecordCount > 0 Then
'Label22.Caption = HD.RecordCount
Set MSHFlexGrid1.DataSource = HD
Else
' Label22.Caption = HD.RecordCount
MSHFlexGrid1.Clear
Set MSHFlexGrid1.DataSource = Nothing
End If
MSHFlexgridAlignment
If HD.State = adStateOpen Then HD.Close
السلام عليكم ورحمة الله وبركاته تحيه طيبه
اخواني كل سنه وانتو طيبين
1 - عايز لو تكرمتو اظهار البيانات في الفلكس قريد المكرر مرتين بزر (اي البيانات المكرره مرتين )
مثلا : الاسم العمر الوظيفة رقم الثابت
احمد 33 طبيب 93734
احمد 33 طبيب 93731
ياسر 34 فني 45464
ياسر 34 فني 45464
2- اظهار البيانات في الفلكس قريد المكرر ثلاث مرات بزر ( MSHFlexGrid1)
(اي البيانات المكرره ثلاث مرات )
مثلا : الاسم العمر الوظيفة رقم الثابت
امير 27 كبتن 29934
امير 27 كبتن 29934
امير 27 كبتن 29934
مرسى 56 عامل 44555
مرسى 56 عامل 44555
مرسى 56 عامل 44555
تحياتي ...
On Error Resume Next: Err.Clear
Call ConnectionDatabase
If HD.State = adStateOpen Then HD.Close
HD.Open "Select distinct id_person From Emp_DataFIRST order by id_person asc", db, adOpenStatic, adLockOptimistic
If HD.RecordCount > 0 Then
'Label22.Caption = HD.RecordCount
Set MSHFlexGrid1.DataSource = HD
Else
' Label22.Caption = HD.RecordCount
MSHFlexGrid1.Clear
Set MSHFlexGrid1.DataSource = Nothing
End If
MSHFlexgridAlignment
If HD.State = adStateOpen Then HD.Close
السلام عليكم ورحمة الله وبركاته تحيه طيبه
اخواني كل سنه وانتو طيبين
1 - عايز لو تكرمتو اظهار البيانات في الفلكس قريد المكرر مرتين بزر (اي البيانات المكرره مرتين )
مثلا : الاسم العمر الوظيفة رقم الثابت
احمد 33 طبيب 93734
احمد 33 طبيب 93731
ياسر 34 فني 45464
ياسر 34 فني 45464
2- اظهار البيانات في الفلكس قريد المكرر ثلاث مرات بزر ( MSHFlexGrid1)
(اي البيانات المكرره ثلاث مرات )
مثلا : الاسم العمر الوظيفة رقم الثابت
امير 27 كبتن 29934
امير 27 كبتن 29934
امير 27 كبتن 29934
مرسى 56 عامل 44555
مرسى 56 عامل 44555
مرسى 56 عامل 44555
تحياتي ...