[حامد محمد]

التعديل في الكود 

 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


                                               تحياتي ...