ابو ياسين المشولي

لوبحثت عن الكود لوجدته بنفس النموذج Sub SendGMail() Dim Msg As String On Error GoTo ErrHandler: ' Object creation Set objmsg = CreateObject("CDO.Message") Set msgConf = CreateObject("CDO.Configuration") ' Server Configuration msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = [mail] msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = [Texte6] msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 msgConf.Fields.Update ' Email objmsg.To = [Texte1] objmsg.From = [mail] objmsg.Subject = [Texte3] objmsg.HTMLBody = [Texte4] objmsg.Sender = [mail] objmsg.AddAttachment [Texte5] Set objmsg.Configuration = msgConf ' Send objmsg.Send ' Clear Set objmsg = Nothing Set msgConf = Nothing Exit Sub ErrHandler: If Err.Number = -2147220975 Then MsgBox "تأكد من البريد الالكتروني و كلمة المرور الخاصه بك", vbCritical + vbOKOnly + vbMsgBoxRight, "خطأ في الارسال" Else If Err.Number = -2147220973 Then MsgBox "تأكد من الإتصال بالإنترنت", vbCritical + vbOKOnly + vbMsgBoxRight, "خطأ في الاتصال" Else If Err.Number = -2147220980 Or Err.Number = -2147220977 Then ErrList.AddItem Texte1, ErrList.ListCount ErrList.Requery Resume Next Else If Err.Number <> 0 Then MsgBox Err.Description & vbNewLine & Err.Number, vbCritical + vbOKOnly + vbMsgBoxRight, "رسالة خطأ" Resume Next End If End If End If End If End Sub

بارك الله فيك اخي عربي

جرب هذا =([نص13]-[نص9])/[نص13]*100

العفو اخي jo_2010

اضف هذا في كود التحليل If Me.TTT = 12 Then MsgBox " فـضـلاً أدخـل العمر ", vbExclamation, "تنبيه" & " : خـطـاء " Me.AGE.SetFocus Else وعندالخروج في حقل السن ضع هذا If IsNull(AGE) And Me.TTT = 12 Then MsgBox " فـضـلاً أدخـل العمر ", vbExclamation, "تنبيه" & " : خـطـاء " Cancel = True Me.AGE.SetFocus End If Database1 (7).rar

من فهمي للسوالك انك تريد هذا في حدث بعد اختيار الدرجه Me.ttdf = Nz(DLookup("[martaba]", "salam", "[martaba] = [k1]")) Me.ttdf = Me.k1 If Me.k1 = "الأولى" Then Me.k2 = 1 Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]")) ElseIf Me.k1 = "الثانية" Then Me.k2 = 2 'Me.k2 = Nz(DMax("[2]", "salam", "[martaba] = [k1]")) Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]")) ElseIf Me.k1 = "الثالثة" Then Me.k2 = 3 Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]")) ElseIf Me.k1 = "الرابعة" Then Me.k2 = 4 Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]")) ElseIf Me.k1 = "الخامسة" Then Me.k2 = 5 Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]")) ElseIf Me.k1 = "السادسة" Then Me.k2 = 6 Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]")) ElseIf Me.k1 = "السابعة" Then Me.k2 = 7 Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]")) ElseIf Me.k1 = "الثامنة" Then Me.k2 = 8 Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]")) ElseIf Me.k1 = "التاسعة" Then Me.k2 = 9 Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]")) ElseIf Me.k1 = "العاشرة" Then Me.k2 = 10 Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]")) ElseIf Me.k1 = "الحادية عشر" Then Me.k2 = 11 Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]")) ElseIf Me.k1 = "الثانية عشر " Then Me.k2 = 12 Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]")) ElseIf Me.k1 = "الثالثة عشر " Then Me.k2 = 13 Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]")) ElseIf Me.k1 = "الرابعة عشر " Then Me.k2 = 14 Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]")) ElseIf Me.k1 = "الخامسة عشر " Then Me.k2 = 15 Me.k3 = Nz(DLookup("[1]", "salam", "[martaba] = [k1]")) End If

تسلم اخي رمهان

اعمل حقل غير منظم واجعله مخفي واجعل اسمه ttdf

شوف المرفق Update22-3.accdb

هل هذا ينفع SELECT Information.ID, Information.Name, Information.[Date of commencement of work], Nz(DLookUp("[Skills]","[Skills]","[ID]=" & [ID])) AS Skills FROM Information;

