jamal2080

شكرا لحسن تعاونكم معنا اخى Eng.Qassim اطلب طريقة بحث فى نمودج عن طريقة نمودج مثل البحث افترضى اكسيس لو سماحة. تمنياتي لك بالتوفيق والنجاح ومزيد من التقدام

كيف اجعل حجم النماذج مناسب لجميع الشاشات لجميع اجهزة الكمبيوتر

اخى برانامج يشتغل عادى

اسف جدا لا اعرف كيف ادخال كود هذا مثال 1080.rar

السلام عليكم ورحمة الله وبركاتة نهارك طيب انشاء الله.. عندى مشكلة فى اعداد رقم فاتورة تكون من حروف ورقم وجزائين من التاريخ على سبيل المثل تاريخ اليوم RD131990223 1 - رمز RD i هو تقرير استلام مواد مباشرة 2 - اما الرقم 13199 هو رقم تقرير الاستلام 3 - الرقم 02 يعنى شهر الحالى 4 - الرقم 23 يعنى السنة ايضا فى ترقيم

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

شكرا جزيل اخى محمد احمد لطفى لكي مني كل التقدير والاحترام

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

مبارك ان شاء الله ـ اختيار موفق من فريق الموقع

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

شكرا لك أستاذنا الفضل القدير أبو أحمد

السلام عليكم ورحمة الله وبركاتة عندى كود vba خاص بالتاريخ عندما اختر الشهر الحالى مثل شهر فبراير يخرج من 1/2/2023 الى 31/2/2023 هذا هو كود :- If [m] = "اليوم" Then n1 = Date n2 = Date Else End If If [m] = "اسبوعي" Then n1 = Date - 7 n2 = Date Else End If If [m] = "الشهر الحالى" Then [n1] = "1/" & month(Date) & "/" & year(Date) [n2] = "31/" & month(Date) & "/" & year(Date) Else End If If [m] = "الربع الأول" Then [n1] = "1/1" & "/" & year(Date) [n2] = "31/3" & "/" & year(Date) Else End If If [m] = "نصف سنوى" Then [n1] = "1/1" & "/" & year(Date) [n2] = "30/6" & "/" & year(Date) Else End If If [m] = "الربع الثالث" Then [n1] = "1/1" & "/" & year(Date) [n2] = "30/9" & "/" & year(Date) Else End If If [m] = "سنوى" Then [n1] = "1/1" & "/" & year(Date) [n2] = "31/12" & "/" & year(Date) Else End If frm_0.Requery frm_1.Requery

ارجوا مساعده اعداد تفرير استلام مواد مربع سرد وتحرير الادارة الطالبة تظهر فى التقرير رقم انا اريد انا تظهر اسم الادارة . مربع سرد وتحرير وصف الطالبية تظهر فى التقرير رقم انا اريد انا تظهر اسم الوصف. 1080.rar

لك منى كل التقدير والاحترام

السلام ورحمة الله وبركاته أخي Moosak تفضل ملف 1080.rar

اولا شكرا اخى على الاهتمام * لا نفس مشكلة ... عندى ملف ولكن منتدة محدد حجم ملف الرفع

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

