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

السّلام عليكم و رحمة الله و بركاته
أتمنى من الله أنْ تكونوا إخواني الأعزّاء بتمام الصحّة و العافية
مرّة أخرى .. أرجو من الله ثم من سيادتكم المحترمة مساعدتي إذا كان بالإمكان بهذه المسألة
بالفورم 1 لديّ مجموعة من التاكسات بها بيانات
ما أريده هو عند الضغط على زر الأمر 1 يتم ترحيل هذه البيانات المدخلة إلى قاعدة البيانات مثلما هو موضّح بشيت الإكسل
علمًا أنّ هذه البيانات التي سيتم ترحيلها ستتكرّر و لذلك عند الترحيل ستكون تحت بعضها ..
لكم مني مقدّمًا فائق الاحترام و التّقدير
تحياتي

[ahmedabdelaliem]

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

كيف حالك اخي عبدالعزيز

أتمنى أكون قد وفقت في تلبية طلبك

بالتوفيق

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

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

أدعو الله تعالى أن تكون أخي الغالي " أحمد عبد العليم " بتمام الصحّة و العافية و جميع أفراد أسرتك الفاضلة .. و أن يمنَّ عليك و يحقّق لك ما تتمنّاه

لم أجد ما أقوله لك سوى :

بارك الله فيك و لك .. و في صحتّك و أوقاتك و جميع أمورك الدينيّة و الدنيوية

يسّر الله أمورك مثلما تكرّمت سيّدي القدير و يسّرتَ لي أموري

هذا أخي الغالي و أستاذي العزيز ما أردت فعله بالضبط

تمام التّمام .. هذا هو المطلوب طولاً و عرضًا و الحمد لله

جزاك الله خير الجزاء يا أحمد يا عبد العليم و أحسن إليك مثلما دومًا تحسن إلينا نحن المبتدئين

فائق إحتراماتي لشخصك الكريم

[ahmedabdelaliem]

لقد اثلجت صدري

شكرا لحضرتك على كلماتك المحملة بمشاعر الاخوة والطيبة

بارك الله فيك وفي اولادك وعملك اخي الحبيب

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

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

أدعو الله أنّك أخي الغالي و أستاذي القدير " أحمد عبد العليم " بتمام الصحّة و العافية

آسف .. و الله جد آسف أخي الغالي على الازعاج ..

لأني لم أعرف كيف أتصرّف بالأمر ..

أضفت بعض التاكسات إلى الفورم و أضفت ما يجب إضافته بالكود ..

لكن المشكلة سيّدي الكريم عند التّرحيم .. يتم التّرحيل إلى أسفل الجدول و ليس إبتداءً من الرقم 1 إلى 10

ثم من الرقم التسلسلي 11 إلى 20 ...إلخ

ألف شكر مقدّمًا على النّظر في الموضوع

جزاك الله خيرا و زادها بميزان حسناتك

فائق إحتراماتي لشخصك الكريم

[ahmedabdelaliem]

هل المطلوب حذف السجلات السابقة واضافة سجلات جديدة ام ماذا ؟

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

فهل هذا هو المطلوب

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

أخي الغالي " أحمد عبد العليم "

المطلوب ليس حذف السجلاّت السابقة و إنّما إضافة سجلات جديدة تحت السجلات الموجودة سابقا

إذا كانت السجلات الموجودة على ورقة الاكسل قدرها 200 سجل مثلاً .. عند ترحيل 10 سجلات جديدة .. ستبدأ من 201 إلى غاية 210 و هكذا ..

إحتراماتي

[ahmedabdelaliem]

هذا هو ما يحدث اخي عبدالعزيز عند الترحيل يضيف سجلات جديدة وارقام  تسلسلية جديدة

---

الحقيقة انا مش فاهم المطلوب الان هل اضافة السجلات بعد السجلات الموجودة ولا التعديل على السجلات الموجودة

لو المطلوب الاضافة فهي تعمل تمام مع التسلسل لانك غيرت اسماء الحقول الرئيسية لذلك التسلسل لا يعمل وانا الان قمت بضبطه مرة اخرى ارجو
توضيح الطلوب

شاكر لك

---

هذا هو الكود بعد التعديل مع اضافة التسلسل من جديد

هل هو المطلوب

PHP كود :

If RS.State = adStateOpen Then RS.Close

RS.Open "Select * From [Feuil1$]", Cn, adOpenKeyset, adLockPessimistic
Dim I As Integer
For I = 0 To 5
RS.AddNew
If I = 0 Then
RS.Fields(0).Value = GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value = Text1.Text
RS.Fields(2).Value = Text2.Text
RS.Fields(3).Value = Text3.Text
RS.Fields(4).Value = Text4.Text
RS.Fields(5).Value = Text5.Text
RS.Fields(6).Value = Text6.Text
RS.Update
I = I + 1
End If
RS.MoveNext

