ابو جودي

السلام عليكم ورحمة الله تعالى وبركاته اعلم اننى قمت بعمل شبيه لذلك من قبل ولكن تم اختزال الاكواد بشكل كبير جدا جدا جدا جدا عن ذى قبل مع الأخذ فى الاعتبار مرونة تعاطى وتعامل التطبيق مع الاكواد عن ذى قبل مع اضافة افكار جديدة تماما.. فى انتظار رأيكم بعد التجربة .. ورجاء وضع الافكار المستقبلية والتى تحبون أن يكتمل العمل بها OfficenaAudioPlayer.mdb

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

يا استاذ @nssj رجاء لو تكرمت تغير افضل اجابة باجابة استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr لان طريقته لا تدع اى مجال لاجهاض العملية مهما كانت الظروف

هنيئا لك .. و بالتوفيق ان شاء الله

ممكن المرفق

وانا هذا اصدار الاوفيس عندى ولم اقم بأى تعديلات الا التى تمت على الكود فقط

انا راح اصور لك الشاشة الحين اتفضل شوف بنفسك

ماشاء الله

كل كلمات الشكر تقف عاجزة امامكم استاذى الجليل معلمى القدير و والدى الحبيب استاذ @jjafferr

جرب المرفق الاتى SelStart (1).accdb

اتفضل يا دكتور 2020 cbc.zip

غير للكود ده Private Sub tx0_Change() On Error GoTo Proc_Err Dim txtsearch As String: txtsearch = Me.tx0.Text Me.Filter = "RAWY_NAME" & " Like ""*" & txtsearch & "*""": Me.FilterOn = True Me.tx0.SetFocus Me.tx0 = txtsearch Me.tx0.SelStart = Len(txtsearch) Exit Sub Proc_Err: Select Case Err.Number Case Is = 2185 Me.FilterOn = False Me.tx0.SetFocus Me.tx0.SelStart = Me.tx0.SelLength Beep MsgBox "There are no results" Case Else MsgBox "Error " & Err.Number & vbNewLine & Err.Description End Select End Sub

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

اولا وقبل اى شئ جزاكم الله خيرا يارب على تعبك انا جربت المرفق رقم 2 يفتح ولا يعمل المطلوب ويكأنه لا يوجد اى اكواد والمرفق رقم 1 تقريبا لم يتم تحويله اصله

بس غير السطر ده Rs("student") = Me.Zstudent.Column(1) بالسطر ده Rs("student") = Me.Zstudent.Column(0)

طيب ممكن سؤال ممكن مصدر عمل الصلاحيات بهذا الشكل ؟ ربما كانت المشكلة من التطبيق اثناء المحكاة على قاعدة بياناتكم

الغاء وتمكين عمل زر الـ Shift يتناسب مع جميع تنسيقات قواعد البيانات ولو كانت قواعد البيانات المحمية بكلمة مرور المرفق يتناسب مع كلتا النواتان 32 , 64 Bit تمكين الشفت.mdb

وان كنت تريد مثال على اعادة الربط برمجيا مع قاعدة الخلفية والمحمية بكلمة مرور هذا مثال على ذلك Autolink Table.zip

نااااااااقد 🤭 انا مسكين صغير .. سامحك الله وانت والله وحشتنى جدا جدا جدا الله لا يحرمنا جمعكم الطيب فى الدنيا وفى الجنة ونحن نسأله كما جمعنا على حبه فى الدنيا دون أن نسأله.. اللهم امين وجزاكم الله خير الدنيا والاخرة ان شاء الله وكل امة محمد ملاحظة صغننه : فى انتظار عودتكم سالم غانم ان شاء الله من الان واياك تيجى من غير الحل 😡 ماشى

طيب ازاى برضو مش عارف ممكن ده واللا لاء

وعليكم السلام ورحمة الله وبركاته هلا بيك اخي الكريم ... ارجو ان تكون في صحة وعافية .... من طول الغيبات .... سررت برؤية مشاركتك .. كذلك >>--> ناقل من استاذى @ناقل فضلا وكرما ان ظبط معك التحويل تصدق به على طلاب العلم المساكين وانا اولهم لان فعلا انا لا اضع السؤال الا بعد فشلى التاااااااااااام فى حل مشكلتى بعد كل التجارب بما فى جعبتى وما احصله من البحث والتمحيص من بين صفحات الويب ... فعلا لا اضع مشكلتى عنا بسهولة تساهلا منى لايجاد الحل دون عناء

اولا كود فتح قاعدة الخلفية والمحمية بكلمة مرور هو ولان انا مش فاهم مقصد حضرتك تحديدا Dim strDbName As String: strDbName = CurrentProject.Path & "\ArchivingTables2018.accdb" Dim acc As Access.Application: Set acc = New Access.Application acc.Visible = True acc.OpenCurrentDatabase strDbName, False, "2018" acc.UserControl = True 'Application.Quit وللمزيد برجاء ارفاق مثال من قاعدتتين البيانات الامامية والخلفية

تم الرد فى هذا الموضوع

انتم الاجمل والاروع استاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @jjafferr