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

ترقيم تلقائى مختلف هام جدا

مغلق
بدأه medofun في 20 ديسمبر 2007 · 16 رد · 2,642 مشاهدة · في قسم قواعد البيانات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عايز اعمل ترقيم تلقائى بس بطريقة مختلفة

يوجد لدى جدول بيانات العملاء وبه حقل الكود وهو ترقيم تلقائي بس اريد ان يكون مضاف اليه حرف او رمز يمزة مثل

cu-0001

cu-0002

وهكذا يتم ذيادة الرقم الاخير مع مراعاة اضافة الحرف

محتاج كود يقوم بعملية الترقيم عند اضافة سجل جديد

برجاء الكود هام جدا

#2

Dim f As String
Dim t As String


rs.MoveLast
t = Val(rs("cus_code") + 1)

x = "C-"
f = x + t
Text1 = f
Dim x As String
#3

دة الكود اللى مستخدمه

لكن بيطلع خطاء لانى بعمل عمليه جمع على رقم +حرف C-0001

هل يوجد طريقة لحل المشكلة

ام عمليه الترقيم هذة غير منطيقة

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

#4

استخدم الدالة :

Str(number) as string

لتحويل الرقم الى نص

تم تعديل هذه المشاركة بواسطة GamingMasteR في 22 ديسمبر 2007 في 04:54

mov eax, dword ptr ds:[0xffdf0308]

jmp dword ptr [eax+0xfc]

#5

شكر لك GamingMasteR

على الرد بس ممكن توضح بمثال

انا مبتداء فى البرمجة يعنى لسة على قدى دة بعد اذنك

وشكرا لك على الرد

#6

أخي العزيز ،،

ببساطة استخدم الرمز & بدلا من + ، فيكون الكود كالتالي :

f = x & t

ودمتم سالمين

سبحان الله وبحمده ... سبحان الله العظيم

#7

اخى احمد شكر لك

الكود مش هينفع لاجراء عملية الحفظ يجب ان يكون الحقل نوعه نصى لحفظ الرقم و الحرف

لاجراء جمع الرقم لعمل الترقيم لايتم لان الحقل نصى ويجب ان رقمي يبقى كدة فيه مشكلة

وهيه كيف يمكن اجراء حفظ وعمل جمع لرقم وحرف

برجاء الرد للاهمية البرنامج شبه متوقف لهذة المشكلة

#8

السلام عليكم،

أظن أن هذا ما تبحث عنه يا صديقي هذه مساهمة مني لك و لجميع من يبحث عن الترقيم التلقائي.

شكرا للجميع

Client.rar

#9

hicham.info47

شكرا لك جدا جدا جدا

ربنا يكرمك وبجد الله عليك هو دة الكود اللى انا محتاجة

بصراحة مش عارف اشكرك ازاى بس اقعد ادعيلك ربنا يكرمك ويزيدك من علمه كمان وكمان

ويعطيك على كل حرف 10000000حسنه

وشكرا لكل من حاول فى المساعدة ولاعضاء اقوى موقع عربى

#10

السلام عليكم،

لا شكر على واجب يا صديقي أتمنى لك التوفيق. و إلى الملتقى في مناسبات أخرى.

#11

السلام عليكم

تم التعديل على الكود لكن بيحدث خطاء

اريد استخدام الكود باستخدام الادو لكن عند غلق الشاشة وفتحها مرة اخري يتم الترقيم من رقم 1

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

المثال الذى قمت بالتعديل فيه

AutoNumb.rar

#12
medofun كتب:
السلام عليكم

تم التعديل على الكود لكن بيحدث خطاء

اريد استخدام الكود باستخدام الادو لكن عند غلق الشاشة وفتحها مرة اخري يتم الترقيم من رقم 1

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

المثال الذى قمت بالتعديل فيه

#13

السلام عليكم

تم التعديل على الكود لكن بيحدث خطاء

اريد استخدام الكود باستخدام الادو لكن عند غلق الشاشة وفتحها مرة اخري يتم الترقيم من رقم 1

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

المثال الذى قمت بالتعديل فيه

#14

برجاء الرد لاهمية

#15

اين الرد

#16

وين يا أخواني الشرح

#17

أخي الكريم ، تحية طيبة وبعد ،

أنظر الي هذا الرابط ، حيث تم مناقشة هذه المشكلة بمنتدي المحيط ،

( كيف يتم عمل ترقيم بالتصور الآتي )

وكذلك أنظر الملف اللمرفق ، حيث قمت بتحويل الترقيم بنفس الأسلوب المطلوب !!

شكراً

GetSerial.rar

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

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

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