jjafferr

قصدك بطريقتي في تفكيك اسطر الكود وتبسيطها الى اسطر ، لأن الكود هذا مو خط يدي 🙂 الجزء الاول من كودك ناقص ، وبعد التعديل ، ويجب ان يكون هكذا: Private Sub CreatAdmin() mySQL = "INSERT INTO tbllvlUsers" mySQL = mySQL & "( UserID," '1 UserID mySQL = mySQL & "lvlGroupID," '2 GroupID mySQL = mySQL & "UName," '3 UserName mySQL = mySQL & "Password," '4 Password mySQL = mySQL & "Fname," '5 FullName mySQL = mySQL & "lvlQ ," '6 Questions mySQL = mySQL & "lvlAnsr," '7 Answers mySQL = mySQL & "Umail )" '8 EmailUsers 'Debug.Print mySQL mySQL = mySQL & " SELECT " mySQL = mySQL & " '1' AS UserID," '1 UserID mySQL = mySQL & " '2' AS lvlGroupID," '2 GroupID mySQL = mySQL & " Encrypt(KeyEnde(),'admin') AS UName," '3 UserName mySQL = mySQL & " Encrypt(KeyEnde(),'admin') AS Password," '4 Password mySQL = mySQL & " Encrypt(KeyEnde(),'admin') AS Fname," '5 FullName mySQL = mySQL & " Encrypt(KeyEnde(),'admin') AS lvlQ," '6 Questions mySQL = mySQL & " Encrypt(KeyEnde(),'admin') AS lvlAnsr," '7 Answers mySQL = mySQL & " Encrypt(KeyEnde(),'admin@admin.com') AS Umail;" '8 EmailUsers 'Debug.Print mySQL DoCmd.SetWarnings False DoCmd.RunSQL mySQL DoCmd.SetWarnings True MsgBox "تم إنشاء المستخدم المسئول عن قاعدة البيانات" & vbCrLf & _ "اسم المستخدم هو : (admin)" & vbCrLf & _ "كلمة المرور هى : (admin)", _ vbOKOnly, _ "تبيـــه هــــام" End Sub جعفر

وعليكم السلام 🙂 ايه يا شيخ ، مالو جعفر 🙂 جعفر

هذه طريقة الخبراء 🙂 جعفر

وعليكم السلام 🙂 اذا اردنا ان نعرف الطلبة اللي مأخذين مادة معينة (رقم المادة) ، فنقدر نعمل استعلامين (او استعلام وجدول) ، ونربطهم بحقل المادة ، فيظهر جميع اسماء الطلبة المأخذين هذه المادة ، ووحتى اذا اردنا ان نعرف الطلبة اللي لديهم نفس المادة (رقم المادة) ، والحاصلين على نفس [النتيجة] ، وعندهم نفس [الصفة] ، فكذلك نربط الاستعلامين (او استعلام وجدول) ، بهذه الحقول ، ويظهر لنا اسماء الطلبة ، ولكن ، كل طالب في سجل مختلف ، وقد يكون الطالب اخذ مادة فقط ، وآخر اخذ جميع المواد ، ولكنك لا تريد هذا كله ، فانت واقعا تريد حقل واحد فيه معلومة الطالب هكذا : [رقم المادة] و [النتيجة] و [الصفة] ، ومن ثم تريد ان تعرف جميع الطلبة الذين يحملون نفس هذه المعلومة ، بالإضافة الى هذا ، فانت لا تريد هذا الحقل لكل [رقم المادة] ، وانما تريد ان تجمع جميع [رقم المادة] و [النتيجة] و [الصفة] لكل المواد اللي اخذها ، يعني تحول السجلات الى سجل واحد ، وتجمع بيانات هذه الحقول مع بعض ، ومن ثم تريد تعمل مقارنة بين نتائج الطلبة ، وتعرف هؤلاء الطلبة المتحدين في هذه البيانات كامله والطريقة اللي عملتها ، هي عمل كود في وحدة نمطية ، نرسل لها بيانات الطالب من الاستعلام qry_ALL_Student والذي مصدر بياناته الاستعلام qry_ALL ، مسلسلة ومفروزة حسب [رقم المادة] و [النتيجة] و [الصفة] ، وتقوم الوحدة النمطية بجمعها ، ثم ارسالها مرة اخرى الى حقل في الاستعلام: السجل السابق = السجل الحالي & "_" & rst![رقم المادة] & "-" & rst![النتيجة] & "-" & rst![الصفة] . وعلى هذا الاساس ، يكون هذا الاستعلام فيه اسم الطالب ، وهذا الحقل ، وهنا نربط هذا الاستعلام ببقية الجداول للحصول على اسم الطالب وووو في استعلام اخير qry_Results ، ونطلب منه عدم تكرار الاسم وعدم إظهار الاسم الذي نبحث عنه ، وهو مصدر بيانات النموذج الفرعي 🙂 جعفر

🙂

