+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كيف يتم إضهار الترقيم تلقائي المجود في قاعدة البيانات عند النقر على امر جديد ؟ (/showthread.php?tid=24309)
كيف يتم إضهار الترقيم تلقائي المجود في قاعدة البيانات عند النقر على امر جديد ؟ - Microformt - 25-03-18
بسم الله الرحمن الرحيم
الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف يتم إضهار الترقيم تلقائي المجود في قاعدة البيانات عند النقر على امر جديد في برنامجي المرفق ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم
ولكم مني فائق الاحترام
RE: كيف يتم إضهار الترقيم تلقائي المجود في قاعدة البيانات عند النقر على امر جديد ؟ - جاسم عبد - 26-03-18
تفضل هذا التعديل
RE: كيف يتم إضهار الترقيم تلقائي المجود في قاعدة البيانات عند النقر على امر جديد ؟ - Microformt - 27-03-18
(26-03-18, 04:09 PM)جاسم عبد كتب : تفضل هذا التعديل
اخي العزيز
إجابة غير موفقه
تحياتي
RE: كيف يتم إضهار الترقيم تلقائي المجود في قاعدة البيانات عند النقر على امر جديد ؟ - جاسم عبد - 27-03-18
(27-03-18, 07:18 AM)Microformt كتب :(26-03-18, 04:09 PM)جاسم عبد كتب : تفضل هذا التعديل
اخي العزيز
إجابة غير موفقه
تحياتي
اخي العزيز نحن لسنا في مسابقة حتى يكون جوابك هكذا
المفروض بك ان تشكرني لانني حاولت ان اساعدك
ربما لم اتمكن من الجواب لانني لم افهم صيغة سؤالك
تقبل تحياتي
RE: كيف يتم إضهار الترقيم تلقائي المجود في قاعدة البيانات عند النقر على امر جديد ؟ - mhareek - 02-04-18
الف شكر اخى جاسم عبد على المساعدة
RE: كيف يتم إضهار الترقيم تلقائي المجود في قاعدة البيانات عند النقر على امر جديد ؟ - اسلام الكبابى - 05-09-18
اجعل نوع الحقل الأول فى قاعدة البيانات رقم بدلآ من ترقيم تلقائى
وعدل كود الزرCommand1 هكذا
Dim XXX As Integer
Private Sub Command1_Click()
Set db = OpenDatabase(App.Path & "/db1.mdb")
Set rs = db.OpenRecordset("Select * From soft")
rs.MoveLast
XXX = rs("CodeiD").Value
rs.AddNew
Text1.Text = XXX + 1
Text2 = ""
Text3 = ""
Text2.SetFocus
Command2.Enabled = True
End Sub
Private Sub Command1_Click()
Set db = OpenDatabase(App.Path & "/db1.mdb")
Set rs = db.OpenRecordset("Select * From soft")
rs.MoveLast
XXX = rs("CodeiD").Value
rs.AddNew
Text1.Text = XXX + 1
Text2 = ""
Text3 = ""
Text2.SetFocus
Command2.Enabled = True
End Sub
وقم باضافة هتين الجملتن فى كود الزرCommand2 بعد الجملة rs.AddNew
rs.AddNew
Text1.Text = XXX + 1
rs("CODEID").Value = XXX + 1
If Not Trim$(Text2.Text) = "" Then rs("Name").Value = Trim$(Text2.Text)
ملحوظة بسيطة فى كود الزرCommand2
الجملة الشرطية
If Not Trim$(Text2.Text) = "" Then rs("Name").Value = Trim$(Text2.Text)
ومثيلتها مع ال Text3
كان من الأفضل الغاء هذا الشرط منها . أى من الأفضل أن تكون الجملة
rs("Name").Value = Trim$(Text2.Text)
لأنك فى بداية كود الزر وضعت شروطك بأن لا يكون أى تكست منهما فارغآ
أى أننا لن نمر على هذه الجملة الا اذا كان التكست غير فارغ
أى لن نمر عليها الا اذا كان هذا الشرط متحققآ
RE: كيف يتم إضهار الترقيم تلقائي المجود في قاعدة البيانات عند النقر على امر جديد ؟ - اسلام الكبابى - 07-09-18
لم ترد على حتى الآن
هل أظهرت الترقيم تلقائي كما تريد أم لا ؟
RE: كيف يتم إضهار الترقيم تلقائي المجود في قاعدة البيانات عند النقر على امر جديد ؟ - Microformt - 07-09-18
(07-09-18, 05:40 PM)اسلام الكبابى كتب : لم ترد على حتى الآن
هل أظهرت الترقيم تلقائي كما تريد أم لا ؟
اخي العزيز : اسلام الكبابي
السلام عليكم ورحمة وبركاته
اقدم لكم جزيل الشكر والتقدير على اهتمامك وجزاك الله عني خير
نعم اخي ظهر معي
تحياتي
RE: كيف يتم إضهار الترقيم تلقائي المجود في قاعدة البيانات عند النقر على امر جديد ؟ - gonm64 - 20-10-18
السلام عليكم
اخي نزل الملف حتى نستفيد منه