mrnooo2000

اليك أخى ما طلبت Tax.rar

بالنسبة لاخفاء الكائنات ابحث بالمنتدى ستجد كثير من الموضوعات أما عملية وضع كلمة سر لاضافة الكائنات فهذا غير ممكن الا ان تضع كلمة سر للقاعدة نفسها

للاسف أخى الكريم المنتدى ليس لعمل برامج جاهزة

ضع هذا الاجراء فى النموذج أو فى الوحدة النمطية Sub Copy_Folder(FromPath As String, ToPath As String) Dim FSO As Object If Right(FromPath, 1) = "\" Then FromPath = Left(FromPath, Len(FromPath) - 1) End If If Right(ToPath, 1) = "\" Then ToPath = Left(ToPath, Len…

الاخ السائل ضع هذا الكود فى النموذج الفرعى Private Sub Item_Name_AfterUpdate() Me.[Price_for_each_piece] = Me.[سعر ابوبكر] Me.[سعر_بيع_المحل] = Me.سعر_الجملة End Sub و يمكنك أيضا استخدام أكثر من حل غير ذلك الاول استخدام دالة dlookup الثانى و الاسهل اضافة الاعم…

استخدم استعلام تجميع لاحظ المثال التالى AY_Sum.rar

أخى الكريم أولا كل ما عملناه هو الدالة الموجودة بالوحدة النمطية Public Function ListNols(Zid As Integer, Itm As Long, Num As Integer) As String On Error GoTo BYE_Error ListNols = "0" Dim Rs As DAO.Recordset, i, C As Integer Set Rs = CurrentDb.OpenRecordset("SE…

جرب اخى right-click on the partition volume (say D drive) >> properties >> security tab و منها تستطيع ان تعدل ما تريد

هناك عدة أسباب محتملة لهذه المشكلة أولها وجود ملف .ldb extension (for mdb databases) or .laccdb (for the 2007 format) و الحل اغلق قاعدة البيانات و احذف هذا الملف الثانى أن خصائص ملف الاكسس للقراءة فقط و الحل اغلق الملف و اضغط عليه بزر الفأرة الأيمن و اختر خصائ…

ضعى مثال لتساعدى من يريد مساعدتك

تفضل أخى AY_add.rar

أخى الكريم مطلوبك فى المرفق لكن نصيحتى لك أن تقرأ فى تصميم قواعد البيانات لأن قاعدة بياناتك تحتاج الى اعادة نظر و هناك حقول مكررة و ... AY_List.rar

أخى المشكلة فى خصائص الكومبو الثانى لأن به عمودان أولهما عرضه 0 (مخفى) و هو ما تريد عرضه عدل الخصائص عدد الاعمدة 1 عرض العمود حدد أى عرض AY_TRANSPOT.rar

اين المرفق

المرفق به ما طلبت أخى الكريم لم الاحظ طلبك فى نسخ الارتباط المرفق به ما تريد AY_copy.rar

بعد اذن أستاذتنا أم عهود تفضل أخى لاحظ أنه سيتم انشاء مجلد جديد فى مسار البرنامج لحفظ النسخ الاحطياطية copy.rar

تفضل أخى أتمنى أن يفيدك هذا AY_COPY.rar

اخى الكريم انت طلبت ان تقوم بعملية الطرح لذلك وضعت التعديل السابق عموما اذا كنت تريد الاصفار فى هذا الحقل لن يتم ذلك مباشرة و لكن سنقوم باضافة حقل جديد للاستعلام SumQty: Nz([receipt]![SumOfBalance];0) ثم يمكنك عرض الحقل الجديد أو اجراء العمليات الحسابية عليه ب…

فى الحقيقة أخى مطلوبك غير واضح عموما هذا هو كودك بعد تصويبه اتمنى ان يكون هذا ما تريد a1 = DCount("[Emp_No]", "zhhz", "[magal]=1 And [Gr]=1 And [a]=1") a2 = DCount("[Emp_No]", "zhhz", "[magal]=1 And [Gr]=1 And =1") a3 = DCount("[Emp_No]", "zhhz", "[magal]=1 An…

استخدم هذا الكود فى حقل ناتج الطرح لاحظ الدالة المستخدمة nz لتحويل القيمة الفارغة الى صفر Expr1: Nz([loc]![SumOfqty])-Nz([receipt]![SumOfBalance])