وعليكم السلام 🙂 حياك الله 🙂 الموضوع ممكن يُثبت ، ولكن لفترة !! طيب ، لوسمحت تعمل لنا هذه الخدمة: اضف مشاركة هنا ، تشرح فيها سؤالك من جديد ، وبدقة ، وبالكلمات المناسبة ، وانا سوف اضيفها الى سؤالك الاصل ، وبهذه الطريقة ، لما احد الاعضاء يقوم بالبحث عن مثل موضوعك ، يستطيع الوصول اليه بسبب كلماتك وشرحك 🙂 جعفر

وعليكم السلام 🙂 العلاقات عندك تمام ، ولكن عندك كود حقل type النموذج الفرعي "بعد التحديث" كان محتاج تعديل 🙂 جعفر Database1.zip

وعليكم السلام 🙂 بوضعك مجموعة طلبات ، فانت تقلص من فرصة حصولك على اجابة تامه ، بالاضافة الى انه مخالف لقوانين المنتدى ، فنصيحتي لك بأن تعمل موضوع جديد للجزء الاول ، وثم موضوع آخر لكل جزء ، مع مراعاة ان يكون اسم الموضوع دال على محتوى السؤال 🙂 يعني لبكرة ان شاء الله تكون قد عملت المواضيع الجديدة ، ونُغلق هذا الموضوع 🙂 جعفر

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

وعليكم السلام اخوي محمد 🙂 شايف عندك هذه المواضيع ، واللي ظاهرا نفس هذا الموضوع ، وبعد ان اعطيتك جوابي ، واذا بك تغير النموذج !! وواصل معاك اخوي @أبو إبراهيم الغامدي : . فليش ما تتواصل معاه في الموضع اعلاه ، كونه قطع معاك مشوار فيه 🙂 جعفر

السلام عليكم 🙂 هل مشى معاك الحال ابو عبدالله ؟ جعفر

السلام عليكم 🙂 الموضوع كان معقد اكثر مما كنت اعتقد ، وبدأت من جديد اكثر من مرة !! ولكنها خزية تضاف الى شيء اسمه تجربه 🙂 اساس العمل هو استعلام Crosstab ، سهل عمله ، ونتائجه مقبولة 🙂 . . . ولكن لأنك اصررت انك تريد طريقة الجدول ، فأكملنا المشوار من هنا ، بالاستفادة من هذا الاستعلام ، وتحويله الى استعلام إلحاقي ، ليلحق البيانات في الجدول Co_to_Row : . جعلت جميع اسماء الحقول بنفس الطريقة ، والاهم ، اني اضفت حقل الرقم التلقائي: . وتكون البيانات هكذا: . ثم يأتي دور هذا الزر الكبير ، ليقوم بتشغيل الوحدة النمطية ، والتي ستقوم بتعديل البيانات في الجدول . وهذه هي الوحدة النمطية اللتي تقوم بالعمل ، وحاولت ان اجزئها ، واضع الشرح فيها : Public Function ReArrang() '1 Dim rstS As DAO.Recordset Dim rstD As DAO.Recordset Dim RCs As Integer Dim i As Integer Dim N As Integer Dim Co As String Dim jo As String Dim arr_Co() As String Dim arr_jo() As String '2 'append the New data to the Table Co_to_Row DoCmd.SetWarnings False DoCmd.OpenQuery "qry_Append_Co_to_Row" DoCmd.SetWarnings True '3 'we have 8 Areas For N = 1 To 8 '4 'make the field names, based on the loop value Co = "Co" & N jo = "jo" & N '5 'get each set (fields CoX and joX) values Set rstS = CurrentDb.OpenRecordset("Select * From Co_to_Row Where " & Co & " IS NOT NULL") rstS.MoveLast: rstS.MoveFirst: RCs = rstS.RecordCount '6 ReDim arr_Co(RCs) ReDim arr_jo(RCs) '7 'fill the array For i = 1 To RCs '8 arr_Co(i) = rstS(Co) 'Co values arr_jo(i) = rstS(jo) 'jo values '9 'Remove this value from the previous Records rstS.Edit rstS(Co) = "" rstS(jo) = "" rstS.Update '10 rstS.MoveNext Next i '11 Set rstD = CurrentDb.OpenRecordset("Select * From Co_to_Row Order By Auto_ID") '12 For i = 1 To RCs '13 'add this value to fill all Records rstD.Edit rstD(Co) = arr_Co(i) rstD(jo) = arr_jo(i) rstD.Update rstD.MoveNext Next i Next N '14 'Delete the Empty Records DoCmd.OpenQuery "qry_Delete_Empty_Records" '15 rstS.Close: Set rstS = Nothing rstD.Close: Set rstD = Nothing MsgBox "Done" End Function . وهذا استعلام حذف السجلات الفارغة: . والنتيجة النهائية للجدول: . جعفر 1045.col_to_raw.mdb.zip

فنحن في سلطنة عُمان نستخدمها كذلك 🙂 جعفر

