[asto]

اضف اداة data1

[allayl]

شكرآ اخي عند الظغط على زر يظهر على الشكل الاتي



امل المساعده

[asto]

هذا كود افضل بعد اضافة 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

[VB_Coder]

السلام عليكم

- جزاك الله كل خير أخي asto على حماسك وجهدك في المساعدة , إسمح لي بعد إذنك أن أقدم مشاركتي في هذا الموضوع , في المرفقات .

- تحياتي .

[VB_Coder]

السلام عليكم

- ويمكن إختصار الكود بهذا الشكل .

- تحياتي .

[allayl]

شكرأ اخي VB_Coder بارك الله فيك

[allayl]

اخي VB_Coder

المثال شغال 100%

بس لو عندي قسم فيه 50 موظف هل يمكن عمل تقسيمه لهم فقط دون جدول الموظفين كاملا

[VB_Coder]

السلام عليكم

- إذا كنت تريد عمل التقسيم لموظفي قسم معين فقط دون باقي الأقسام ، فأكيد أنه يوجد حقل لنوع القسم في جدول الموظفين ، إذا كل ما عليك فعله هو إضافة شرط إسم القسم في جملة الإستعلام ، مثلاً : 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

- وأيضاً عدل الإستعلام الذي في أول الكود لاتنساه .

- تحياتي .

[allayl]

شكرآ لك اخي الكريم