Shivan Rekany

اولا عنوان الموضوع مخالفة للقوانين المنتدى اتفضل عملت لك بطريقتين Private Sub الكود_AfterUpdate() Me.المادة = Me.الكود.Column(1) End Sub Private Sub المادة_AfterUpdate() Me.الكود = Nz(DLookup("[الكود]", "[المواد]", "[المادة]='" & Me.المادة & "'"), 0) End Sub المخازن.accdb

مشاركتي الاولي بيعطيك هذه النتائج

شكرا استاذ عبدالرحمن هاشم السبب يرجع لكود الاخفاء الواجهة في نموذج عند الحالي Private Sub Form_Current() fSetAccessWindow (SW_SHOWMINIMIZED) End Sub قم بحذفه و اكتبه في عند التحميل هكذا Private Sub Form_Load() fSetAccessWindow (SW_SHOWMINIMIZED) End Sub امتحانات ثانوي 2000.accdb

و استخدمت هذا Private Sub fdate_AfterUpdate() On Error Resume Next Me.number1 = Nz(DMax("[number1]", "tp1"), 0) + 1 Call Form_Current End Sub Private Sub Form_Current() On Error Resume Next If IsDate(Me.fdate) Then Me.code = "000" & Me.number1 & "-" & Right(Year(Me.fdate), 2) & "/" & Format(Me.fdate, "mm") & "/" & Format(Me.fdate, "dd") End Sub اليك المرفق db9790.rar

كل شيء لها حل ... لكن الفهم من المطلوب يعطينا طريق العمل في الحقيقة حتى الان انا لا اعرف ما هو المطلوب بالضبط شوف حذف البيانات المرفق اولا ثانيا خليها 3 او 4 اسماء فقط واعطينا فهم الشغل بالتمام اي اكتب لنا الاحتمالات لكل اسم و ان شاء الله راح نواصل لحل

هذا المنطق يعكس هذا اي نوعهما تريد

السلام عليكم كان يجب ان يكون حقل ترقيم تلقائي متتالية لكن حضرتك قمت بحذف بعض السجلات لذلك الكود الاعلاه ما يعمل بشكل صحيح لان الكود يشوف الحقل الاقل منه برقم واحد من التسلسل لكن الان انا عملت لك استعلام اخر بطريقة اخرى اتفضل INSERT INTO ATTANDANCE ( id, USERID, check_in, check_out ) SELECT CHECKINOUT.id, CHECKINOUT.USERID, CHECKINOUT.CHECKTIME, DLookUp("[CHECKTIME]","CHECKINOUT","[CHECKINOUT]![USERID]=" & [USERID] & "AND [CHECKINOUT]![CHECKTYPE]='O'" & "AND [CHECKINOUT]![ID]>" & [ID]) AS Expr1 FROM CHECKINOUT GROUP BY CHECKINOUT.id, CHECKINOUT.USERID, CHECKINOUT.CHECKTIME, DLookUp("[CHECKTIME]","CHECKINOUT","[CHECKINOUT]![USERID]=" & [USERID] & "AND [CHECKINOUT]![CHECKTYPE]='O'" & "AND [CHECKINOUT]![ID]>" & [ID]), CHECKINOUT.CHECKTYPE HAVING (((CHECKINOUT.CHECKTYPE)='I')); اليك الملف att2000.mdb

اولا في جدول جيك اين اوت اضفت حقل ترقيم تلقائي وبعدين عملنا استعلام الاسفل بيظهر لنا السجلات الرقم الزوجية وبعدين حقل الاخر بواسطة دالة ديلوك اب بيعطينا التاريخ الدخول اي سجلات الفردية وبعدين قمنا بنقل هذه البيانات بواسطة الاستعلام الى الجدول المطلوبة لكن كان يجب ان يكون هناك رقم الوظيفي مثلا للموظف لكي نعمل كشرط لجلب البيانات على الرغم كل شي اتفضل اليك هذه الاستعلام التحديث INSERT INTO ATTANDANCE ( USERID, check_out, check_in ) SELECT CHECKINOUT.USERID, CHECKINOUT.CHECKTIME, DLookUp("[CHECKTIME]","CHECKINOUT","[id]=" & [id]-1) AS Expr1 FROM CHECKINOUT WHERE ((([id] Mod 2)=0)); والملف بعد اضافة att2000.mdb

اتفضل

مشاركة مع استاذ @AlwaZeeR اتفضل تم استخدام هذا حسب ما طلبت وما شرحت على النموذج المرفق Private Sub fdate_AfterUpdate() On Error Resume Next If IsNull(Me.number1) = True Or Me.number1 = 0 Then Me.number1 = Nz(DMax("[number1]", "tp1", Format("[fdate]", "yyyy/mm/dd") = Format(Me.fdate, "yyyy/mm/dd")), 0) + 1 End If End Sub Private Sub Form_Current() If IsDate(Me.fdate) Then Me.code = Right(Year(Me.fdate), 2) & "/" & Format(Me.fdate, "mm") & "/" & Format(Me.fdate, "dd") & "-" & "000" & Me.number1 End Sub اليك القاعدة db9790.rar

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