لســـــــــــــــــــــــــــ((( عليكم ورحمه الله وبركاته )))ـــــــــــــــــلام اريد هذا كود ترجع على الحفظ اوتعديل ----- ارجوا افادة On Error GoTo Err_traghh_Click DoCmd.SetWarnings False Me.Job_ID.SetFocus If Me.flagsav = 1 And (IsNull(Me.Job_ID)) Then If MsgBox("åá ÈÇáÝÚá ÇáÊÑÇÌÚ Úä ÊÓÌíá ÇáÈíÇäÇÊ ¿", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "ÊÍÐíÑ") = vbNo Then Exit Sub Else Me.flagsav = Null Me.Refresh Me.Requery Me.OrderByOn = True Me.OrderBy = "[Job_ID] DESC" End If MsgBox "Êã ÇáÊÑÇÌÚ Úä ÇáÊÓÌíá ÈäÌÇÍ.", 48, " " End If If (Not IsNull([Job_ID]) And Not IsNull(Me.flagsav) And (Me.flagsav = 1)) Then If MsgBox("åá ÊÑíÏ ÈÇáÝÚá ÇáÊÑÇÌÚ Úä ÊÓÌíá ÇáÈíÇäÇÊ ¿", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "ÊÍÐíÑ") = vbNo Then Exit Sub Else On Error Resume Next With Me .AllowDeletions = True DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.RunCommand acCmdDeleteRecord DoCmd.RunCommand acCmdSaveRecord DoCmd.RunCommand acCmdRefresh Me.Requery Me.Refresh DoCmd.SetWarnings True .AllowDeletions = False .AllowEdits = True Me.OrderByOn = True Me.OrderBy = "[Job_ID] DESC" End With End If MsgBox "Êã ÇáÊÑÇÌÚ Úä ÇáÊÓÌíá ÈäÌÇÍ.", 48, " " End If If Me.flagsav = 2 Then If MsgBox("åá ÊÑíÏ ÈÇáÝÚá ÇáÊÑÇÌÚ Úä ÊÚÏíá ÇáÈíÇäÇÊ ¿", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "ÊÍÐíÑ") = vbNo Then Exit Sub Else End If Me.Refresh With Me .AllowEdits = True End With MsgBox "Êã ÇáÊÑÇÌÚ Úä ÇáÊÚÏíá ÈäÌÇÍ.", 48, " " DoCmd.RunSQL "UPDATE EMPLOYEES INNER JOIN EMPLOYEES_Temp ON EMPLOYEES.Job_ID = EMPLOYEES_Temp.Job_ID SET Cars_ machinery.Job_ID = [EMPLOYEES_Temp]![Job_ID], EMPLOYEES.ID_cant = [EMPLOYEES_Temp]![Vehicle Type],Cars_ machinery.Vehicle Type = [EMPLOYEES_Temp]![Vehicle Type];" DoCmd.RunSQL "UPDATE Tabl_2 INNER JOIN Tabl_2_Temp ON Tabl_2.B_id = Tabl_2_Temp.B_id SET Tabl_2.FName = [Tabl_2_Temp]![FName], Tabl_2.Kinship = [Tabl_2_Temp]![Kinship];" DoCmd.RunSQL "DELETE Tabl_2.*, Tabl_2.Nn_Id, Tabl_2_Temp.B_id " & _ " FROM Tabl_2 LEFT JOIN Tabl_2_Temp ON Tabl_2.B_id = Tabl_2_Temp.B_id " & _ " WHERE (((Tabl_2.Nn_Id)=[Forms]![frm_F]![N_id]) AND ((Tabl_2_Temp.B_id) Is Null));" DoCmd.RunSQL "INSERT INTO Tabl_2 " & _ " SELECT Tabl_2_Temp.* " & _ " FROM Tabl_2 RIGHT JOIN Tabl_2_Temp ON Tabl_2.B_id = Tabl_2_Temp.B_id " & _ " WHERE (((Tabl_2.B_id) Is Null) AND ((Tabl_2_Temp.Nn_Id)=[Forms]![frm_F]![N_id]));" End If On Error Resume Next AllowAdditions = False AllowEdits = False AllowDeletions = False On Error GoTo 0 Me![cmdNext].Enabled = True Me![cmdPrevious].Enabled = True Me![cmdLast].Enabled = True Me![cmdFirst].Enabled = True Me![D_L].Enabled = True Me![seva].Enabled = False Me![cmdClose].Enabled = True Me![addnew].Enabled = True Me![Edit].Enabled = True Me![traghh].Enabled = False If DCount("*", "EMPLOYEES", "Job_ID") < 1 Then Me![addnew].Enabled = True Me![cmdNext].Enabled = False Me![cmdPrevious].Enabled = False Me![cmdLast].Enabled = False Me![cmdFirst].Enabled = Fals Me![D_L].Enabled = False Me![cmdcols].Enabled = True Me![Edit].Enabled = False Me![sav].Enabled = False Me![traghh].Enabled = False AllowAdditions = True AllowEdits = False AllowDeletions = False End If Me.flagsav = Null Me.traghh.Caption = "" DoCmd.SetWarnings True Exit_traghh_Click: Exit Sub Err_traghh_Click: MsgBox Err.DESCRIPTION Resume Exit_traghh_Click

