عمر ضاحى

On Error GoTo HandleError Dim ObjName As String Select Case CurrentProject.AllForms(ObjName).IsLoaded Case ObjName = "FrmAddNewPOTally" txtLPOID = Forms![FrmAddNewPOTally]![cbIDPO] If DLookup("[LPOID]", "[TblChicPO]", "[LPOID] =" & [Forms]![FrmAddNewPOTally]![cbIDPO] & "") = txtLPOID Then Call LodInfo cmdEdit.Enabled = True Else MsgBox "DataBase Not Have Any Information For List Document For PO ID# " & txtLPOID, vbCritical, "Worning" cmdSave.Enabled = True End If Case ObjName = "FromPoTallySearch" txtLPOID = Forms![FromPoTallySearch]![SubFromPoTally].Form![txtIDPO] If DLookup("[LPOID]", "[TblChicPO]", "[LPOID] =" & [Forms]![FrmAddNewPOTally]![cbIDPO] & "") = txtLPOID Then Call LodInfo cmdEdit.Enabled = True Else MsgBox "DataBase Not Have Any Information For List Document For PO ID# " & txtLPOID, vbCritical, "Worning" cmdSave.Enabled = True End If End Select HandleExit: Exit Sub HandleError: If Err.Number = 0 Then Exit Sub ElseIf Err.Number = 2467 Then Exit Sub ' ElseIf Err.Number = 2478 Then ' Exit Sub Else MsgBox Err.Number & vbNewLine & vbNewLine & Err.DESCRIPTION End If Resume HandleExit بالطريقه دي اشتغلت لكن بيظهر لى خطأ 2467 وده معناه انه بيبحث عن نموذج مش مفتوح هرجع لدالة if وامري الى الله ^_^

جربت ادور فى النت ما وصلت لشئ وهنا ايضا ما وصلت لشئ

فى انتظار تجربتك ولا تنسي اختيار افضل اجابة اذا تم حل المشكله

="TOTAL " & Format([txtTotal];"#,###.00")

اها فهمتك استخدم هنا دالة Format

هو رقم العقد بيكون كام رقم ؟ وايه هيئته ؟ علشان ممكن اقترح عليك تقسم الرقم على حقلين لو افترضنا ان الرقم عباره عن السنه والشهر ورقم العقد مثل 202301999999999 فيمكن جعل الحقل الاول يحمل السنه والحقل الثاني يحمل الشهر (او الحقل الاول يحمل السنه والشهر معا) والحقل الثالث تجعله لرقم العقد

اجعل تنسيق الحقل من النوع قياسي

السلام عليكم ورحمة الله وبركاته اساتذتى الكرام حفظكم الله من كل شر بعد اذن حضرتكم وكما هو موضح من العنوان محتاج طريقة استخدم فيها دالة Select Case مع CurrentProject.AllForms جربت طرق كثيره ولجهلى الاكيد لبعض الامور الاساسية فشلت فى ايجاد طريقة هذا الكود الذى جربته On Error GoTo HandleError Dim ObjName As Forms ' Set ObjName.Form '= CurrentProject.AllForms Select Case CurrentProject.AllForms(ObjName).IsLoaded Case ObjName = "FrmAddNewPOTally" txtLPOID = Forms![FrmAddNewPOTally]![cbIDPO] If DLookup("[LPOID]", "[TblChicPO]", "[LPOID] =" & [Forms]![FrmAddNewPOTally]![cbIDPO] & "") = txtLPOID Then Call LodInfo Else MsgBox "DataBase Not Have Any Information For List Document For PO ID# " & txtLPOID, vbCritical, "Worning" End If Case ObjName = "FromPoTallySearch" txtLPOID = Forms![FromPoTallySearch]![SubFromPoTally].Form![txtIDPO] If DLookup("[LPOID]", "[TblChicPO]", "[LPOID] =" & [Forms]![FrmAddNewPOTally]![cbIDPO] & "") = txtLPOID Then Call LodInfo Else MsgBox "DataBase Not Have Any Information For List Document For PO ID# " & txtLPOID, vbCritical, "Worning" End If End Select HandleExit: Exit Sub HandleError: If Err.Number = 0 Then Exit Sub Else MsgBox Err.Number & vbNewLine & vbNewLine & Err.DESCRIPTION End If Resume HandleExit هل اجد حل ان شاء الله عندكم ؟ (اكيد فى حل) ^_^

لا اعتقد انه يمكن (والله اعلم) لان دوال ال D كلها دوال استعلامية فى حد ذاتها لكن يمكن عمل استعلام جمع مثل SELECT vacations.EmpIDL, Sum(vacations.vacations) AS Sumمنvacations FROM vacations GROUP BY vacations.EmpIDL;

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

