ابو جودي

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

ممكن المرفق

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

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

ماشاء الله

كل كلمات الشكر تقف عاجزة امامكم استاذى الجليل معلمى القدير و والدى الحبيب استاذ @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

اتفضل Asem11.zip

يا هلا والله وانا اقل طويلب علم واقدم المساعدة على قدر استطاعتى لاخوانى بما يتفضل به الله على عبده الفقير اليه جزانا الله اياكم خيرا

والله المدير زهق منك وهيسوى لك استدعاء ولى امر 🤭