jamal2080

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

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

لســـــــــــــــــــــــــــ((( عليكم ورحمه الله وبركاته )))ـــــــــــــــــلام اريد هذا كود ترجع على الحفظ اوتعديل ----- ارجوا افادة 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 اريد عمل فلتر حسب السنة هل توجد طريقة مناسب لهدة العملية

السلام عليكم ورحمة الله وبركاتة ارجوا مساعدة فى اعداد التقرير Database1.rar

1 - اريد ان يبحث عن رقم التقرير الاستلام 2- يبحث عن رقم الطلبية 3 - يبحث عن رقم التوريد وكل مربعات بالرقم

بعد السلام ... 1 - اريد ان يبحث عن رقم التقرير الاستلام 2- يبحث عن رقم الطلبية 3 - يبحث عن رقم التوريد وكل مربعات بالرقم

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

شكرا على شروحات ... وجدة فى موقع اجنبى كود خاص بالتاريخ MyDateVariable = CalendarForm.GetDate( _ SelectedDate:=Date, _ DateFontSize:=11, _ TodayButton:=True, _ BackgroundColor:=RGB(242,248,238), _ HeaderColor:=RGB(84,130,53), _ HeaderFontColor:=RGB(255,255,255), _ SubHeaderColor:=RGB(226,239,218), _ SubHeaderFontColor:=RGB(55,86,35), _ DateColor:=RGB(242,248,238), _ DateFontColor:=RGB(55,86,35), _ SaturdayFontColor:=RGB(55,86,35), _ SundayFontColor:=RGB(55,86,35), _ TrailingMonthFontColor:=RGB(106,163,67), _ DateHoverColor:=RGB(198,224,180), _ DateSelectedColor:=RGB(169,208,142), _ TodayFontColor:=RGB(255,0,0), _ DateSpecialEffect:=fmSpecialEffectRaised)

اخى الكريم شكرا على الاهتمام بدال من اسم المستخدم وكلمة المرور تكون السنة 2022 كلمة مرور ***** * وتكون البيانات السنة 2022 فى مجلد باسم السنة وكل سنة مفصولة فى مجلد خاص بة

1 - الطلبات الاستلام المباشرة :- من جدول رقم 1 2 - الطلبات الاستلام المخزونية :- من جدول رقم 2 3 - الطلبات الاستلام الخارجية:- من جدول رقم 3 تقريرالسنوى وحدة الاستلام.docx

السلام عليكم ورحمة الله وبركاتة اريد منكم مساعده.. انشاء فى منظومة استلام مواد .. 1- استلام مباشرة محلى 2 - استلام مخزونية محلى 3 - استلام عشوائى هل يمكن اقفال السنة مع احتفظ باخر رقم المعاملة

شكرا جزيلا على تعاونكم معنا

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