على الرغم انى حاسس انى مش عارف طلبك بالظبط وانه طلب عام دون تحديد المطلوب لان طلبك لا يتضمن المعيار لعمل الاستعلام فانت تريد الجمع بناءا على ايه ؟ هل على معيار اسم الموظف (هذا خطأ طبعا ) لان يفضل ان يكون المعيار على رقم المعرف للموظف او رقم الموظف لذا انا اجد انه يجب انشاء جدول لبيانات الموظفين وليكن TbEmpInfo سوف اجعله مصدر بيانات الموظف ومنه اخذ رقم الموظف ثم اقوم بأنشاء علاقه بينهم وبناءا على ما سبق تقدر تعمل اى استعلام ان شاء الله دون مشاكل قمت بعمل لك نموذج لدالة DSum ممكن تستفاد منه واترك لك باقى الدوال لتجربتها بنفسك غير ان فى الموقع الكثير من المواضيه التى تشرح هذه الدوال وطرق استخدامها شرح طريقة العمل vacations.rar

Me.y2.Enabled = False Dim IEE As Object Dim SQL As String Dim fso As Object Dim fldrname As String Dim fldrpath As String Dim Mytoname As String Dim stname1 As String Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("email") rs.MoveLast: rs.MoveFirst Dim IE As Object DoCmd.RunCommand acCmdSaveRecord If Nz(DCount("SelectRow", "email", "SelectRow = 'R'"), 0) = 0 Then MsgBox "يجب اختيار المرسل اليه اولا", vbCritical + vbMsgBoxRight, "تنبيه" Exit Sub End If If IsNull(Me.msg) Then MsgBox "لايوجد نص للارسال", vbCritical + vbMsgBoxRight, "تنبيه" Exit Sub End If If IsNull([subemail].Form![phone_number]) Then MsgBox "لايوجد رقم هاتف", vbCritical + vbMsgBoxRight, "تنبيه" Exit Sub End If Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\" & "الشهادات" If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "whatsapp://send?phone=" & rs!phone_number & "&text=" Call SendKeys("~", True) If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) If rs.Fields("SelectRow") = "R" Then Mytoname = rs.Fields(0) stname1 = rs.Fields("toname") End If Dim strMSG As String strMSG = "*المرسل : " & Me.myname.Value & "*" & vbCrLf & vbCrLf & "*" & Me.sub.Value & "*" & vbCrLf & "*" & vbCrLf & "*" & Me.msg.Value & "*" Debug.Print strMSG Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "whatsapp://send?phone=" & rs!phone_number & "&text=" & ReplaceLineBreaks(strMSG), vbMinimizedFocus End If If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) If rs.Fields("SelectRow") = "R" Then Mytoname = rs.Fields(0) stname1 = rs.Fields("toname") fldrpath = CurrentProject.Path & "\الشهادات\" & "شهادة" & "-" & Mytoname & "-" & Me.y2.Column(0) & ".pdf" DoCmd.OutputTo acOutputReport, "" & Me.y2.Column(0) & "", "PDFFormat(*.pdf)", fldrpath, False, "", , acExportQualityPrint Pause 2 SendKeys "~" ' إرسال المرفق إن وجد If Not IsNull(Me.attach1) Then SendKeys "+{TAB}" SendKeys "~" Pause 2 SendKeys "{UP}" ' لإرسال الصور SendKeys "{UP}" ' لإرسال الملصقات SendKeys "{UP}" ' لفتح الكاميرة SendKeys "{UP}" ' لإرسال مستند SendKeys "~" Pause 2 SendKeys Me.attach1 'like "D:\OneDrive\Print\001.pdf" SendKeys "~" Pause 2 SendKeys "~" SendKeys "{NUMLOCK}", True End If Pause 2 ' إزالة علامة الصح من أمام الرقم DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE email SET[SendStuts]='تم الارسال' , SelectRow ='T' WHERE [ID]=" & Mytoname DoCmd.SetWarnings True rs.MoveNext Wend End If End If End If SendKeys "{NUMLOCK}", True rs.Close Set rs = Nothing Set IE = Nothing Set IEE = Nothing ' إعادة التركيز لبرنامج الأكسس SetForegroundWindow Application.hWndAccessApp MsgBox " تم الإرســــــال ", vbMsgBoxRight, "" HandleExit: Exit Sub HandleError: If Err.Number = 0 Then Exit Sub ElseIf Err.Number = -2147467259 Then ' ما قادر يركز على شاشة الواتسأب Resume Next Else MsgBox Err.Number & vbNewLine & vbNewLine & Err.Description, , "send1_Click" End If Resume HandleExit Set rs = Nothing Me.y2.Enabled = True Me.y2 = "تم ارسال الشهادات بنجاح" End Sub جرب كده يمكن تتحل مش متأكد من موقعهم 100% لاني تهت شويه فى الكود

ظبطة لما حذفت double وجعلتها هكذا Dim FORAMOUNT او Dim FORAMOUNT As String

للاسف ليس هذا الحل المشكله كما هي

