محمد أبوعبدالله

وليس كما تحويل قاعدة البيانات الى accde سيكون من المستحيل التعديل على النماذج والتقارير والوحدات النمطية او الاطلاع على محتويات vba تحياتي

وعليكم السلام ورحمة الله وبركاته الافضل ان تكون الفواتير من جدولين ( رأس الفاتورة - تفاصيل الفاتورة ) رأس الفاتورة = رقم الفاتورة - تاريخ الفاتورة - اسم العميل / المورد - طريقة الدفع - المبلغ المدفوع تفاصل الفاتورة = رقم الفاتورة - اسم الصنف - الكمية - السعر - الخصم وبالنسبة لجدول الاصناف ( المواد ) = كود الصنف - اسم الصنف - الوحدة - سعر البيع يتم وضع سعر البيع في جدول الاصناف ( المواد ) لكثرة العمل عليه ويتم استدعائه في فاتورة البيع اما سعر الشراء قد يكون متغير ويتغير ايضا حسب المورد بالزيادة او النقصان لذلك لا يجب ان يكون سعر الشراء ثابت والا فهو متغير وسيغير جميع الحسابات السابقة واللاحقة وهذا مثال لاستاذنا @ابوخليلسيفيدك جدا باذن الله تحياتي

لا اعتقد ان له علاقة بفعيل او تعطيل الشيفت ولكن هو من وسائل الحماية والافضل تحويل قاعدة البيانات من accdb الى accde تحياتي

وعليكم السلام ورحمة الله وبركاته جميل بارك الله فيك الملاحظة التي وجدتها هي النوع ( الجنس ) يوجد خطأ بالكود التالي If s = 1 Then Me.s1.Value = "ذكر" Else Me.s1.Value = "أنثى" End If يرجى استبداله بالتالي Dim XXX As Long XXX = Mid([b], 13, 1) Select Case XXX Case Is = 1, 3, 5, 7, 9 Me.s1.Value = "ذكر" Case Is = 0, 2, 4, 6, 8 Me.s1.Value = "أنثى" End Select الرقم القومي المصري.rar تحياتي

https://support.microsoft.com/ar-sa/office/تشفير-قاعدة-البيانات-باستخدام-كلمة-مرور-قاعدة-البيانات-12aa0e5c-34c6-4957-af3b-b5f5cfa9a766#bm2 تحياتي

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

وعليكم السلام ورحمة الله وبركاته لالغاء مفتاح الشيف او تفعيله نقوم باضافة الوحدة النمطية التالية Function ChangeProperty(strPropName As String, _ varPropType As Variant, _ varPropValue As Variant) As Integer Dim prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo Change_Err dbs.Properties(strPropName) = varPropValue ChangeProperty = True Change_Bye: Exit Function Change_Err: If err = conPropNotFoundError Then ' Property not found. Set prp = dbs.CreateProperty(strPropName, _ varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ' Unknown error. ChangeProperty = False Resume Change_Bye End If End Function لايقاف تشغيله الكود التالي ChangeProperty "AllowBypassKey", dbBoolean, False للتشغيل ChangeProperty "AllowBypassKey", dbBoolean, True اذا كانت قاعدة البيانات محمية بكلمة مرور ( قاعدة البيانات ولا اقصد vba ) فلا يمكن من خلال برنامج خارجي الغاء الشيفت الا بمعرفة كلمة السر اولاً تحياتي

استخراج هذه البيانات من رقم الهوية او الرقم القومي نستخدم في دالة Mid بشكل اساسي محافظات مصر معروف لدي رقم الكود لكل محافظة اما بالنسبة لمحافظات السعودية فحقيقة ليس لدي جدول باسماء المحافظات ولا برقم الكود لكل محافظة لكن كما ذكرت لك الموضوع بمجمله يستخدم دالة Mid تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تحياتي

تفضل اخي الكريم Test_It.rar تحياتي

معك حق اخي الكريم وربما اختلط معي الامر بسبب النظارة الجديدة فعذراً على التجليل الخاطىء الحقيقة جربت اكثر من طريقة لكن حقل T1 هو السبب الرئيسي لهذه المشكلة وربما لو جعلت النموذج مفرد ( عرض سجل واحد فقط ) سيعطي نتيجة اسرع بكثير تحياتي

حذف البيانات ؟ ام تصفية البيانات ؟ اشرح اكثر وضع مثال لتوضيح الصورة اكثر بارك الله فيك تحياتي

وعليكم السلام ورحمة الله وبركاته يوجد لديك استعلام Query1 به حقل T1 T1: Nz(DSum("Qty";"conform";"id=" & [id]);0) وهو يقوم بحمع قيمة conform من استعلام او جدول Qty وهذا الاستعلام او الجدول Qty في الاساس غير موجود ضع قيمة افتراضية لحقل T1 :0 تحياتي problemsum.rar

وعليكم السلام ورحمة الله وبركاته جرب المرفق التالي Test_It.rar تخياتي

جرب الكود التالي =Dsum("total"; "Haraka"; "[fat_num] = " & forms!Fatora_be!Fat_num & " And [kind_haraka] = '" & forms!Fatora_be! Kind_haraka & "'") تحياتي

وعليكم السلام ورحمة الله وبركاته في تذييل الصفحة ضع مريع نص واجعله مصدره =count(*) تحياتي

حسناً اخي الكريم جرب الكود التالي =DLookup("nass"; "AllData"; "[HNO] = " & [HNO] & " And [MNO] = '" & MNO & " '") MusndWZwayid 7.rar تحياتي

استخدم استعلام توحيد لدمج الجداول التي تريد البحث فيها جميعا كالتالي SELECT * FROM 20101 UNION SELECT * FROM 50011 UNION SELECT * FROM 50012; بشرط ان تكون جقول الجداول متماثلة مع باق الجداول MusndWZwayid 7.rar تحياتي

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

جرب المرفق الجديد وارجو ان يكون هو طلبك MusndWZwayid 7.rar تحياتي

جرب المرفق اخي الكريم واعلمني بالنتيجة بارك الله فيك UP_Database3.rar تحياتي

السلام عليكم تفضل اخي الكريم تم اضافة جدول TAB الى الاستعلام الموجود بنموذج 2 frm_Q_books وربط حقل Nass MusndWZwayid 7.rar يمكن وبتم ربط الجداول بقاعدة البيانات الحالية تحياتي

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

وعليكم السلام ورحمة الله وبركاته يمكن استخدام النص كمصفوفة واستخدام دالة Split وتقسيم النص كالتالي If Not IsNull(Me.txtQR) Then Dim X As String Dim Y() As String X = Me.txtQR Y = Split(X) Me.txtFrisnam = Y(0) Me.txtlastname = Y(1) Me.txtOBD = Y(2) Me.txtID = Y(3) End If انظر المثال المرفق db3.rar تحياتي

تفضل اخي الكريم Private Sub Form_Close() Me.الاجمالى = [تذيل المبيعات].[Form]![نص205] End Sub تجربة.rar ولكن اعتقد ان لديك مشكلة وخاصة ربط النموذج الفرعي بالرئيسي تحياتي