بسم الله الرحمن الرحيم
الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف يتم إضهار الترقيم تلقائي المجود في قاعدة البيانات عند النقر على امر جديد في برنامجي المرفق ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم
ولكم مني فائق الاحترام
(27-03-18, 07:18 AM)Microformt كتب : [ -> ] (26-03-18, 04:09 PM)جاسم عبد كتب : [ -> ]تفضل هذا التعديل
اخي العزيز
إجابة غير موفقه 
تحياتي
اخي العزيز نحن لسنا في مسابقة حتى يكون جوابك هكذا
المفروض بك ان تشكرني لانني حاولت ان اساعدك
ربما لم اتمكن من الجواب لانني لم افهم صيغة سؤالك
تقبل تحياتي
الف شكر اخى جاسم عبد على المساعدة
اجعل نوع الحقل الأول فى قاعدة البيانات رقم بدلآ من ترقيم تلقائى
وعدل كود الزر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
وقم باضافة هتين الجملتن فى كود الزر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)
لأنك فى بداية كود الزر وضعت شروطك بأن لا يكون أى تكست منهما فارغآ
أى أننا لن نمر على هذه الجملة الا اذا كان التكست غير فارغ
أى لن نمر عليها الا اذا كان هذا الشرط متحققآ
لم ترد على حتى الآن
هل أظهرت الترقيم تلقائي كما تريد أم لا ؟
(07-09-18, 05:40 PM)اسلام الكبابى كتب : [ -> ]لم ترد على حتى الآن
هل أظهرت الترقيم تلقائي كما تريد أم لا ؟
اخي العزيز : اسلام الكبابي
السلام عليكم ورحمة وبركاته
اقدم لكم جزيل الشكر والتقدير على اهتمامك وجزاك الله عني خير
نعم اخي ظهر معي
تحياتي
السلام عليكم
اخي نزل الملف حتى نستفيد منه