mrnooo2000

الافضل أخى الكريم ان تضع هذه المرفقات فى مجلد منفصل و تستخدم مسار هذه الملفات فى القاعدة حتى تحافظ على حجم القاعدة

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

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

أخى الكريم النموذج مصمم فى الاساس لكى يتم البحث فى نفس النموذج ( بدون نموذج فرعى ) لذلك يظهر عندك هذا الخطأ احذف الاكواد الخاصة بمربع البحث ما عدا كود (عند التغيير ) لكن لاحظ ان عملية البحث لن تتم لان الفلتر يجب ان يكون على النموذج الفرعى و ليس النموذج الرئيسى

أولا حقل تاريخ الترقية القادمة يعتبر حقل محسوب و الافضل عدم الاحتفاظ به فى الجدول لانك تستطيع حسابه فى أى وقت ثانيا استخدم كود مثل هذا Dim sanawat As Integer Select Case me.rate Case Is = "جندي", "جندي أول" sanawat = 2 Case Is = "عريف" sanawat = 3 Case Is = "و…

نعم أخى لان الدالة فى حالة الارقام تكون قيمتها الافتراضية صفر

هذا تعديل سريع tab control.rar

ضع هذا الكود فى النموذج Private Sub select_payment_AfterUpdate() If Me.select_payment Then Me.Text11 = Nz(Me.Text11, 0) + Me.Invoice_Amount Else Me.Text11 = Nz(Me.Text11, 0) - Me.Invoice_Amount End If End Sub

هذا غير متاح لكن يمكنك الغاء التابس و يتم الاستعاضة عنها بمربعات تسمية

كتبت لك أخى هذه الدالة Public Function JoinRecords(sors As String, fld As String, delim As String) As String On Error Resume Next Dim rst As Recordset, r As Integer Set rst = CurrentDb.OpenRecordset("select " & sors & "." & fld & " from " & sors & ";") If rst.…

نعم

عذرا الموضوع مغلق للأسئلة يجب تحديد النوع سؤال وطرح نقاط عليه والحد الأدنى 3 نقاط وإلا سيغلق موضوعك فورا وسيحذف بعد ذلك حتى لو تمت الإجابة عليه .

عذرا الموضوع مغلق للأسئلة يجب تحديد النوع سؤال وطرح نقاط عليه والحد الأدنى 3 نقاط وإلا سيغلق موضوعك فورا وسيحذف بعد ذلك حتى لو تمت الإجابة عليه .

عذرا الموضوع مغلق للأسئلة يجب تحديد النوع سؤال وطرح نقاط عليه والحد الأدنى 3 نقاط وإلا سيغلق موضوعك فورا وسيحذف بعد ذلك حتى لو تمت الإجابة عليه .

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

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

تفضل أخى ستجد الاجابة هنا http://aboyossof.wordpress.com/2011/09/13/%D8%A7%D8%BA%D9%84%D8%A7%D9%82-%D9%85%D9%84%D9%81-%D8%A7%D9%83%D8%B3%D9%8A%D9%84-%D9%85%D8%AD%D8%AF%D8%AF/

نعم أخى استبدل الكود الموجود بالتقرير بهذا الكود Private Sub Report_Open(Cancel As Integer) Dim r As Integer, fldno As Integer, fldname As String Dim ctl As Control r = DCount("Text01" = "QCross.nam", "1") For Each ctl In Me.Controls fldno = Val(Right(ctl.Name…

اعتقد الموضوع بسيط فقط تحتاج الى تحديث للبيانات فى عداد الوقت للنموذجين كل ثانية مثلا

أخى الكريم من المفترض أن يكون عدد مربعات النص فى التقرير تساوى أقصى عدد محتمل لديك لان الكود وظيفته هى اخفاء مربعات النص الزائدة عن عدد سجلات الجدول المثال تم التعديل عليه افتح التقرير و لا حظه ثم أغلقه اضف سجل فى الجدول ثم اغلقه افتح التقرير مرة ثانية Test00.…