كل هذا ولا يوجد تغير اكتب في المرتبه الثالثة او الرابعة او الخامسة وبعدها رد هل يوجد تغير او لا Me.ttdf = Nz(DLookup("[المرتبة]", "سلم الرواتب", "[المرتبة] = [k1]")) Me.ttdf = Me.k1 If Me.k1 = "الأولى" Then Me.k2 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]")) Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]")) ElseIf Me.k1 = "الثانية" Then Me.k2 = Nz(DLookup("[2]", "سلم الرواتب", "[المرتبة] = [k1]")) Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]")) ElseIf Me.k1 = "الثالثة" Then Me.k2 = Nz(DLookup("[3]", "سلم الرواتب", "[المرتبة] = [k1]")) Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]")) ElseIf Me.k1 = "الرابعة" Then Me.k2 = Nz(DLookup("[4]", "سلم الرواتب", "[المرتبة] = [k1]")) Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]")) ElseIf Me.k1 = "الخامسة" Then Me.k2 = Nz(DLookup("[5]", "سلم الرواتب", "[المرتبة] = [k1]")) Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]")) ElseIf Me.k1 = "السادسة" Then Me.k2 = Nz(DLookup("[6]", "سلم الرواتب", "[المرتبة] = [k1]")) Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]")) ElseIf Me.k1 = "السابعة" Then Me.k2 = Nz(DLookup("[7]", "سلم الرواتب", "[المرتبة] = [k1]")) Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]")) ElseIf Me.k1 = "الثامنة" Then Me.k2 = Nz(DLookup("[8]", "سلم الرواتب", "[المرتبة] = [k1]")) Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]")) ElseIf Me.k1 = "التاسعة" Then Me.k2 = Nz(DLookup("[9]", "سلم الرواتب", "[المرتبة] = [k1]")) Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]")) ElseIf Me.k1 = "العاشرة" Then Me.k2 = Nz(DLookup("[10]", "سلم الرواتب", "[المرتبة] = [k1]")) Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]")) ElseIf Me.k1 = "الحادية عشر" Then Me.k2 = Nz(DLookup("[11]", "سلم الرواتب", "[المرتبة] = [k1]")) Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]")) ElseIf Me.k1 = "الثانية عشر" Then Me.k2 = Nz(DLookup("[12]", "سلم الرواتب", "[المرتبة] = [k1]")) Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]")) ElseIf Me.k1 = "الثالثة عشر" Then Me.k2 = Nz(DLookup("[13]", "سلم الرواتب", "[المرتبة] = [k1]")) Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]")) ElseIf Me.k1 = "الرابعة عشر" Then Me.k2 = Nz(DLookup("[14]", "سلم الرواتب", "[المرتبة] = [k1]")) Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]")) ElseIf Me.k1 = "الخامسة عشر" Then Me.k2 = Nz(DLookup("[15]", "سلم الرواتب", "[المرتبة] = [k1]")) Me.k3 = Nz(DLookup("[1]", "سلم الرواتب", "[المرتبة] = [k1]")) End If لعل في تغير في اصدار الاوفيس حاول تنسخ الكود الى برنامجك وضعه في حدث بعد التحديث للمرتبة

ممكن ارفاق مثال

جرب + بدل &

اتفضل اختصرت لك الامر مجرد ما تكتب المرتبة الأولى الو الثانيه الى 15 يعطيك الدرجه مع الراتب الاساسي شوف المرفق ولا تنسني بدعوه بظهر الغيب سلم الرواتب.accdb

بارك الله فيك ابدعت

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

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

اتفضل Dim RepName As String Dim stDocName As String RepName = Me![رقم الفاتورة] stLinkCriteria = "[رقم الفاتورة]=" & Me![رقم الفاتورة] stDocName = "وصل بيع" DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, CurrentProject.Path & "\" & RepName & ".PDF", False DoCmd.Close acReport, "وصل بيع"

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

بالتوفيق اخي

اهلا بك اخي m_fouad0003 في المنتدى اتفضل Dim RepName As String RepName = Me![ ضع هنا رقم الفاتورة] DoCmd.OutputTo acOutputReport, "اسم التقرير ضعه هنا", acFormatPDF, CurrentProject.path & "\" & RepName & ".PDF", False

بصراحه ماعندي خلفيه بالاستبدال

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

Select Case Me!إطار102 Case 1 1 Case 2 2 Case 3 3 Case 4 4 Case Else End Select Me.Repaint If DCount("*", "الزبائن", "[customer]='" & Me.txtName & "'") > 0 And Me!إطار102 = False Then MsgBox "هذا الاسم موجود بالفعل", vbCritical, "التكرار ممنوع" Me.Undo Cancel = True End If شكلك مستعجل شوف هل هذا طلبك تقييم.accdb

ارفق مثال