السلام عليكم كل عام وانتم بخير اساتذتي الكرام حفظكم الله وبارك الله فى اعماركم واولادكم واموالكم بعد اذن حضرتكم معي مشكله فى هذا الكود Dim X As Object Dim objWord As Object Dim FORAMOUNT As Integer FORAMOUNT = Format(txtPOAmount, "0,0.00") Set X = CreateObject("Word.Application") X.Documents.Open CurrentProject.Path & "\PayReqForm.doc" X.Visible = True X.ActiveDocument.Bookmarks("txtPONO").Select X.Selection.InsertAfter txtPONO X.ActiveDocument.Bookmarks("cbLPOSuppliersName").Select X.Selection.InsertAfter cbLPOSuppliersName X.ActiveDocument.Bookmarks("txtPOAmount").Select X.Selection.InsertAfter FORAMOUNT X.ActiveDocument.saveas2 CurrentProject.Path & "\" & txtPONO & " " & Format(Now(), "dd_mm_yyyy HH_MM__AM/PM") & ".doc" X.ActiveDocument.Close savechanges:=0 X.Quit MsgBox "DONE" المشكله ان لما بيتم ارسال الرقم الى ملف الورد بيتم ارساله بدون الفاصله او حتى الارقام العشريه الصفريه مثل 1.00 جربت استخدم دالة FORMAT زي ما هو واضح فى الكود FORAMOUNT = Format(txtPOAmount, "0,0.00") لكن بيتم ارسال الرقم كما هو دون تنسيق يعنى الرقم مثل 123456 المفترض انه يظهر فى الورد هكذا 123,456.00 لكن لا يحصل هذا ويتم ارساله كما هو ك 123456 هل لهذا المشكله من حل ؟ ولكم جزيل الشكر

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

اين المرفق ؟

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

فى الغالب علشان خايفين لنسأل اسأله تخلى الروبيت يتمرد عليهم ههههههههههههه

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

تم تعديل كود اعادة الربط بكود المهندس / جعفر من موضوع لحين معرفة الخطأ فى الكود احالى للربط التلقائى مرفق البرنامج بعد التعديل HR-OmarDahyV2.rar

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

اتفضل قمت برفع البرنامج كامل

السلام عليكم اساتذتى وزملائى الكرام مرفق الى حضرتكم برنامج لادارة الموارد البشرية للاسف انا لا اجيد كتابة المواضيع (سامحوني على هذا) لكن احب اولا ان اشكر كل من قدم لى المساعدة والنصح والارشاد حتى يخرج البرنامج بهذا الشكل خاصة استاذى الجليل @jjafferr وايضا @ابو جودي وايضا @Eng.Qassim @Moosak @ابوخليل والكثير من الاستاذة الاجلاء حفظهم الله لا استطيع ان اتذكرهم الان سائل المولى عز وجل ان يزيدهم من علمهم ويبارك فى صحتهم هم وزويهم واصحابهم وجميع المسلمين ناتي للبرنامج البرنامج فيه الكثير من الامور التى يصعب علي تسجيلها كلها هنا مثل نظام صلاحية المستخدمين (هو موجود لكن هناك الكثير من النماذج لم اقم باضافتها لاني انا المستخدم الوحيد للبرنامج فتكاسلت عن ظبطها لجميع النماذج) ايضا 1- تسجيل بيانات الموظفين (بيانات كاملة وشامله لاغلب ما يمكن ان يتطلب* 2-نظام الحضور والانصراف للموظفين وترحيلها 3-نظام تحضير وتجهيز الرواتب 4- طباعة ورقة الحضور للموظفين اليومي ....... الكثير الكثير من الاستعلامات الخاصه مثل الاستعلام عن حضور وانصراف و اضافى الموظفين و البحث عن الموظفين والتسجيل لهم غياب مرضى او اجازة عمرة او حج ..... الخ سوف اضع بعض الصور للبرنامج وقوائهم قائمة التكوين والاعدادات قائمة الاجراءات قائمة الاستعلامات هذا كل ما يمكن ان اذكره والباقى على المحتاجين للبرنامج استكشاف البرنامج والادوات الموجودة فيه ملاحظه : قمت بازالة لوجو الشركة عندي كل ما عليك وضع شعار الشركة او المؤسسة عندك فى التقارير ايضا (اكيد هيكون هناك بعض الاخطأ فى البرنامج لم اقم باصلاحها لانى توقفت عن استخدام البرنامج من فتره طوووويله ^_^ بسبب وجود جهاز للبصمه وتم الاستغناء عن نظام الحضور والانصراف فى البرنامج لكن باقى الامور ان شاء الله تعمل جيدا واذا كان هناك اى اصلاحات مطلوبه واستطيع ان اصلحها انا فى الخدمه واذا لم يكن فى امكاني فسوف اطلب المساعدة من اساتذتى الكرام حفظهم الله) كل ما احتاجه منكم دعوة لى فى ظهر الغيب ولاهلى وان تدعو لامي ان يغفر لها ويرحمها 😢 ولكم جزيل الشكر والعرفان . HR-OmarDahy.rar Key.rar

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