اذن ارفق ذلك الموقع من قاعدة بياناتك مع ذلك العملية لكي نشوفه

اعتذر منك بشدة اليك هذاانا كان اضفت اشياء في الكود و نسيت احذفه اليك هذا ProgAssit28.rar

نعم بيختفي السجل وما يظهر في نموذج mad لان مصدر نموذج mad هو جدول anas وليس جدول mad لذلك قمت بتغيير مصدره والان كل شيء تمام اتفضل Database1 (1) (1).rar

حتى الان تمام ما في المشكلة بنسبة لي هذا سطر غير مفهومة

الاخ شفان موجو😉دة هنا اتفضل اليك هذا Private Sub الحالة_AfterUpdate() If Me.الحالة.ListIndex = 0 Then Dim AppendSql As String Dim DelSql As String AppendSql = "INSERT INTO mad ( الرقم, التاريخ, التفاصيل, المبلغ, العملة, الحالة, ملاحظات ) SELECT anas.الرقم, anas.التاريخ, anas.التفاصيل, anas.المبلغ, anas.العملة, anas.الحالة, anas.ملاحظات FROM anas WHERE (((anas.الرقم)=[Forms]![anas]![الرقم]));" DelSql = "DELETE anas.الرقم, anas.التاريخ, anas.التفاصيل, anas.المبلغ, anas.العملة, anas.الحالة, anas.ملاحظات FROM anas WHERE (((anas.الرقم)=[Forms]![anas]![الرقم]));" DoCmd.SetWarnings False DoCmd.RunSQL (AppendSql) DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True Me.Requery End If End Sub اليك ملف بعد تعديل Database1 (1) (1).rar

اتفضل اليك هذا عند كتابة رقم اي دي جديد سيعمل الكود Private Sub ID_AfterUpdate() If IsNumeric(Me.ID) Then Me.salaryname = DLookup("[salarynew]", "[TblSub]", "[ID]=" & Me.ID - 1 & "And [namee]='" & Me.namee & "'") Me.Lastdate = DLookup("[asthkakdate]", "[TblSub]", "[ID]=" & Me.ID - 1 & "And [namee]='" & Me.namee & "'") End If End Sub لكن يجب ان يكون اي دي الجديد بيكون رقم ويجب ان تكتب اي دي اكبر من اي دي السجل القبله AlawatProgram3.rar

اتفضل اليك هذا Private Sub TTarix_Click() Dim FariqYear As Integer FariqYear = DateDiff("yyyy", Me.FirstDate, Me.EndDate) Me.Form.SetFocus Me.Frm1.SetFocus Me.Frm1.Form.ShopDate.SetFocus DoCmd.GoToRecord , , acFirst For i = 1 To Me.Frm1.Form.Recordset.RecordCount If Month(Me.FirstDate) <> 12 Then If i = 1 Then Form_Frm1.ShopDate = Me.FirstDate ElseIf i = 2 Then Form_Frm1.ShopDate = "31/12/" & Year(Me.FirstDate) Else Form_Frm1.ShopDate = "31/12/" & Year(Me.FirstDate) + (i - 2) End If Else If i = 1 Then Form_Frm1.ShopDate = "31/12/" & Year(Me.FirstDate) Else Form_Frm1.ShopDate = "31/12/" & Year(Me.FirstDate) + (i - 1) End If End If DoCmd.GoToRecord , , acNext Next i End Sub كان من الممكن ان تجمع هذا الكود مع الكود الموضوع الاول في زر واحد ProgAssit28.rar

السلام عليكم ورحمة الله وبركاته اخي الحبيب خالد الفرز في التقرير مختلفة من فرز في الاستعلام اي يجب عليك ان تعمل فرز في داخل التقرير وليس في الاستعلام شوف الصورة اليك القاعدة بعد تعديل test (1).accdb

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

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

انا اضفت حقل اخر باسم itemType1 في جدول ItemsT وبيأخذ قيمة رقم نوع الصنف * ملاحظة : تقدر ان تعطي قيمة افتراضية في النموذج الادخال وبعدين في استعلام مصدر الليست بوكس عملت علاقة بين الجدولين وبعدين حذفت الحقل نوع الصنف و اضفت من جدول اسم المنتج من جدول الاصناف القي نظرتا الى الاستعلام اي مصدر ليست بوكس

اليك هذا Database1 (1).accdb

كما تفضل استاذ @ابو ياسين المشولي تقدر تستخدم شريط تقدمي و دورت على جهازي وتم الحصول الى هذا و اهديك لكن لا اعرف من هو صاحبه ,,,, الله يحفظه شريط تقدمي.mdb

المشكلة كان يرجع لعدم اختيار مكتبة اوتولوك انا قمت باضافة مكتبة microsoft outlook 14.0 object library والان بيعمل الكود test.accdb