الســـــــــــــــــــــــــــ((( عليكم ورحمه الله وبركاته )))ـــــــــــــــــلام اريد هذا كود ترجع على الحفظ اوتعديل ----- ارجوا افادة On Error GoTo Err_traghh_Click DoCmd.SetWarnings False Me.Job_ID.SetFocus If Me.flagsav = 1 And (IsNull(Me.Job_ID)) Then If MsgBox("åá ÈÇáÝÚá ÇáÊÑÇÌÚ Úä ÊÓÌíá ÇáÈíÇäÇÊ ¿", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "ÊÍÐíÑ") = vbNo Then Exit Sub Else Me.flagsav = Null Me.Refresh Me.Requery Me.OrderByOn = True Me.OrderBy = "[Job_ID] DESC" End If MsgBox "Êã ÇáÊÑÇÌÚ Úä ÇáÊÓÌíá ÈäÌÇÍ.", 48, " " End If If (Not IsNull([Job_ID]) And Not IsNull(Me.flagsav) And (Me.flagsav = 1)) Then If MsgBox("åá ÊÑíÏ ÈÇáÝÚá ÇáÊÑÇÌÚ Úä ÊÓÌíá ÇáÈíÇäÇÊ ¿", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "ÊÍÐíÑ") = vbNo Then Exit Sub Else On Error Resume Next With Me .AllowDeletions = True DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.RunCommand acCmdDeleteRecord DoCmd.RunCommand acCmdSaveRecord DoCmd.RunCommand acCmdRefresh Me.Requery Me.Refresh DoCmd.SetWarnings True .AllowDeletions = False .AllowEdits = True Me.OrderByOn = True Me.OrderBy = "[Job_ID] DESC" End With End If MsgBox "Êã ÇáÊÑÇÌÚ Úä ÇáÊÓÌíá ÈäÌÇÍ.", 48, " " End If If Me.flagsav = 2 Then If MsgBox("åá ÊÑíÏ ÈÇáÝÚá ÇáÊÑÇÌÚ Úä ÊÚÏíá ÇáÈíÇäÇÊ ¿", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "ÊÍÐíÑ") = vbNo Then Exit Sub Else End If Me.Refresh With Me .AllowEdits = True End With MsgBox "Êã ÇáÊÑÇÌÚ Úä ÇáÊÚÏíá ÈäÌÇÍ.", 48, " " DoCmd.RunSQL "UPDATE EMPLOYEES INNER JOIN EMPLOYEES_Temp ON EMPLOYEES.Job_ID = EMPLOYEES_Temp.Job_ID SET Cars_ machinery.Job_ID = [EMPLOYEES_Temp]![Job_ID], EMPLOYEES.ID_cant = [EMPLOYEES_Temp]![Vehicle Type],Cars_ machinery.Vehicle Type = [EMPLOYEES_Temp]![Vehicle Type];" DoCmd.RunSQL "UPDATE Tabl_2 INNER JOIN Tabl_2_Temp ON Tabl_2.B_id = Tabl_2_Temp.B_id SET Tabl_2.FName = [Tabl_2_Temp]![FName], Tabl_2.Kinship = [Tabl_2_Temp]![Kinship];" DoCmd.RunSQL "DELETE Tabl_2.*, Tabl_2.Nn_Id, Tabl_2_Temp.B_id " & _ " FROM Tabl_2 LEFT JOIN Tabl_2_Temp ON Tabl_2.B_id = Tabl_2_Temp.B_id " & _ " WHERE (((Tabl_2.Nn_Id)=[Forms]![frm_F]![N_id]) AND ((Tabl_2_Temp.B_id) Is Null));" DoCmd.RunSQL "INSERT INTO Tabl_2 " & _ " SELECT Tabl_2_Temp.* " & _ " FROM Tabl_2 RIGHT JOIN Tabl_2_Temp ON Tabl_2.B_id = Tabl_2_Temp.B_id " & _ " WHERE (((Tabl_2.B_id) Is Null) AND ((Tabl_2_Temp.Nn_Id)=[Forms]![frm_F]![N_id]));" End If On Error Resume Next AllowAdditions = False AllowEdits = False AllowDeletions = False On Error GoTo 0 Me![cmdNext].Enabled = True Me![cmdPrevious].Enabled = True Me![cmdLast].Enabled = True Me![cmdFirst].Enabled = True Me![D_L].Enabled = True Me![seva].Enabled = False Me![cmdClose].Enabled = True Me![addnew].Enabled = True Me![Edit].Enabled = True Me![traghh].Enabled = False If DCount("*", "EMPLOYEES", "Job_ID") < 1 Then Me![addnew].Enabled = True Me![cmdNext].Enabled = False Me![cmdPrevious].Enabled = False Me![cmdLast].Enabled = False Me![cmdFirst].Enabled = Fals Me![D_L].Enabled = False Me![cmdcols].Enabled = True Me![Edit].Enabled = False Me![sav].Enabled = False Me![traghh].Enabled = False AllowAdditions = True AllowEdits = False AllowDeletions = False End If Me.flagsav = Null Me.traghh.Caption = "" DoCmd.SetWarnings True Exit_traghh_Click: Exit Sub Err_traghh_Click: MsgBox Err.DESCRIPTION Resume Exit_traghh_Click

شكرا اخى على اهتمامك ولك منى الاحترام والتقدير

وهذا هو قصد من معلومة.... ولكم منى كل احترام وتقدير

عند دخول على المنظومة تظهر شاشة كلمة المرور :- كما موضح فى الصورة الاول 2 - تدخل السنة المرد دخول علية فرض سنة 2022 وبعد ذلك تدخل كلمة المرور تظهر بيانات سنة الذى ادخالتها فقط. 3 - يتم انشاء فى مجلد منظومة مجلد يحمل سنة 2022 كما موضح فى الصورة

شكرا على حسن تعاونكم :- انا اريد شى اكبر من هذا شى -

تفضل هذا جزاء من الجدول Database1.rar

انشاء جدول بيانات فية اكثر من 12000 سجل بداية من تاريخ 1/1/2017 الى 2023 اريد عمل فلتر حسب السنة هل توجد طريقة مناسب لهدة العملية