ابو ياسين المشولي

العفو اخي بارك الله فيك والحمدلله قدرنا نخدمك بما نستطيع

بعد اذن الاخ sandanet هذة Dlookup exc: DLookUp("exc";"exception";"name='" & [EXECUTER] & "'")

الاخ sandanet لكن في الفرعي يتم التعديل بدون تحذير

بعد اذن اخي Shivan Rekany شوف هل هذا طلبك جرد.mdb

جرب هذا Dim rs As Recordset, db, Database Set db = CurrentDb Set rsedit = CurrentDb.OpenRecordset("tfsil_jard") rsedit.MoveFirst Do While Not rsedit.EOF rsedit.MoveFirst Do Until rsedit.EOF If rsedit![Rajmsanf] = Me.[Rajmsanf] Then rsedit.Edit rsedit!Alkmiah = rsedit!Alkmiah + Me.Alkmiah rsedit.Update End If rsedit.MoveNext Loop Loop Set rsedit = Nothing DoCmd.Close

اخي الكريم لماذا تفتح موضوعين بنفس الموضوع شوف هذا طلبك With Application.Forms For i = .Count - 1 To 0 Step -1 With .Item(i) If .NAME <> strExcept Then DoCmd.Close acForm, .NAME End If End With Next i DoCmd.OpenForm "nam" End With

اخي هكذا يكون الكود if me.[الحقل]> [forms]![اسم النموذج]![اسم النموذج الفرعي]![الحقل] then MsgBox " الرصيد لايسمح " end if

في حدث عند الطباعة Dim stDocName As String stDocName = "طباعة سند قبض" DoCmd.OpenReport stDocName, acPreview DoCmd.Close acForm, "اضافة_سند_قبض"

اخي ممكن اعطيك كود يفتح لك التقرير وبعدها تضغط كتلر pوتطبع هل هذا ما تريده

في هذة الحالة اعمل مدويل جديد وانسخ فيه هذا Public dayli As Date Function Next_Seq(T As String) As String 'T = Type نوع السند 'A = بيع 'M = بيع اجل 'S = شراء نقدي 'G = شراء اجل 'K = مرتجع بيع 'B = مرتجع بيع اجل 'Y = مرتجع شراء نقدي 'P = مرتجع شراء اجل 'R = سند قبض 'U = سند صرف 'L = عرض سعر myGroup = "A = بيع" & vbCrLf & _ "M = بيع" & vbCrLf & _ "L = شراء" & vbCrLf & _ "S = شراء" & vbCrLf & _ "G = شراء" & vbCrLf & _ "B = مرتجع بيع" & vbCrLf & _ "K = مرتجع بيع اجل" & vbCrLf & _ "Y = مرتجع شراء نقدي" & vbCrLf & _ "P = مرتجع شراء اجل" & vbCrLf & _ "R = سند قبض" & vbCrLf & _ "U = سند صرف" If Len(T & "") = 0 Then MsgBox "يجب ان يكون نوع السند" & vbCrLf & "A او M او S او G او K او B او Y او P او R او U اوL" & vbCrLf & vbCrLf & myGroup Exit Function ElseIf T <> "A" And T <> "M" And T <> "S" And T <> "G" And T <> "K" And T <> "B" And T <> "Y" And T <> "P" And T <> "R" And T <> "U" And T <> "L" Then MsgBox "يجب ان يكون نوع السند" & vbCrLf & "A او M او S او G او K او Bاو Y او P او R او U اوL" & vbCrLf & vbCrLf & myGroup Exit Function Else Next_Seq = Nz(DMax("Mid([Rjmfatwra], 2)", "AfwtIar", "Mid([Rjmfatwra], 1, 1) = '" & T & "'"), 0) Next_Seq = T & Format(Next_Seq + 1, "00000") End If End Function وعند الاضافه استدعيه هكذا Me.[Rjmfatwra] = Next_Seq("A")

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

تسلم اخي kaser906 بارك الله فيك انا استخدم برنامج Setup Factory 9 ولكن كان سوالي للاخ cudi عشان السائل يوصل للمطلبه اكرر شكري لك ولكل اعضاء المنتدى على روح التعاون

بالتوفيق والحمدلله انك وجدت الحل

وبعد تعديل الكود من الاستاذ القدير ابو خليك يكون هكذ بنسف الواجه الولى الشكر وكل الشكر للمعلم الفاضل ابو خليل فكان الكود هكذا حسب الترتيب واكرر الشكر الى الاستاذ ابو خليل هو من قام بتعديل الصحيح rst.FindFirst "[pre]='" & list0.Column(0) & "' And [nom]= '" & list0.Column(1) & "'And [Noct]= " & list0.Column(2) برنامج شهادة عائلية .rar

بارك الله فيك اخي نحن في الخدمه قدر المستطاع

اتفضل provider - Copy.accdb

اتفضل وسيم_هشام_1.rar

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

المثال اخي هو نفس طريقتك عند الفتح اجعل الكود وفي حقل بدايه السنه ونهايه السنه اجعل القيمه الافتراضيهdate() الان انا بالجوال واذا فضيت بعد العصر برفع مثال

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

اخي الكريم انت ارفقت الصور ولم ترفق البرنامج

العفو اخي نحن في الخدمة بقدر مانستطيع