حبيبنا فصلنا القاعدة عن النماذج وبعد كذا بفتره حاولت التعديل على القاعدة الاساسيه اللي فيها الجداول ويظهر لي نسختين احداهما بقفل صغير ولا يمكن التعديل بسبب فتح شخص اخر للقاعدة ؟ ولا استطيع معرفه هذا الشخص ولا يمكنني الوصول اليه واريد التعديل على الجداول ف كيف يمكنني التحرير
انا نفذت الكود ماشاء الله تحفة بس ظهرت معايا مشكلة انا اول نموذج عاملة منبسق بيبقي تمام لكن بعد او نموذج بيبقي تبويت ف بيفتح بيفتح صغير ف لو ف طريقة اول ما يفتح يبقي حجم الشاشة اكون شاكراً
جميل جدا لكن انظر الي الكود لل exe يوجد Microsoft access .accdb وبجانبة الكود من ١ الي ٦ يمكن الحصول علية يجب ان يكون هنالك تشفير لل exe او encryption ارجو المجاوبة وشكرا❤
يمكنك تحميل كل المرفقات المستخدمة في الشرح على القناة مع الملفات المساعدة فقط عند الانتساب للقناة في أي مستوى مكتوب به (يمكن تحميل مرفقات) يتم إضافة مرفقات مع كل شرح جديد على القناة ========== ربط الانتساب th-cam.com/channels/qx5bwPJKqD3-dv4GkVeEtg.htmljoin ============= ثم تفتح المنتدى على الربط التالى لعرض كل المرفقات لكل الدروس وتحميل ما تريد منها th-cam.com/users/explainingMicrosoftAccesscommunity
Public Function oppen() On Error GoTo ErrH Dim acc As Access.Application Dim db As DAO.Database Dim strDbName As String strDbName = "X.accde" Set acc = New Access.Application acc.Visible = True Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=123456") acc.OpenCurrentDatabase (strDbName)
Application.Quit ErrH: Select Case Err.Number End Select End Function
Thanks
شكرا لحضرتك
انتسبت للقناة لكن ماكو المرفقات شنو الموضوع
حبيبنا فصلنا القاعدة عن النماذج
وبعد كذا بفتره حاولت التعديل على القاعدة الاساسيه اللي فيها الجداول ويظهر لي نسختين احداهما بقفل صغير
ولا يمكن التعديل بسبب فتح شخص اخر للقاعدة ؟
ولا استطيع معرفه هذا الشخص ولا يمكنني الوصول اليه واريد التعديل على الجداول ف كيف يمكنني التحرير
بص لما تعدل على الجداول اقفل الفروم
و العكس و هذا ليس ضورى بس للاحوط لان ممكن تفتح تعدل فى جدول مفتوح فى الفورم فى نفس اللحظة
لو سمحت الطريقة نجحت معايا، لكن بعد فترة ايقونة الفيجوال بتفتح الملف ويغلق في نفس الوقت؟ ما السبب؟
جرب افتح الملف فى راسالة او خطا بيحصل لما الملف بيفتح هو دة اللى بيقفلة تانى
شرح رائع . ولكن في كود يقوم بنفس الوظيفة يتم عمله علي ملف اكسيس و بدون الحاجة الي تنزيل فيجوال بيسك
انا استخدم فيجوال بيسك ٢٠٢٢ وكتبت هذا الكود ولم يضبط
المشكلة في appaccec.opencurrentdatabase
استخدم ٢٠٠٨
بس ممكن تعمل تفس الطريقة ببرنامج اكسيس بمتداد accde
غير الامداد فى الكود فقط
كما وضحت فى الفديو
في كود ممكن يعمل خصية فتح اكسيس و فورم
انا نفذت الكود ماشاء الله تحفة
بس ظهرت معايا مشكلة
انا اول نموذج عاملة منبسق بيبقي تمام
لكن بعد او نموذج بيبقي تبويت ف بيفتح بيفتح صغير
ف لو ف طريقة اول ما يفتح يبقي حجم الشاشة
اكون شاكراً
بص هو الافضل ما نعملش اكواد كتير و المستخدم يكبر الاكسس عادى
بس لو ضرورى اعمل نموذح منبثق و ضيف امر التكبير عند الفتح
DoCmd.Maximize
جميل جدا لكن انظر الي الكود لل exe يوجد
Microsoft access .accdb وبجانبة الكود من ١ الي ٦
يمكن الحصول علية يجب ان يكون هنالك تشفير لل exe او encryption ارجو المجاوبة وشكرا❤
اعمل برنامج في فورم واحد وعمل منبتق و مشروط ونخفي اكسيس علاشان الجمالية
الكود معاية فعلا بس مش حابب تطبيقة
انا ما في كود بيعمل نفس الخاصية
من فضلك ارجو اضافة الملف المرفق لانه غير موجود
يمكنك تحميل كل المرفقات المستخدمة في الشرح على القناة مع الملفات المساعدة فقط عند الانتساب للقناة في أي مستوى مكتوب به (يمكن تحميل مرفقات)
يتم إضافة مرفقات مع كل شرح جديد على القناة
==========
ربط الانتساب
th-cam.com/channels/qx5bwPJKqD3-dv4GkVeEtg.htmljoin
=============
ثم تفتح المنتدى على الربط التالى لعرض كل المرفقات لكل الدروس وتحميل ما تريد منها
th-cam.com/users/explainingMicrosoftAccesscommunity
لو عايز نسخة انا تحت امرك
جزاك الله خير
حقيقى أنت إنسان
نستخدم اكسيس نفسو من غير visual basic 2008
ما هي الطريقة
مبددع ماشاء الله
جميل جداً
انا هبعتلك الكود عشان يستفيد الجميع
لا مش ده قصدي
مش فاهم
التقفيل يتطلب نصف ساعة شرح... 🤭🤔
شرح ازى بيتم اختراق برنامج و ازى تحمى البرنامج بتاعك
للفهم وليس التطبيق فقط استأدى الفاضل
الباسوورد مكتوب في ملف النوتباد
اعمل باس ورد صعب علاش يتشفر
انت رائع
لتبسيط عن المبتدئين
شكرا لك
Public Function oppen()
On Error GoTo ErrH
Dim acc As Access.Application
Dim db As DAO.Database
Dim strDbName As String
strDbName = "X.accde"
Set acc = New Access.Application
acc.Visible = True
Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=123456")
acc.OpenCurrentDatabase (strDbName)
Application.Quit
ErrH:
Select Case Err.Number
End Select
End Function
شكرا لحضرتك
ممكن شرح لهذا الكود؟
الكود دا يتحط فين بالضبط؟
المرفقات
انته كول قناتي مو مجانية احسن من ما تضحك على الناس وتنصب عليهم في سبيل الاشتراك
شكرا جزيلا
thanks