الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلتي مع shape append

مغلق
بدأه m_ageeb في 12 أبريل 2006 · 5 رد · 717 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

ومازالت المشكلة قائمة

اليكم الكود ، رجاءاً يا اخوان ساعدوني فانا في مشكلة حقيقة

وظيفته هو ترقيم تلقائي للسجلات ، انظروا للكود من الداخل تجد ان هنالك

'1

Set Form1.DataGrid1.DataSource = myq_d

'2

'Set Form1.DataGrid1.DataSource = myq("cmdbill_d").Value

بعد عرض البرامج قم بإضافة علامة ' على السطر الاول

وحذف علامة ' من السطر الثاني كما موضح تحت

Set Form1.DataGrid1.DataSource = myq("cmdbill_d").Value

قم بتشغيل البرنامج تجد ان قيمة الحقل no لم يعدل

الرجاء المساعد يااخوان وجزاكم الله خيراً وشاكراً ومقدراً حسن تعاونكم

shi_pro.zip

تعلم فليس المرء يولد عالما ولا اخو علم كمن هو جاهلو

------------------------------------------------------------

~¤ô_ô¤~ AGEEB SOFT~¤ô_ô¤~

ageeb2000@hotmail.com

#2

للتوضيح:

الجدول الذي باسم myq لا يحفظ القيم الناتجة عن الترقيم التلقائي ، فكيف يمكنني حفظ القيم الموجودة في cmdbill_d

تعلم فليس المرء يولد عالما ولا اخو علم كمن هو جاهلو

------------------------------------------------------------

~¤ô_ô¤~ AGEEB SOFT~¤ô_ô¤~

ageeb2000@hotmail.com

#3

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

أخي الكريم m_ageeb

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

يمكنك أن تستخدم الكود التالي : 

If Not rs.BOF Then rs.MoveFirst
For i = 1 To rs.RecordCount - 1
rs![Number] = i
rs.MoveNext
Next
rs.Update

كود آخر : 

Dim i As Long
i = 1
If Not rs.BOF Then rs.MoveFirst
Do Until rs.EOF
rs![Number] = i
i = i + 1
rs.MoveNext
Loop
rs.Update

يمكن أن تقوم بتطبيق أي من الكودين السابقين بعد كل عملية إضافة أو تعديل حتى يتم إعادة ترقيم السجلات .

و أتمنى لك التوفيق :rolleyes:

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#4

لعمل عداد للسجلات كالتالي

rs.open "select * from table"
with rs
if .recordcount=0 then 
text1.text="1"
else
text1.text=.recordcount + 1 
endif
end with

فرضا ان text1 هو لإدخال الرقم ويجب عند حفظ اي سجل ان يعطيك رقم السجل التالي تلقائياً

اخوك alameeeer

تم تعديل هذه المشاركة بواسطة alameeeer في 12 أبريل 2006 في 23:34

#5

اشكرك يا اخي وهاهو اللينك الخاص بالحل

/index.ph...e=post&id=28905

تعلم فليس المرء يولد عالما ولا اخو علم كمن هو جاهلو

------------------------------------------------------------

~¤ô_ô¤~ AGEEB SOFT~¤ô_ô¤~

ageeb2000@hotmail.com

#6

اشكرك يا اخي وهاهو اللينك الخاص بالحل

/index.ph...e=post&id=28905

تعلم فليس المرء يولد عالما ولا اخو علم كمن هو جاهلو

------------------------------------------------------------

~¤ô_ô¤~ AGEEB SOFT~¤ô_ô¤~

ageeb2000@hotmail.com

هذا الموضوع مغلق.

مواضيع مشابهة