عمر ضاحى

للرفع

اولا ابدأ بالامور المهمه واهمها تنظيم البيانات وعلشان تكون البيانات منظمه بتحتاج لانشاء الجداول بطريقه صحيحه ( ابحث عن هذه النقطه فى المنتدي هتلاقي الكثير من المواضيع المهمه) لا مثل هذه الامور هتساعدك ف فهم تنظيم الجداول وانشاء العلاقات بينها لكن افضل لك اولا ان تفهم اساسيات الاكسيس وبالنسبه لموضوعك فى البدايه هتحتاج لجدول به بيانات المدن واخر المسميات الوظيفيه واخر الدين واخر مستوي العلمي والقطاعات والاقسام وفى الاخر جدول بيانات الموظفين ثم تبدأ بتكوين كل نموذج خاص بما سبق وتنشئ الاستعلامات اللازمه لكل ما سبق ثم تبدأ فى تكوين جداول حضور وانصراف واستعلاماتها ثم جداول تجهيز الرواتب وهنا لكل شيخ طريقه ^_^ هذا بعض الافكار الحاضره لذهني حاليا

المشكله استاذى المهندس / قاسم ان عندي فى الشركه (اجهزتهم) ليس بها هذه البرامج وعلشان كده اطريت ان افكر فى استخدام الاكسيس انا شفت فيديو لناس مقدمه اعمال مثل هذا لكن دون شرح لفكرة الاكواد او حتى نشر الكود فقط الملف التنفيذى فانا عاوز اتعلم كيف فعلها سوف ارفق ملف التنفيذى للفيديو ال شفته وال حاولت ان اقلده Project-Manager-FREE.zip

مش عارف اكمل اكثر من كده حاسس اني تايه ومش عارف اجمعها TimeLine.rar

انا عرفت اوصل لهذه الافكار لكن وقفت على كيف اطبق هذا (الالوان حسب رقم اللون ) عرفت عن طريق استخدام دالة if مع التنسيق لكن مش عارف اكملها بطريقة اسهل غير ان اخترهم مربع نص مربع نص كلا على حد ولو حبيت اطور واضيف الوان اكثر هتكون العمليه مرهقه TimeLine.rar

السلام عليكم ورحمة الله وبركاته اساتذتى الكرام حفظكم الله كما هو موضح من العنوان اريد ان اصمم خط زمني للمهام للمشاريع مثل هذه الصوره انا عندي فى جدول ال TblTask بسجل فيها المهام للمشاريع (الموظف والمهمه والتاريخ من والى ) وايضا لون للمهمه علشان التمييز فى العرض المطلوب :- 1- كيف يمكنني ان احول النموذج FormTimeLine للشكل كما هو موضح فى الصورة ؟ على ان يتم التحكم فى الوان الخط مثل ما انا مختار لكل موظف او مهمه 2- تصميم تقرير يعرض فيها الموجود فى النموذج FormTimeLine اذا كان هناك طريقة اخرى لتنفيذ هذا العمل بشكل ابسط واسهل من ال انا عامله ياريت تعلموني بارك الله فيكم نقطه اخرى كيف يمكن ان اجعل شكل الكتابه فى مربع النص كما فى الاكسيل بذاوية 90 درجه ^_^ اترك لكم المرفق TimeLine.rar

عرفت اين الخطأ الخطأ فى الشرط فى دالة البحث الشرط بيشير الى نموذج مش مفتوح ^_^ فى الكيس الخاص بـ FromPoTallySearch

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 هل لهذا المشكله من حل ؟ ولكم جزيل الشكر

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

اين المرفق ؟

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