سامي الحداد

الان, الحلبي said:

 

ايه رايك اكتبهم على الخاص 

 

اوكي 

13 دقائق مضت, الحلبي said:

نا غير متأكد من انى عملت حساب

ولا يهمك فقط اخبرني باي اسم نعمل حساب وكلمة المرور وسوف اعمل الباقي ان شاءالله

هل ثبتت برنامج ال Team Viewer وما هو الرقم وكلمة المرور 

ارسل لي الرقم ID وكلمة المرور 

ولا يهمك يا دكتور محمد ان شاءالله نتواصل ساقوم بتثبيت برنامج Team Viewer وانت كذلك يجب ان تثبت هذا البرنامج عندك. هذا اولا  وثانيا يجب ان يكون لديك حساب في الاوتلوك هل عملت الحساب؟

بانتظارك وساقوم بتثبيت برنامج التواصل الان. لا تنسى ان تعمل حساب في  الاوتلوك ضروري. 

3 دقائق مضت, الحلبي said:

حاجة جميلة جدا ـ ولكن للاسف لم استطيع الوصول لها

اين وصلت مع الاوتلوك هل عملت حساب ؟ فقط اعمل حساب حتى  نستطيع ربط الاوتولك والجي ميل لن تستغرق العملية اكثر من خمس دقائق بانتظارك 

بعثت لك على  الايميل المسجل في البرنامج هل وصلك ؟

ليه بس يا دكتور انا  معاك لا تعب ولا حاجه 

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

سوف ابعث لك من برنامجك ايميل خليك معاي 

4 دقائق مضت, الحلبي said:

وكيف افتح حساب فى الاوتلوك

https://www.microsoft.com/en-us/microsoft-365-life-hacks/organization/how-to-create-outlook-email-account

تفضل دكتور محمد

الان, سامي الحداد said:

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

3 دقائق مضت, الحلبي said:

ليس لى ايميل فى الاوت لوك

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

في الحقيقة لم استخدم الاوتلوك منذ زمن ولكن عندما رايت مشاركتك احببت ان اساعد بما استطيع. 

افتح حساب  في الاوتلوك  ونكمل ان شاءالله 

2 ساعات مضت, Foksh said:

لم تتم التجربة بنجاح ، هل يجب التسجيل أولا بـ Google Workspace ؟؟

نعم قم بتسجيل الايميل الخاص بك وهو ايميلك في الجوجل مع ادخال كلمة المرور واكمل العملية 

2 ساعات مضت, الحلبي said:

استاذى / سامى ماذا افعل فى هذه الجزئية

نعم دكتور محمد اكمل 

لي ملاحظة صغيره هل لديك ايميل في الاوتلوك؟ 

22 دقائق مضت, Foksh said:

لم تفلح المحاولة في ربط الـ Gmail مع برنامج الـ Outlook للأسف 

استاذي العزيز @Foksh هذه بعض الصور لقد نجحت في الارسال كما قلت سابقا.

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

ساذهب للبيت الان وان شاءالله اتابع معكم. 

اخي الكريم @rhmano

البرنامج فتح معي المشكلة في برامج الحماية هي من تمنع الوصول للبرنامج بعد ان وضعت اسم البرنامج في قائمة الامان في برنامج الحماية فتح البرنامج بدون اي مشكلة وهذه بعض الصور من برنامجك. ممكن في بعض برامج الحماية لا تظهر لك اي رسالة.

بالتوفيق

4 ساعات مضت, الحلبي said:

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

استاذي الدكتور محمد.

هل استخدمت هذا البرنامج لعمل المزامنة بين الاوتلوك والجي ميل  Google Workspace Migration for Microsoft Outlook

لانه فعلا لم استطيع الارسال من الجي ميل الا بعد ان ثبتت هذا البرنامج بينما الارسال من  الاوتلوك كان طبيعي بعد ان غيرت الكود كما اخبرتك سابقا. 

https://support.google.com/a/answer/176213?hl=en ومن  هنا البرنامج.

متابع معك 

بالتوفيق

وعليكم السلام  دكتور محمد

شوف التعديل على الكود ولان الوقت عندي الان الرابعة والنصف صباحا سوف اتواصل معك غدا بإذن الله .

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 

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 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

في 22‏/8‏/2023 at 06:14, حسان12 said:

لاسف الاستعلام المرسل الى الاخ الكريم لا يظهر الطريقة او الكود المطبق 

هذا هو الكود المطبق 

اخي الكريم @حسان12 لو ارفقت ملفك والمشكلة في موضوع مستقل لوجدت تفاعلا من اخوانك 

بالتوفيق

في 13‏/8‏/2023 at 00:28, imadimadimad said:

قي اذا امكن مساعدتي في النقطه الثالثه والرابعه

منع الكتابه في المؤهل العلمي للموظف قبل ادخال اسم الموظف

تفضل اخي الكريم هذا الكود بالنسبة للنقطة الثالثة.

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 فقط ضعه في القورم الرئيسي وسيؤدي المطلوب

بالتوفيق

وعليكم السلام ورحمة الله وبركاته

بالاصافة لما تفضل به الاستاذ @اكرم العريقي 

اليك التعديل والتغير الشامل على نموذج البحث عملت لك مربعين نص للبحث مع إضافة مربعات للاختيار لكل الحقول او إختيار الحقل المراد البحث فيه فقط جرب الملف ووافنا بالنتيجة.

بالتوفيق  

قاعدة البيانات مع محرك البحث-2.accdb

أخي واستاذي الحبيب ابو جودي الورد

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

يشهد الله إنني تعلمت الكثير منك ومن باقي الأستاذة جميعا أنتم من أنار لنا هذا الطريق بفضل الله وعلمكم الذي لم تبخلوا به علينا.

دمتم في رعاية الله وحفظه. 

وعليكم السلام ورحمة الله تعالى وبركاته

استاذي الكريم @ابو جودي

هل  هو المطلوب ؟

Get Value Combo Box Multi Select.accdb

تفضل اخي الكريم جرب الان هذا التعديل

الكنترول المدرسى.mdb

وهذا تعديل اخر مثل ما طلبت في الصورة 

بالتوفيق

الكنترول المدرسى.mdb