[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

أخي الكريم .. محاولة بسيطة لعلّها تفي بالغرض إن شاء الله .. فبسبب ضعف النت لديَّ لم أتمكن حتى من رفع الملف لأرسله بالمرفقات

لاحظ التغيير بالكود بالفورم 2 .. أين أضفت ( + 2 ) .. بمعنى تبدأ من الصفر و تضيف عمودين ليصبح المجموع 3 و الارسال يبدأ من العمود 4

إحتراماتي

كود :

Public Sub Chick_Itm()
Call Sarchx
With Form1.fox
.Rows = .Rows + 1
.Row = .Rows - 1
.FixedRows = 1
.Col = 0
.Text = fox.TextMatrix(fox.RowSel, .Col)
.Col = 1
.Text = fox.TextMatrix(fox.RowSel, .Col + 2)
End With
End Sub