سامي الحداد
الخبراء-
Posts
291 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
1
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو سامي الحداد
-
كيف يمكن ارسال ملف pdf للايميل لعدة اشخاص
سامي الحداد replied to الحلبي's topic in قسم الأكسيس Access
اين وصلت مع الاوتلوك هل عملت حساب ؟ فقط اعمل حساب حتى نستطيع ربط الاوتولك والجي ميل لن تستغرق العملية اكثر من خمس دقائق بانتظارك -
كيف يمكن ارسال ملف pdf للايميل لعدة اشخاص
سامي الحداد replied to الحلبي's topic in قسم الأكسيس Access
-
كيف يمكن ارسال ملف pdf للايميل لعدة اشخاص
سامي الحداد replied to الحلبي's topic in قسم الأكسيس Access
ليه بس يا دكتور انا معاك لا تعب ولا حاجه صدقني العملية سهله فقط افتح حساب جديد في الاوتلوك وامورك حتكون عال العال وانا معاك ومش راح انام دلوقتي سهران معاك ايه رايك سوف ابعث لك من برنامجك ايميل خليك معاي -
كيف يمكن ارسال ملف pdf للايميل لعدة اشخاص
سامي الحداد replied to الحلبي's topic in قسم الأكسيس Access
https://www.microsoft.com/en-us/microsoft-365-life-hacks/organization/how-to-create-outlook-email-account تفضل دكتور محمد https://www.microsoft.com/en-us/microsoft-365/outlook/email-and-calendar-software-microsoft-outlook?ocid=cmmidy4nt6n -
كيف يمكن ارسال ملف pdf للايميل لعدة اشخاص
سامي الحداد replied to الحلبي's topic in قسم الأكسيس Access
لست متاكدا اذا كان هذا هو السبب حسب تجربتي عملت حساب في الاوتلوك امس واكملت الباقي هل تستطيع عمل حساب في الاوتلوك اولا ثم نكمل لنرى. في الحقيقة لم استخدم الاوتلوك منذ زمن ولكن عندما رايت مشاركتك احببت ان اساعد بما استطيع. افتح حساب في الاوتلوك ونكمل ان شاءالله -
كيف يمكن ارسال ملف pdf للايميل لعدة اشخاص
سامي الحداد replied to الحلبي's topic in قسم الأكسيس Access
نعم قم بتسجيل الايميل الخاص بك وهو ايميلك في الجوجل مع ادخال كلمة المرور واكمل العملية نعم دكتور محمد اكمل لي ملاحظة صغيره هل لديك ايميل في الاوتلوك؟ -
كيف يمكن ارسال ملف pdf للايميل لعدة اشخاص
سامي الحداد replied to الحلبي's topic in قسم الأكسيس Access
استاذي العزيز @Foksh هذه بعض الصور لقد نجحت في الارسال كما قلت سابقا. لا اعلم لماذا لم تستطيع دمج الجي ميل مع الاوتلوك مع ان الاداة من جوجل وفيها شرج وافي عن عملية الدمج وهي تعمل عندي بدون اي مشاكل. ساذهب للبيت الان وان شاءالله اتابع معكم. -
اخي الكريم @rhmano البرنامج فتح معي المشكلة في برامج الحماية هي من تمنع الوصول للبرنامج بعد ان وضعت اسم البرنامج في قائمة الامان في برنامج الحماية فتح البرنامج بدون اي مشكلة وهذه بعض الصور من برنامجك. ممكن في بعض برامج الحماية لا تظهر لك اي رسالة. بالتوفيق
-
كيف يمكن ارسال ملف pdf للايميل لعدة اشخاص
سامي الحداد replied to الحلبي's topic in قسم الأكسيس Access
استاذي الدكتور محمد. هل استخدمت هذا البرنامج لعمل المزامنة بين الاوتلوك والجي ميل Google Workspace Migration for Microsoft Outlook لانه فعلا لم استطيع الارسال من الجي ميل الا بعد ان ثبتت هذا البرنامج بينما الارسال من الاوتلوك كان طبيعي بعد ان غيرت الكود كما اخبرتك سابقا. https://support.google.com/a/answer/176213?hl=en ومن هنا البرنامج. متابع معك بالتوفيق -
كيف يمكن ارسال ملف pdf للايميل لعدة اشخاص
سامي الحداد replied to الحلبي's topic in قسم الأكسيس Access
وعليكم السلام دكتور محمد شوف التعديل على الكود ولان الوقت عندي الان الرابعة والنصف صباحا سوف اتواصل معك غدا بإذن الله . Private Sub cmdExportCrt_Click() On Error GoTo Error_Handler If IsNull(Me.Titletxt) Or Len(Me.Titletxt) = 0 Then MsgBox "Please write the Title": Exit Sub If IsNull(Me.Messagetxt) Or Len(Me.Messagetxt) = 0 Then MsgBox "Please write the Message": Exit Sub Dim rs As DAO.Recordset Set rs = Me.Recordset rs.MoveFirst Do While Not rs.EOF '********* Me.Processtxt = Me.Processtxt & "جار الآن الإرسال لـ" & Me.EmpName & "..." & vbNewLine & Me.EmpEmail & vbNewLine DoCmd.SendObject acSendReport, "CertificatesEmailR", "PDFFormat(*.pdf)", Me.EmpEmail, , , Me.Titletxt, Me.Messagetxt, True, True '********* Me.Processtxt = Me.Processtxt & "تم الإرسال بنجاح ." & vbNewLine rs.MoveNext Loop rs.MoveFirst Set rs = Nothing Error_Handler_Exit: On Error Resume Next Set rs = Nothing Exit Sub Error_Handler: MsgBox "MS Access has generated the following error" & vbCrLf & vbCrLf & "Error Number: " & _ Err.Number & vbCrLf & "Error Source: LoopRecExample" & vbCrLf & "Error Description: " & _ Err.Description, vbCritical, "An Error has Occured!" Resume Error_Handler_Exit End Sub التغير في الكود في هذا السطر فقط. من DoCmd.SendObject acSendReport, "CertificatesEmailR", "PDFFormat(*.pdf)", Me.EmpEmail, , , Me.Titletxt, Me.Messagetxt, False, False الى DoCmd.SendObject acSendReport, "CertificatesEmailR", "PDFFormat(*.pdf)", Me.EmpEmail, , , Me.Titletxt, Me.Messagetxt, True, True تحياتي -
مشكلة في طباعة و استخراج تقرير بصيغة pdf
سامي الحداد replied to moho58's topic in قسم الأكسيس Access
تفضل اخي الكريم هذا الكود لتحويل التقرير إلى صيغة pdf Private Sub أمر65_Click() Dim varItem As Variant Dim myWhere As String Dim Criteria As String Dim ReportName As String ReportName = "rap_liste_stagiere_grade_groupe1" Criteria = varItem myWhere = "" ' Loop through the selected items in the ListBox For Each varItem In Me.lst_XX.ItemsSelected ' Add each selected item to the string myWhere = myWhere & "'" & Me.lst_XX.ItemData(varItem) & "', " Next varItem ' Remove the trailing comma and space from the string myWhere = Left(myWhere, Len(myWhere) - 2) DoCmd.OpenReport "rap_liste_stagiere_grade_groupe1", acViewPreview, , "[grade] in (" & myWhere & ")" DoCmd.OutputTo acOutputReport, ReportName, acFormatPDF DoCmd.Close acReport, ReportName, acSaveNo End Sub نفس الكود تستطيع ان تستخدمه في طباعة التقرير مع تغير بسيط في هذا السطر DoCmd.OutputTo acOutputReport, ReportName, acFormatPDF بالتوفيق -
تفضل اخي الكريم On Error Resume Next ' تعيين القيم المطلوبة لعرض النموذج Me.WindowWidth = 1920 ' تعيين القيم المطلوبة لارتفاع المساحة الداخلية للنموذج Me.WindowHeight = 1080 ' توسيط النموذج على الشاشة Me.Left = (Application.Width - Me.Width) / 2 Me.Top = (Application.Height - Me.Height) / 2 On Error GoTo 0 بالتوفيق
-
مساعدة فى تصحيح كود اذا تكرمتم بخصوص قاعدة IF بأكثر من شرط
سامي الحداد replied to walid7799's topic in قسم الأكسيس Access
السلام عليكم عندك أخطاء في كتابة الكود انظر للتعديل If MsgBox("هل تريد الحفظ", vbYesNo, "خطابات الضمان") = vbYes Then Application.SetOption "Confirm Record Changes", False If Not IsNull(BA3) And Not IsNull(BA17) And Not IsNull(BA22) And Not IsNull(BA21) And BA5 > N2 And BA1 = "زيادة" Then N3 = BA5 - N2 N4 = N3 + N2 BA19 = N4 Forms![ShowNew1]![BA19] = N4 Forms![ShowNew1]![N2] = N4 DoCmd.RunCommand acCmdSaveRecord Application.SetOption "Confirm Record Changes", True ElseIf Not IsNull(BA3) And Not IsNull(BA17) And Not IsNull(BA22) And Not IsNull(BA21) And BA5 < N2 And BA1 = "تخفيض" Then N3 = N2 - BA5 N4 = N2 - N3 BA19 = N4 Forms![ShowNew1]![BA19] = N4 Forms![ShowNew1]![N2] = N4 DoCmd.RunCommand acCmdSaveRecord Application.SetOption "Confirm Record Changes", True ElseIf Not IsNull(BA3) And Not IsNull(BA17) And Not IsNull(BA22) And Not IsNull(BA21) And BA5 = N2 And BA1 = "رد" Then N3 = BA5 - N2 BA19 = N3 Forms![ShowNew1]![BA19] = N3 Forms![ShowNew1]![N2] = N3 DoCmd.RunCommand acCmdSaveRecord Application.SetOption "Confirm Record Changes", True MsgBox "تم الحفظ بنجاح" ElseIf IsNull(BA1) Or IsNull(BA3) Or IsNull(BA17) Or IsNull(BA22) Or IsNull(BA21) Then MsgBox "أكمل البيانات الاساسية قالناقصة ايمة التسوية - رقم الخطاب - تاريخ الاصدار - تاريخ السريان" End If End If إذا لم يعمل معك التعديل ارفق مثالك هنا حتى نستطيع مساعدتك بالتوفيق -
وعليكم السلام ورحمة الله وبركاته أخي الكريم لو بحثت قليلا لوجدت الكثير من المواضيع بخصوص طلبك مثلا هذا الموضوع للاستاذ موسى جزاه الله خيرا . ولو ارفقت ملفك لوجدت تفاعل كبير من اخوانك. تحياتي لك وبالتوفيق
-
وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم عمل استعلام لمعرفة المكرر وهذا ملفك بعد الاضافة بالتوفيق Database2.accdb
-
طلب مساعده في ( طباعه اخر تحصيل علمي )
سامي الحداد replied to imad2024's topic in قسم الأكسيس Access
هذا هو الكود المطبق اخي الكريم @حسان12 لو ارفقت ملفك والمشكلة في موضوع مستقل لوجدت تفاعلا من اخوانك بالتوفيق -
طلب مساعده في ( طباعه اخر تحصيل علمي )
سامي الحداد replied to imad2024's topic in قسم الأكسيس Access
تفضل اخي الكريم هذا الكود بالنسبة للنقطة الثالثة. Private Sub المؤهل_العلمي_AfterUpdate() Dim MainForm As Form Set MainForm = Forms("الاسم") If Nz(MainForm!الاسم.Value, "") = "" Then MsgBox "يرجى ملىء حقل الاسم في النموذج الرئيسي قبل إضافة قيمة في مربع المؤهل العلمي", vbInformation, "تنبيه" Me.المؤهل_العلمي.Undo MainForm!الاسم.SetFocus End If End Sub اما بالنسبة للنقطة الرابعة الاستعلام رقم 1 موجود لديك وهو يلبي طلبك ولديك ايضا الفورم ومصدره هو الاستعلام رقم1 فقط ضعه في القورم الرئيسي وسيؤدي المطلوب بالتوفيق -
اكسس تكرموا بمساعدتي في تفعيل نموذج البحث في الملف المرفق
سامي الحداد replied to faisal2n's topic in قسم الأكسيس Access
وعليكم السلام ورحمة الله وبركاته بالاصافة لما تفضل به الاستاذ @اكرم العريقي اليك التعديل والتغير الشامل على نموذج البحث عملت لك مربعين نص للبحث مع إضافة مربعات للاختيار لكل الحقول او إختيار الحقل المراد البحث فيه فقط جرب الملف ووافنا بالنتيجة. بالتوفيق قاعدة البيانات مع محرك البحث-2.accdb- 3 replies
-
- قوائم منسدلة فلترة
- access
-
(و1 أكثر)
موسوم بكلمه :
-
سؤال سؤال : احضار بيانات من مربع سرد متعدد
سامي الحداد replied to ابو جودي's topic in قسم الأكسيس Access
أخي واستاذي الحبيب ابو جودي الورد نحن تلاميذكم وسنبقى تلاميذ هذا المنتدى المبارك بفضل من الله ومنكم استاذتي الكرام يشهد الله إنني تعلمت الكثير منك ومن باقي الأستاذة جميعا أنتم من أنار لنا هذا الطريق بفضل الله وعلمكم الذي لم تبخلوا به علينا. دمتم في رعاية الله وحفظه. -
سؤال سؤال : احضار بيانات من مربع سرد متعدد
سامي الحداد replied to ابو جودي's topic in قسم الأكسيس Access
وعليكم السلام ورحمة الله تعالى وبركاته استاذي الكريم @ابو جودي هل هو المطلوب ؟ Get Value Combo Box Multi Select.accdb -
-
وهذا تعديل اخر مثل ما طلبت في الصورة بالتوفيق الكنترول المدرسى.mdb
-
اعتذر اخي الكريم لقد وضعت مثالا غير صحيح اليك الملف الكنترول المدرسى.mdb
-
تفضل اخي الكريم هل هو المطلوب الكنترول المدرسى.mdb
-
أخي الكريم من الخطاء جعل حقل رقم الموظف ترقيم تلقائي لانك ستواجه مشاكل كثيرة في ال TempVars من خلال ال Dlookup. اليك هذا التعديل في اكواد المودولات Emp_Var و Module2 ' Emp_Var Module Option Compare Database Option Explicit Public Sub EmpNameVar() Dim EmpNameTemp As Variant If Not IsNull([TempVars]![EmpIdTemp]) And [TempVars]![EmpIdTemp] <> "" Then Dim empId As Long empId = CLng([TempVars]![EmpIdTemp]) EmpNameTemp = DLookup("[emp_name]", "[tblName]", "[emp_code]=" & empId) TempVars.Add "EmpNameTemp", EmpNameTemp End If End Sub Public Function Totalcountt() As Integer Dim x As Integer x = DCount("[emp_code]", "tblName", "[job_Status]=1") Totalcountt = x End Function ' Module2 Option Compare Database Option Explicit Function TotalVac() Dim db As DAO.Database Dim rs As DAO.Recordset Dim rs1 As DAO.Recordset Dim rs2 As DAO.Recordset Dim CountRecord As Integer Dim i, s As Integer Set db = CurrentDb If Not IsNull([TempVars]![EmpIdTemp]) Then Dim empId As String empId = "'" & CStr([TempVars]![EmpIdTemp]) & "'" Set rs = db.OpenRecordset("SELECT * FROM tblVacation WHERE (((tblVacation.EmpCode) = " & empId & " AND (tblVacation.VacationLife) = 'سارية')) ORDER BY vacationstartdate Asc;") Set rs1 = db.OpenRecordset("SELECT * FROM tblVacation WHERE (((tblVacation.EmpCode) = " & empId & " AND (tblVacation.VacationLife) = 'سارية')) ORDER BY vacationstartdate Asc;") On Error Resume Next db.TableDefs.Delete "vac" On Error GoTo 0 Dim strSQL As String strSQL = "SELECT * INTO vac FROM tblVacation " & _ "WHERE (((tblVacation.EmpCode) = " & empId & " AND (tblVacation.VacationLife) = 'سارية')) " & _ "ORDER BY vacationstartdate ASC;" db.Execute strSQL rs.Close Set rs = Nothing rs1.Close Set rs1 = Nothing Else ' (يمكنك إظهار رسالة أو تنفيذ أي إجراء آخر حسب الحاجة) End If Set db = Nothing End Function تأخرت عليك بالرد لان الوقت عندي متقدم بستة ساعات عن وقت الدول العربية. بالتوفيق الكل.rar