Radwan0

السلام عليكم اخواني الكرام استعمل الكود التالي لمنع التكرار Private Sub strStudentNumber_BeforeUpdate(Cancel As Integer) '********************************* 'Code sample courtesy of srfreeman '********************************* Dim SID As String Dim stLinkCriteria As String Dim rsc As DAO.Recordset Set rsc = Me.RecordsetClone SID = Me.strStudentNumber.Value stLinkCriteria = "[strStudentNumber]=" & "'" & SID & "'" 'Check StudentDetails table for duplicate StudentNumber If DCount("strStudentNumber", "tblStudentDetails", _ stLinkCriteria) > 0 Then 'Undo duplicate entry Me.Undo 'Message box warning of duplication MsgBox "Warning Student Number " _ & SID & " has already been entered." _ & vbCr & vbCr & "You will now been taken to the record.", _ vbInformation, "Duplicate Information" 'Go to record of original Student Number rsc.FindFirst stLinkCriteria Me.Bookmark = rsc.Bookmark End If Set rsc = Nothing End Sub حصلت معي مشكلتين : 1) عند ادخال قيمة مكرره صحيح انه لا يحفظ البيانات لكن المشكلة انه يقوم بحفظ الترقيم التلقائي لنفرض الان انا موجود عند الطالب رقمه 500 , عند ادخال قيمة مكررة لا يحفظ البيانات لكن عند الدخول مرة اخرى وتسجيل طالب اخر فان الترقيم التلقائي يصبح 502 وليس 501 2) عند ادخال قيمة مكررة فان الكود يقوم بأخذي الى السجل الذي يحتوي على القيمة المكررة كيف بالامكان ان يقوم بفتح نموذج frmstudent وان ياخذني الى القيمة ذاتها اسف على الاطالة

السلام عليكم ورحمة الله تعالى هل من حل للمشكله هنا اخوتي

جزاك الله كل الخير اخي ابو خليل هل بالامكان تطبيق الطريقتين ؟ رح غلبك اعانك الله 🙏

السلام عليكم ورحمة الله اخواني احتاج مساعدتكم في اظهار الزبائن الذي يصادف تاريخ ميلادهم في فتره اسبوع من اليوم لنفرض تاريخ اليوم هو 28/03/2023 فيظهر لي كل الزبائن الذين اعياد ميلادهم يصادف بين التاريخ 26/03/2023 - 31/03/2023 مشكلتي هي ان الزبائن الذين اعياد ميلادهم تصادف على سبيل المثال في 26/03/1992 لا يظهر في التقرير فكيف بالامكان جعل التاريخ 26/03/2023 - 31/03/2023 لكن يظهر كل من ولد بين 26/3-31/3 Database1.accdb

للرفع

السلام عليكم اخواني قمت بالبحث في الانترنت عن برنامج يقوم بتصميم dashboard للمعطيات وتصميم تقارير ورسوم بيانيه وقمت بايجاد البرنامج التالي https://www.opengatesw.net/eval/Download-Dashboard-Builder.htm حسب الصور والفيديو يبدو انه برنامج جميل للتصميم ما احتاجه لكن عند استيراد قاعدة بياناتي والطلب في بناء تقرير لحقل معين من جدول القاعده حصلت على الخطا التالي المرفق

..

اخواني هل من مغيث جربت اغير الاسماء من الانجليزي للعربي لكن ما نفعت معي ارجو مساعدتكم

@kanory الف شكر لك اخي الكريم فعلا هذا المطلوب @محمد احمد لطفىشكرا لك اخي العزيز على المساعده ايضا

@kanory اخي العزيز حصلت على الخطأ التالي

@kkhalifa1960 @kanory بارك بكما الرحمن تعالى على مجهودكم في مساعدتي اخوتي مرفق لكم مثال من قاعدة بيانات عند الدخول الى نموذج EXCEl والضغط على زر التصدير الى اكسل قمت باستخدام هذا الكود Private Sub Excel_Click() On Error Resume Next 'DoCmd.OutputTo acOutputTable, "Contacts", acViewPreview DoCmd.SetWarnings False ' EXPORT_TO_EXCEL_01 DoCmd.RunSQL "SELECT [Last Name],[First Name],[E-mail Address] INTO Access IN'" _ & CurrentProject.Path & "\bb'[Excel 12.0 XML;HDR=yes;] FROM qyrcustomer" MsgBox "O.k" On Error GoTo 1 Application.FollowHyperlink CurrentProject.Path 1: DoCmd.SetWarnings True End Sub اللى محتاجه هو كيف بالامكان جعل ورقة الاكسل تبدأ من اليمين الى اليسار اختيار نوع الخط اختيار حجم الخط وايضا تنسيق التباعد بين الاعمدة Database1.accdb

هذا اخي

للرفع

للرفع

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

هو المطلوب اخي الكريم جزاك الله كل خير فضلا وليس امرا .. كيف بالامكان التصدير الى ملف Xlsx وليس xls سؤال ثاني كيف اجعل الملف ياخذ الاتجاه من اليمين الى اليسار وليس العكس وكيف بالامكان اختيار نوع الخط

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

السلام عليكم اخواني عندي الاستعلام qyrcustomer وبه الاعمدة name,date,id,age,phone اريد عند الضغط على زر ارسالA يقوم بتصدير الى ملف اكسل وبه الاعمده name,date,phone وعند الضغط على زر ارسالB يقوم بالتصدير الى ملف اكسل وبه الاعمده name,id,age

السلام عليكم هل بالامكان عند الضغط على email report as an attachment ان يختار لي تلقائيا صيغه الملف pdf ويقوم بفتح الاوتلوك بنفس الوقت ؟

وهو المطلوب باركك الرحمن تعالى

شكرا جزيلا اخي العزيز بالنسبه لنوع الخط واتجاه النص الكود صحيح بقيت مشكلة حقل البريد فارغ يظهر لي الخطا invalid use of null

السلام عليكم اخواني في نموذج tbl عند الضغط مرتين على حقل البريد فانه يقوم بفتح برنامج الاوتلوك الى الان الكود يعمل بشكل سليم لكن حصلت عندي مشكلتين 1) في حال كان حقل الايميل فارغ تظهر لي رسالة خطأ . كيف بالامكان اظهار رسالة تفيد بانه يجب ادخال بريد الكتروني او لا الكود لا يستجيب بفتح الماكرو او الاوتلوك 2) كيف بالامكان جعل نوع الخط ثابت والرسالة تبدا من اليمين وليس من الشمال Option Compare Database Private Sub mail_DblClick(Cancel As Integer) Dim Msg As String Msg = " hey " & namecus & "<p>" Dim O As Outlook.Application Dim M As Outlook.MailItem Set O = New Outlook.Application Set M = O.CreateItem(olMailItem) With M .BodyFormat = olFormatHTML .HTMLBody = Msg '.Body = txt - if you see olformatplain .To = mail '.CC="khate9191@gmail.com;khateb91@outlook.com" '.BCC="hateeb991@gmail.com" .Subject = " new mail " & Now() .Display '.send End With Set M = Nothing Set O = Nothing End Sub Database1.accdb

اشكرك اخي الكريم لكن احتاج تعديل على البرنامج اللي ارفقته

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

اطلب مساعدتكم