يا رجال ، الظاهر شوقك لسماع اسمك كان شديد 🙂 ولأن السبب كان شديد ، فمحاولاتك كانت اشد 🙂 حياك الله ، وشكرا للباش مهندس/محمد عصام/اباجودي 🙂 جعفر

لو سمحت تعاود التجربة ، بس الرقم 3 اصبح: https://translate.google.com/#view=home&op=translate&sl=ar&tl=en&text= واذا اشتغل ، استعمل هذا الكود في النموذج بدل الكود الموجود عندك: '.Navigate "https://translate.google.com.eg/?hl=ar&tab=rT#view=home&op=translate&sl=ar&tl=en&text=" & ss .Navigate "https://translate.google.com/#view=home&op=translate&sl=ar&tl=en&text=" & ss جعفر

هذا لا علاقة له بالتنسيق ، وانما هذا فرز لقيمة الحقل ، وهناك 3 طرق لعملها ، وتسلسلهم بالافضلية: 1. في الاستعلام مصدر بيانات النموذج ، اعمل الفرز على هذا الحقل ، واذا كان مصدر بيانات نموذجك الجدول مباشرة ، فيُنصح ان تجعله استعلام ، لمثل هذه الحالات مثلا ، 2. افتح النموذج لعرض البيانات (وليس بوضع التعديل) ، ثم انقر بالفأرة اليمين على هذا الحقل ، ثم اختار A to Z ، 3. على حدث "عند تحميل" النموذج ، اكتب التالي: Private Sub Form_Load() Me.OrderBy = Me.id_name Me.OrderByOn = True End Sub جعفر

يا سلام ، يعني كان مني فائدة ، وعرفنا وين المشكلة 🙂 جعفر

السلام عليكم اخي حلبي 🙂 خلينا نأخذ الخطوات التالية ، ورجاء تأكيد كل خطوة: 1. شغّل اي شيء فيه صوت في الكمبيوتر ، حتى تتأكد ان سماعات الكمبيوتر شغاله ، 2. افتح متصفح الانترنت internet explorer ، 3. ادخل في الموقع (انسخ العنوان الى عنوان المتصفح ، ولا تنقر عليه هنا) https://translate.google.com.eg/?hl=ar&tab=rT#view=home&op=translate&sl=ar&tl=en&text= 4. في الجانب اليمين الصق اي نص تريد (ولكن النص المُفضل هو ما كتبه الباشمهندس محمد 🙂 ) . 5. انقر على السماعة ، واسمع الصوت. واخبرنا النتيجة لوسمحت 🙂 جعفر

وعليكم السلام 🙂 يجب ان يكون نموذجك مرتبط مع الجدول Numbers ، وعليه تربطين حقل النموذج txtMessage مع حقل الجدول smsText ، هذه اسهل الطرق ، واللي على اساسها تقدرين تنتقلين من سجل الى آخر 🙂 ورجاء النظر في هذا الرابط ، لأنه يقوم بنفس العمل الذي تنوين عمله جعفر

وعليكم السلام اخي حسنين 🙂 شكرا على هذه المشاركة 🙂 ولكن هل جربت امر التصدير الى الاكسل عن طريق VBA ، وبنفس اعدادات الماكرو ؟ جعفر

اذهب الى ملف FE ، ثم اعمل اللي اخبرتك عنه ، فسيتم تحويل جداولك المربوطة الى جداول محلية 🙂 جعفر

وهنا الحل: https://helpx.adobe.com/acrobat/using/display-pdf-in-browser.html وهنا الحل ، في كيفية التحكم بالواجهة ، والصفحة والتكبير ووو : https://www.adobe.com/content/dam/acom/en/devnet/acrobat/pdfs/pdf_open_parameters.pdf وعلى اساسه ، يصبح الكود: Private Sub List1_Click() 'تحديد مسار الملف StrFileParh = CurrentProject.Path & "\booksindex\" ' الانتقال إلى الصفحة المطلوبة Dim lngPageNo As Long lngPageNo = CLng(Mid(List1.Column(2), 1, 3)) web.Navigate StrFileParh & Me.List1 & ".pdf" & "#page=" & lngPageNo web.Visible = True End Sub 🙂 جعفر

انا اشتغل على اكسس 2010 ، فما في مشكلة 🙂 جرب هذا الملف ، فيه المكتبات المطلوبة فقط ، ولكن لما تنقر على زر "اضغط للقراءة" فيجب ان ترى ان البرنامج قام بتشغيل IE = Internet Explorer . وبعض الاوقات وبسبب سرعة الانترنت ، قد تحتاج تنتظر فترة اطول لسماع الكلام 🙂 جعفر 1043.TTS.mdb.zip

🙂

اخي jo 🙂 الآن وقد حصلت على الاجابة والحمدلله 🙂 رجاء تجربة المرفق الذي ارسلته لك ، لأنه فنيا يجب ان يعمل ، واذا ما عمل ، فمعناه ان الاكسس فيه مشكلة !! جعفر