mrnooo2000

الموضوع لا يحتاج اكثر مم ذكرته انت اخى استخدم هذا السطر من الكود بدل الموجود عندك CountNum = DCount("*", "DateList", "[From]=" & Format([Forms]![DateListForm]![From], "\#mm\/dd\/yyyy\#") & " and fileno='" & Me.FileNo & "'")

تفضل اخى بحث.rar

حوله الى mde هذا افضل شىء فى الحمايه حتى الان

تفضل اخى التعديل المطلوب تم تعديل اسماء الحقول و الالجداول الى الانجليزية Private Sub datecome_AfterUpdate() If Len(Nz(Me.datecome, "")) = 0 Then Exit Sub Dim m m = DCount("id", "3okod", "datecome <=#" & Me.datecome & "# and datego >=#" & Me.datecome & "# and …

ما اسس هذا التوزيع

يمكنك اخفاء شاشة الكائنات فى اكسس 2007 عن طريق 1. Click the Microsoft Office Button (upper left corner) 2. Click the Access Options button in the bottom right corner of the menu that appears 3. Click the Current Database category on the left side of the Access…

اليك أخى هذه الصفحة بها كل ما قد تحتاج اليه http://www.fmsinc.com/tpapers/faster/

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

جزاك الله خيرا أخ مفرح و لكن يمكن الوصول الى المطلوب بشكل أسهل و أفضل الاخ السائل كما تفضل الاخ مفرح الافضل ان يكون حقل التاريخ الهجرى نص حتى لا يتسبب فى مشاكل بعد ذلك لذلك سنحوله الى نص ثم ضع هذا الكود فى وحدة نمطية Function hijry() As String Calendar = vbCal…

طيب اخى الكريم ما رأيك فى حفظ السجل مباشرة بالانتقال الى النموذج الفرعى بمجرد الادخال استخدم هذا الكود فى حدث بعد التحديث لاسم المستورد اعتقد ان ذلك سيحل المشكلة Me![shipmentdetails SubForm].SetFocus

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

تفضل اخى جرب هذا الكود If MsgBox("åá ÊÑíÏ ÈÇáÊÃßíÏ ÍÝÙ ÇáÈíÇäÇÊ", vbInformation + vbYesNo, "ÍÝÙ") = vbYes Then Dim x1, x2 As Long x1 = Me.a2 * DLookup("rebh", "a2", "TotalPaid=" & 0 & " and n=" & Me.NoFile) / DLookup("Amount", "a2", "TotalPaid=" & 0 & " and n=…

تفضل اخى المرفق تم تقسيم قاعدة البيانات و ستجد واجهتين يمكنك التجريب عليهما DMax.rar

اخى هذا هو الكود بعد التعديل جرب و انا معك Dim x As Integer DoCmd.SetWarnings False DoCmd.RunSQL " delete from tbsub where mainid=" & Me.ID DoCmd.SetWarnings True For x = 1 To Me.NezamElsdad DoCmd.SetWarnings False DoCmd.RunSQL " insert into tbsub (mainid,date…

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

نعم اخى لان الامر يستوجب التعديل فى السطر التالى لان قيم التاريخ تعتمد على قيم المتغير i DoCmd.RunSQL " insert into tbsub (mainid,datekest,mount) values (" & Me.ID & ",#" & IIf(Me.NezamElsdad = 3, DateAdd("yyyy", x, Me.EstelamDate), DateAdd("yyyy", x + 2, Me.E…

بالانجليزية conditional formating 1- ضع النموذج فى وضع التصميم 2- حدد العنصر المراد ( مربع نص - كومبو ) 3- كليك يمين اختار conditional formatting و جرب بنفسك

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

المشكلة لديك فى هذا السطر For x = 0 To Me.NezamElsdad عدله الى التالى For x = 1 To Me.NezamElsdad فقط الصفر الى واحد

تفضل اخى الحاق.rar