kanory

كلامك صحيح استاذي @Eng.Qassim

شاهدت اما هنا او في منتدى اخر ملف معمول بالاكسس كان تقوم بالبحث في جميع منتديات الاكسس ولكن للاسف لا تتحدث البيانات فيه ....

مشاركة من استاذي المهندس قاسم بعد وضع الكود الذي تفضل به البشمهندس وحول القاعدة الى accede بذلك لن يتمكن اي شخص من الدخول للاكواد .....

هل هذا التصور صحيح .......

الغي هذا الحدث وجرب ......

أخي الاعتذار شيم الكبار دائما ...... بارك الله فيك .... بالعكس انت كبرت في اعيننا ....

وعليكم السلام ورحمة الله وبركاته أخي الكريم وضح اكثر .... لأن مثالك لايوجد به سوى جدول واحد .... وضح الطلب ؟؟؟ هل هذا ما تقصد ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

وعليكم السلام ..... ماذا تقصد سؤال نعم لا ... هل تقد رسالة تحذير مثلا ام ماذا وضح ...

وعليكم السلام ورحمة الله وبركاته ممكن عن طريق استعلام الحاق عمل ذلك بشرط عدم الحاق حقل الترقيم التلقائي لانه قد يتكرر اذا لم تستطع ارفق مثال مبسط وبه بيانات وهمية لمساعدتك

ما شاء الله تبارك الله ملك دمج المتصفح مع الاكسس الاستاذ @أبو إبراهيم الغامدي بارك الله فيك .....

هدية رائعة من شخص رائع اتشرف ان اكون اول من يرد ويشكر بارك الله فيك اخي @Moosak

هل هذا الباركود صادر من الميزان اللالكتروني ؟؟؟

وما هو امتداد الملف الان ....؟؟

جرب هذا ..... مع تعديل ما يلزم <><><><><<><><<>><><|> Dim x As Integer, mov_st As String Dim db As Database, rst As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("SELECT doc.doc_ID, doc.mov_no, doc.mov, doc.mov2 FROM doc ORDER BY doc.doc_ID;") rst.MoveFirst x = 1 mov_st = rst!doc_ID Do While Not rst.EOF If mov_st <> rst!doc_ID Then x = 1 mov_st = rst!doc_ID End If rst.Edit rst!mov2 = x x = x + 1 rst.Update rst.MoveNext Loop MsgBox "تم توزيع الارقام ", vbInformation + vbMsgBoxRight + vbOKOnly, "برنامج" rst.Close Me.Refresh

اذا لم يعمل معك ... انقل الاكواد للمثال لديك ... وجرب

جرب المرفق التالي ................ Database1 (15).accdb

طيب شوف كدة ..... kan_b.accdb

طيب انظر الصور لتعرف موطن التعديل .... <><><><><><><><><> تفضل ملفك بعد التعديلات الاخيرة المطلوبة وتصحيح بع الاخطاء التي ذكرتها لك اما انا فعادة استخدم شاشة واحدة لتوزيع ارقام الجلوس واللجان معا ,,,,, انظر طريقتي <><><><><><< كتشنة الرقم السرى واللجان.accdb

عفوا ..... اخي الكريم ..... قم بتجربة البرنامج لديك بتوزيع مثلا عشر طلاب لمجموعة واحدة .... ثم قم بعد الطلاب من الجدول هل العدد صحيح لديك ام العدد 11 طالب ؟؟؟؟ لاني رأيت هناك خطأ وقمت بتعديله لدي ..... ارجو الرد لارفاق المرفق الجديد لك ....

احيانا وجود المثال يسهل علينا التطبيق ..... لان الكلام النظري غير التنفيذ ..... على كل حال تفضل هذه الوحدة النمطية كييفها حسب مثالك بارك الله فيك ... Sub FormatExcelOut(FileName As String) Dim i As Integer Set objapp = CreateObject("Excel.Application") objapp.Visible = False Set wb = objapp.Workbooks.Open(FileName, True, False) For Each ws In wb.Worksheets With ws .DisplayRightToLeft = True .Application.DisplayAlerts = False .usedRange.Borders.LineStyle = 1 .Columns.Font.Name = "Arial" .Columns.Font.Size = 12 .Columns.Font.Bold = True .Range("A1:E1").RowHeight = 20 .Tab.Color = 15656192 ' .usedRange.Columns.AutoFit .usedRange.HorizontalAlignment = 3 .usedRange.Columns(1).Interior.Color = vbYellow End With Next wb.Save objapp.Quit Set objapp = Nothing End Sub

كثرة الامثلة في الردود ... اين مثالك اخي رضوان الذي اعتمدته انت كي ننظر في سؤالك الثاني

وهذه مشاركتي مع الاستاذ @kkhalifa1960 تفضل <><><><><><><><> كتشنة الرقم السرى.accdb

المفروض بدل تكرار كتابة رقم الجلوس والرقم السري في كل مرة ولكل مجموعة أن تكتب بداية رقم الجلوس وبداية الرقم السري وعدد المجموعات ( او عدد المجموعة ) فقط مرة واحدة حيث يقوم البرنامج هو نتحديد رقم المجموعة وتوزيع ارقام الجلوس والارقام السرية لها ... ثم تلقائي ينتقل للمجموعة الثانية ويوزع ارقام الجلوس والارقام السرية دفعة واحدة .. بدون تدخل منك ... الا اذا كانت هناك الية معينة انت تريدها ارجو توضيحها ........

ابحث في المنتدى ............... تجد العديد منها ................ انظر ...... تفضل هنا تابع الموضوع

الجدول EnEx1 لو لاحظت فيه مفتاحين وعادة هذه المفاتيح ترفض التكرار .... لذلك عند الالحاق يرفض لتكرار هذين الحقلين طبعا ولا يتم الالحاق فقط حذفنا المفتاحين وحولناها حقول عادية ليقبل التكرار ...