king5star

تقريباً الدالة المستخدمة متوافقة مع اكسس 32 بت وحضرتك تستخدم 64 بت . فبحث عن كود متوافق مع نسخة الاكسس خاصتك واعتذر على عدم وضع كود متوافق معك لانني من مستخدمين النسخة 32

وجدته بالفعل اتمني يكون المطلوب انى مش عارف افهم بالضبط 😅 ______الاقساط جديد.mdb

مثال اوفيسنا القيم الافتراضية.accdb

المثال غير موجود

اذا جعلت التقرير يفتح بمعاينة قبل الطباعة سيظهر الشريط بشكل تلقائي :

ومن الممكن استخدام الوحدة النمطية الاتيه فقمت بتصميمها لاجلك ! Public Function ZeroComplete(ZCount As Integer, NumValue As String) As String ' ___ _ ___ _ __ _ ___ _ _ ' | \ (_) ___ | _ ) _ _ | |/ / __ _ _ _ (_) _ __ | __| | | | |_ ___ ___ ___ ___ _ _ _ _ ' | |) | | | (_-< | _ \ | || | | ' < / _` | | '_| | | | ' \ | _| | | | ' \ / _ \ (_-< (_-< / -_) | ' \ | || | ' |___/ |_| /__/ |___/ \_, | |_|\_\ \__,_| |_| |_| |_|_|_| |___| |_| |_||_| \___/ /__/ /__/ \___| |_||_| \_, | ' |__/ |__/ ' _ ___ __ _ ___ ____ ____ ___ ____ ____ _ ___ _ ' _| |_ |_ ) / \ / | |_ ) |__ | |__ | ( _ ) |__ | |__ | / | | __| / | ' |_ _| / / | () | | | / / / / / / / _ \ / / / / | | |__ \ | | ' |_| /___| \__/ |_| /___| /_/ /_/ \___/ /_/ /_/ |_| |___/ |_| ' 'ZCount =عدد الاصفار المطلوبة 'NumValue = النص المراد استكمالة باصفار 'ZeroComplete = القيمة الاخيرة بعد التعديل ' ' Dim L_NumValue As Integer, Sub_Count As Integer L_NumValue = Len(NumValue) Sub_Count = ZCount - L_NumValue If Sub_Count < 0 Then MsgBox "ان طول عدد الاصفار المراد تكميلها أصغر من حجم الرقم برجاء التأكد من طول الرمز ." Else ZeroComplete = String(Sub_Count, "0") & NumValue End If End Function ولاستدعائها قم بالاتي : Private Sub txt1_AfterUpdate() txt1 = ZeroComplete(5, Me.txt1) End Sub ***** ملحوظة اخيره يجب ان يكون نوع الحقل نصي او text

الأرقام.accdb

ارفق مثال للمطلوب للتعديل عليه !

عند اخر حقل بالسطر فى خاصية اسمها "عند فقد التركيز " أو "LostFocus" ضع بها الامر الذى تريدة كتحديث مربع نص فى نموذج الاب ويكون الكود بالصيغة الاتيه : Private Sub TextBox1_LostFocus() Me.Parent![TotalTextBox] = Sum(TextBox1) End Sub

شكراً على هذا الملف القيم . سلمت يداك .

فى البدايه اعتب عليك فى : 1- استخدام اللغة العربية فى اسماء الجداول والحقول . 2- لم تساعد فى القاعدة المرفقة ووضع المطلوب من مربع البحث المطلوب او حتى تنسيق نموذج به الطلبات للتعديل على الفور دون اضاعه الوقت فى انشاء نموذج جديد . تم التعديل على القاعدة المرفقة اتمنى يكون هو المطلوب New Microsoft Access قاعدة بيانات.accdb

الحل بسيط اكتب المسار الذي تريده مكان هذا الكود : CurrentProject.Path & "\photo\" & Me.y99 & ".jpg" استبدلة مثلا : "D:\WPImages\PhotoName.jpg"

عفواُ بالتوفيق يارب .

تقريباً نوع البرنتر Xprinter على العموم اعمل كما فى الملف المرفق Xprinter.zip

هذه هي البذرة التى ستكمل عليها جديد1.accdb

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

حسب ما فهمت من طلبك j1.accdb

شكراً على التوضيح

ولدي سؤال يا استاذ حسين @د.كاف يار ما مصير العلاقات بين الجداول ؟

فى انتظار السكربيت وشرحه افادك الله

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

هو المطلوب اخى تسلم ايدك وفقك الله دائما حلتلى مشكلة فعلا بارك الله فيك ❤️ .

السلام عليكم لدى جدولين بهم ايام الاسبوع وهما WeekDays و WeekDays2 قمت بتحديد قيم فى الجدول الأول WeekDays المطلوب هو عن طريق النموذج انسخ القيم المحددة بالجدول WeekDays الى الجدول WeekDays2 Combobox.accdb

شكراً لك استاذ د.كاف يار بالفعل انا مصمم تطبيق عملاق على الاكسس ومراعي منذ التصميم الاول المسافات والمسميات الانجليزية وغيرها من القواعد الهامة والتطبيق مقسم الى جداول و وواجهات ولكن مشاكل مشاركة قاعدة بيانات الاكسس لأفرع كثيرة مليئة بالعيوب وكذلك كما اوضحت سابقاً حضرتك SQL ولن استطيع ان اقوم باعادة تصميم البرنامج فانه يتطور منذ اكثر من ثلاث اعوام فهل يوجد حل للجداول فقط مع الابقاء على UI الحالى؟ ولك جزيل الشكر .

السلام عليكم لدى استفسار أريد ان اقوم بنقل الجداول الخاصة بالبرنامج الى sql سيرفر على النت بدل من انشاء سيرفر محلي ومشاكل النت والكهرباء فل سيكون البرنامج مستقر كما هو على جهاز محلى ام ستكون العمليه اصعب وغير امنه ؟؟