jjafferr

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

السلام عليكم 🙂 الموضوع كان معقد اكثر مما كنت اعتقد ، وبدأت من جديد اكثر من مرة !! ولكنها خزية تضاف الى شيء اسمه تجربه 🙂 اساس العمل هو استعلام 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 🙂 الآن وقد حصلت على الاجابة والحمدلله 🙂 رجاء تجربة المرفق الذي ارسلته لك ، لأنه فنيا يجب ان يعمل ، واذا ما عمل ، فمعناه ان الاكسس فيه مشكلة !! جعفر

او اذا كان هذا قصدك: بالزر اليمين على الجدول ، ثم تختار تحويله الى جدول محلي ، بس لازم تعمله لكل جدول على حده ، جعفر

شكرا 🙂

السلام عليكم 🙂 اخي وائل ، رجاء الالتزام بقوانين المنتدى ، وذلك بوضع سؤال واحد لكل موضوع ، واخونا essam rabea قد رد على سؤالك ، فيُعتبر هذا الموضع قد انتهى ، فرجاء فتح موضوع جديد لسؤالك الجديد ، وارفق الرابط هنا ، حتى يستطيع اخونا essam rabea من متابعة الموضوع الجديد. وشكرا لأخي essam rabea لإتباعه قوانين المنتدى ايضا 🙂 جعفر

المفروض ان الماكرو المضمن يكون فيه الاختيار المطلوب 🙂 اما الطريقة اللي اخبرتك عنها في اعلاه ، فستغير اعدادات الاكسس عندك وتُبقيه بهذه الطريقة ، ولا انصحك بإتباعها 🙂 اذا تحب ، ارفق هذه الجزئية من برنامجك ، او صورة الماكرو ، ونشوف مكان الاعداات المطلوبة 🙂 جعفر

تفضل المرفق 🙂 1041.Database1.accdb.zip

اخي حسنين 🙂 بدل ان تكتب If isnull(Me.Pname) = false or Me.Pname = "" Then يمكنك استبدالهما بهذا السطر If Len(Me.Pname & "") = 0 Then جعفر

وانا الآن قمت بنسخ الكود ، وكله تمام !! يعني المؤشر لا ينتقل لحقل آخر ، اذا كان الحقل فارغ (طبعا اذا كتبت نقطة او مسافة ، فلا يُعتبر الحقل فارغ ، وهنا يجب ان تغير اعدادات الحقل حتى يلتزم بالبيانات اللي في القائمة فقط). جعفر

وعليكم السلام 🙂 في الحدث "قبل التحديث" للحقل pname تأكد من وجود قيمة ، هكذا مثلا: if len(me.pname & "")=0 then 'لا توجد قيمة في الحقل ، اذن لابد من اشعار المستخدم msgbox "الحقل فارغ، رجاء ادخال قيمة فيه" cancel=true exit sub end if جعفر

وعليكم السلام 🙂 الحل في هذه الاختيارات: جعفر

السلام عليكم 🙂 وندوز 10 ، ويا ريت تسمع اسمك يا دكتور حلبي ، حتجنن لما تسمع الست تقوله 🙂 جعفر