شكرآ اخي عند الظغط على زر يظهر على الشكل الاتي
امل المساعده
هذا كود افضل بعد اضافة 2 تكست بوكس : تكست بوكس1 و تكست بوكس2
كود :
Private Sub Command1_Click()
Dim a As Integer
On Error Resume Next
Data1.Recordset.OpenRecordset
Data1.Recordset.MoveLast
Text2.Text = Data1.Recordset.RecordCount
a = Text2.Text / 4
For ic = 0 To 3
i = ic + 1
b = (i * a) - a
c = (i * a) - 1
If i = 4 Then c = Data1.Recordset.RecordCount - 1
For ii = b To c
If i > 1 Then
xx = a * (i - 1)
x = ii - xx
Else
x = ii
End If
Data1.Recordset.OpenRecordset
Data1.Recordset.MoveFirst
Data1.Recordset.Move (ii)
Text1.Text = Data1.Recordset.Fields!Name
List1(ic).AddItem (x)
List1(ic).List(x) = Text1.Text
Next ii
Next ic
End Sub
السلام عليكم
- جزاك الله كل خير أخي asto على حماسك وجهدك في المساعدة , إسمح لي بعد إذنك أن أقدم مشاركتي في هذا الموضوع , في المرفقات .
- تحياتي .
السلام عليكم
- ويمكن إختصار الكود بهذا الشكل .
- تحياتي .
السلام عليكم
- إذا كنت تريد عمل التقسيم لموظفي قسم معين فقط دون باقي الأقسام ، فأكيد أنه يوجد حقل لنوع القسم في جدول الموظفين ، إذا كل ما عليك فعله هو إضافة شرط إسم القسم في جملة الإستعلام ، مثلاً : Where Dept='الصادر' ، وباقي الكود أتركه كما هو ، يعني عدل الإستعلام الموجود في المثال السابق ليصبح هكذا :
كود :
IF I = 1 Then
Select Top " & Group_Members(I) & " ID,Name From Table1 Where Dept ='الصادر'
Else
Select Top " & Group_Members(I) & " ID,Name From Table1 Where Dept ='الصادر' And ID >" & LastID
End IF
- وأيضاً عدل الإستعلام الذي في أول الكود لاتنساه .
- تحياتي .