If I = 1 Then
RS.AddNew
RS.Fields(0).Value = GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value = Text7.Text
RS.Fields(2).Value = Text8.Text
RS.Fields(3).Value = Text9.Text
RS.Fields(4).Value = Text10.Text
RS.Fields(5).Value = Text11.Text
RS.Fields(6).Value = Text12.Text
RS.Update
I = I + 1
End If
RS.MoveNext
       
If I = 2 Then
RS.AddNew
RS.Fields(0).Value = GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value = Text13.Text
RS.Fields(2).Value = Text14.Text
RS.Fields(3).Value = Text15.Text
RS.Fields(4).Value = Text16.Text
RS.Fields(5).Value = Text17.Text
RS.Fields(6).Value = Text18.Text
RS.Update
I = I + 1
End If
RS.MoveNext
       
If I = 3 Then
RS.AddNew
RS.Fields(0).Value = GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value = Text19.Text
RS.Fields(2).Value = Text20.Text
RS.Fields(3).Value = Text21.Text
RS.Fields(4).Value = Text22.Text
RS.Fields(5).Value = Text23.Text
RS.Fields(6).Value = Text24.Text
RS.Update
I = I + 1
End If
RS.MoveNext
       
If I = 4 Then
RS.AddNew
RS.Fields(0).Value = GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value = Text25.Text
RS.Fields(2).Value = Text26.Text
RS.Fields(3).Value = Text27.Text
RS.Fields(4).Value = Text28.Text
RS.Fields(5).Value = Text29.Text
RS.Fields(6).Value = Text30.Text
RS.Update
I = I + 1
End If
RS.MoveNext
       


If I = 5 Then
RS.AddNew
RS.Fields(0).Value = GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value = Text31.Text
RS.Fields(2).Value = Text32.Text
RS.Fields(3).Value = Text33.Text
RS.Fields(4).Value = Text34.Text
RS.Fields(5).Value = Text35.Text
RS.Fields(6).Value = Text36.Text
RS.Update
I = I + 1
End If
RS.MoveNext

If I = 6 Then
RS.AddNew
RS.Fields(0).Value = GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value = Text37.Text
RS.Fields(2).Value = Text38.Text
RS.Fields(3).Value = Text39.Text
RS.Fields(4).Value = Text40.Text
RS.Fields(5).Value = Text41.Text
RS.Fields(6).Value = Text42.Text
RS.Update
I = I + 1
End If
RS.MoveNext

If I = 7 Then
RS.AddNew
RS.Fields(0).Value = GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value = Text43.Text
RS.Fields(2).Value = Text44.Text
RS.Fields(3).Value = Text45.Text
RS.Fields(4).Value = Text46.Text
RS.Fields(5).Value = Text47.Text
RS.Fields(6).Value = Text48.Text
RS.Update
I = I + 1
End If
RS.MoveNext

If I = 8 Then
RS.AddNew
RS.Fields(0).Value = GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value = Text49.Text
RS.Fields(2).Value = Text50.Text
RS.Fields(3).Value = Text51.Text
RS.Fields(4).Value = Text52.Text
RS.Fields(5).Value = Text53.Text
RS.Fields(6).Value = Text54.Text
RS.Update
I = I + 1
End If
RS.MoveNext

If I = 9 Then
RS.AddNew
RS.Fields(0).Value = GetNewNo("select max(ÇáÑÞã_ÇáÊÓáÓáí)+1 from [Feuil1$]")
RS.Fields(1).Value = Text55.Text
RS.Fields(2).Value = Text56.Text
RS.Fields(3).Value = Text57.Text
RS.Fields(4).Value = Text58.Text
RS.Fields(5).Value = Text59.Text
RS.Fields(6).Value = Text60.Text
RS.Update
I = I + 1
End If
RS.MoveNext


Next
MsgBox "ÊãÊ ÚãáíÉ ÊÑÍíá ÇáÈíÇäÇÊ", vbInformation, "ÃÎíß ÃÍãÏ ÚÈÏ ÇáÚáíã"
Exit Sub 


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

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

آسف .. آسف مرة أخرى على الإزعاج أخي الفاضبل " أحمد عبد العليم "

معذرة لم أتمنك من الرّد في وقتها .. كان الوقت جد متأخر عن موعد العمل

لاحظ أخي الفاضل هذه الصورة لقاعدة البيانات و هي فارغة تمامًا ..
لكن عندما أقوم بعملية التّرحيل أجد البيانات قم تم ترحيلها لأسفل الصفحة و ليس في أعلى قاعدة البيانات بداية من الرقم الرقم التسلسلي 1

أرجو أني وفقت في شرح المشكلة
بارك الله مسبّقًا سيدي الكريم
إحتراماتي

[ahmedabdelaliem]

نعم اخي فهمت قصدك

يجب حذف جميع السطور ما عدا السطور وسوف يقوم البرنامج بكل شيء لا تقلق سوف يقوم بعمل التنسيق أي التسطير وضافة البيانات

هنا هو يتعامل نفس اكسس بالضبط فكل سجل من السجلات في الجدول مضاف اليه أي تسطير يعتبره البرنامج سجل مكتوب يمكنك التعديل عليه

ارجو ان أكون قد وفقت في الشرح

بالتوفيق