حركات التشكيل الفتحة التنوين ... الخ

[عبد الرحيم 1]

السلام عليكم
عندي في المكتبة الشاملة كتب فيها الكلمات مشكلة اريد حذف التشكيل ولكن الكتب كثيرة جدا علما ان المكتبة  تعمل على ملفات  نوع  mdb التي هي من ملفات الاكسس

المطلوب

1- هل برنامج الاكسس 2016 فيه بحث واستبدال في اكثر من ملف

2- او هل برنامج الاكسس 2016 فيه بحث واستبدال في اكثر من جدول لان المكتبة تستطيع ادخال اكثر من 1000 كتاب في ملف واحد والكتب تسمى في داخل هذا الملف جدول 1 جدول 2 ...   الخ

3- او هل يوجد برنامج بحث واستبدال في ملفات الاكسس

 

وشكرا

[biskra]

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

jتم التعديل بإضافة الكود المقترح من الأخ ناقل، و عليه هناك طريقتين للتحديث

إزالة التشكيل من الكلمات.rar

تم تعديل فبراير 21, 2021 بواسطه biskra

[ناقل]

مشاركة مع الاستاذ الفاضل ....

يمكن استخدام هذا الفانك وتستدعيه في الاستعلام

Public Function delTshkeel(tshkeel As String)
Dim i As Integer
Dim fld As String, wr As String, spa As String
wr = ""
fld = tshkeel
i = 1
Do While i <= Len(fld)
spa = Mid(fld, i, 1)
If Asc(spa) = 240 Or Asc(spa) = 241 Or Asc(spa) = 242 Or Asc(spa) = 243 Or Asc(spa) = 244 Or Asc(spa) = 245 Or Asc(spa) = 246 Or Asc(spa) = 247 Or Asc(spa) = 248 Or Asc(spa) = 249 Or Asc(spa) = 250 Then
Else
wr = wr & spa
End If
i = i + 1
Loop
delTshkeel = wr
End Function

وتسدعيه في الاستعلام هكذا ....

expr1: delTshkeel([text1])

 

[عبد الرحيم 1]

اخي العزيز biskra الملف الذي ارسلته كيف استخدمه
هل استورد له الكتب على شكل جداول ام كيف استخدمه في مسئلتي لو سمحت توضح لي اكثر

الاخ ناقل
أخي لو سمحت وضح لي اكثر كيف اضيف كتبي
 

[biskra]

المثال المرفق يعمل على بيانات داخل الأكسس، يجب أن توضح هل نص كتاب مثلا موجود في جدول أكسس أم أنها عناوين فقط،أم أنها ملفات وورد؟

[عبد الرحيم 1]

انظر للمرفق لكن افحصة قبل فتحة

ارشيف.mdb

[biskra]

لم أتمكن من فتح الملف الرجاء حفظه بصيغة  office 2013

[ابوخليل]

ارشيف2.mdb

[biskra]

تفضل بالملف بعد التعديل يرجي تعبئة حقول Nass في الجداول b4 b5 b6 ببيانات مشكلة و من ثم شغل الاستعلامات

ارشيف2.rar

[jjafferr]

السلام عليكم 🙂

 

ولو اني تأخرت عن الركب ، ولكن قد تكون مشاركتي مفيدة 🙂

 

المشكلة الموجودة في الكلمات العربية ، وفي بعض انواع الخط الخاصة (مثل خط القرآن الكريم) ، هو اننا لا نعرف ما هي التشكيلات الموجودة ، ولا رقمها ، وبمل اننا نتعامل مع اللغة العربية ، فللحصول على رقم الحرف/التشكيلة ان نستخدم AscW و ChrW (رجاء ملاحظة وجود W) ،

عليه ، عملت هذه الدالة لإستخراج جميع الحروف/التشكيلات الموجودة في حقل nass في الجداول b4 و b5 و b6 ، وحفظها في جدول خاص بها tbl_Tashkeela ، في حقل Tashkeela (لا يقبل التكرار) 🙂 

 

هذه هي الدالة:

Function Save_Tashkeela()
On Error GoTo err_Save_Tashkeela

    Dim rstTashkeela As DAO.Recordset
    Dim rstTables As DAO.Recordset
    Dim i As Integer, j As Integer
    
    Set rstTashkeela = CurrentDb.OpenRecordset("Select * From tbl_Tashkeela")
    
    For i = 4 To 6
    
        Set rstTables = CurrentDb.OpenRecordset("Select nass From b" & i)
        
        Do Until rstTables.EOF
        
            For j = 1 To Len(rstTables!nass)
                rstTashkeela.AddNew
                    rstTashkeela!Tashkeela = Mid(rstTables!nass, j, 1)
                    rstTashkeela!Tashkeela_ChrW = AscW(Mid(rstTables!nass, j, 1))
                rstTashkeela.Update
            Next j
            
            rstTables.MoveNext
        Loop
    
    Next i
    
Exit_Save_Tashkeela:

    rstTables.Close: Set rstTables = Nothing
    rstTashkeela.Close: Set rstTashkeela = Nothing
    
    MsgBox "Done"
    
    Exit Function
    
err_Save_Tashkeela:

    If Err.Number = 3022 Then
        'duplicate found
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Function

.

ولأننا سنستخدم هذه الدالة مرة واحدة (او حنى عدة مرات) ، فالاسهل لي ان اناديها من الكود هكذا (طبعا يمكن مناداتها من اي مكان (ولكن ليس من الاستعلام ، فمناداتها مرة واحد تكفي لتغطية جميع حروف الجداول ، بينما الاستعلام سياديها بعدد السجلات ، وهذا مضيعة للوقت ولا فائدة منه) ، ورجاء ملاحظة ان علامة الاستفهام هي باللغة الانجليزية 🙂

.

ونتيجة الجدول:

 

جعفر

1341.ارشيف2.mdb.zip

[biskra]

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

[jjafferr]

قصدك علامة الاستفهام اللي في النافذة تحت نافذة الكود ، صح 🙂

معناها قم بتنفيذ الامر/المعادلة التي تلي علامة الاستفهام ، وهي عملية يدوية وليست برمجية ، اي لا يمكن حفظها كجزء من الكود ، مثلا :

اذا اردت نتيجة ضرب 12 * 987456 ، فإذا كتبناها كما هي ، فلن يفهم الاكسس المقصود من الامر ، وتحصل على رسالة خطأ :

.

بينما لما نسبق هذه المعادلة بعلامة استفهام ، نحصل على النتيجة:

.

 

واما في مشاركتي السابقة ، فقمت بتنفيذ/تشغيل الدالة Save_Tashkeela ، بدل ان اعمل لها كود او زر خاص لتشغيلها :

3 ساعات مضت, jjafferr said:

Function Save_Tashkeela 
 

 

 

جعفر

[biskra]

شرح جميل و مفيد بارك الله فيك و زادك علما نافعا إن شاء الله.

[ابو جودي]

في ٢٢‏/٢‏/٢٠٢١ at 10:43, jjafferr said:

السلام عليكم 🙂

 

ولو اني تأخرت عن الركب ، ولكن قد تكون مشاركتي مفيدة 🙂

 

المشكلة الموجودة في الكلمات العربية ، وفي بعض انواع الخط الخاصة (مثل خط القرآن الكريم) ، هو اننا لا نعرف ما هي التشكيلات الموجودة ، ولا رقمها ، وبمل اننا نتعامل مع اللغة العربية ، فللحصول على رقم الحرف/التشكيلة ان نستخدم AscW و ChrW (رجاء ملاحظة وجود W) ،

عليه ، عملت هذه الدالة لإستخراج جميع الحروف/التشكيلات الموجودة في حقل nass في الجداول b4 و b5 و b6 ، وحفظها في جدول خاص بها tbl_Tashkeela ، في حقل Tashkeela (لا يقبل التكرار) 🙂 

 

هذه هي الدالة:

Function Save_Tashkeela()
On Error GoTo err_Save_Tashkeela

    Dim rstTashkeela As DAO.Recordset
    Dim rstTables As DAO.Recordset
    Dim i As Integer, j As Integer
    
    Set rstTashkeela = CurrentDb.OpenRecordset("Select * From tbl_Tashkeela")
    
    For i = 4 To 6
    
        Set rstTables = CurrentDb.OpenRecordset("Select nass From b" & i)
        
        Do Until rstTables.EOF
        
            For j = 1 To Len(rstTables!nass)
                rstTashkeela.AddNew
                    rstTashkeela!Tashkeela = Mid(rstTables!nass, j, 1)
                    rstTashkeela!Tashkeela_ChrW = AscW(Mid(rstTables!nass, j, 1))
                rstTashkeela.Update
            Next j
            
            rstTables.MoveNext
        Loop
    
    Next i
    
Exit_Save_Tashkeela:

    rstTables.Close: Set rstTables = Nothing
    rstTashkeela.Close: Set rstTashkeela = Nothing
    
    MsgBox "Done"
    
    Exit Function
    
err_Save_Tashkeela:

    If Err.Number = 3022 Then
        'duplicate found
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Function

.

ولأننا سنستخدم هذه الدالة مرة واحدة (او حنى عدة مرات) ، فالاسهل لي ان اناديها من الكود هكذا (طبعا يمكن مناداتها من اي مكان (ولكن ليس من الاستعلام ، فمناداتها مرة واحد تكفي لتغطية جميع حروف الجداول ، بينما الاستعلام سياديها بعدد السجلات ، وهذا مضيعة للوقت ولا فائدة منه) ، ورجاء ملاحظة ان علامة الاستفهام هي باللغة الانجليزية 🙂

.

ونتيجة الجدول:

 

جعفر

1341.ارشيف2.mdb.zip 20.98 kB · 6 downloads

وماذا بعد ذلك الجدول ؟بصراحة انا لم استطع فهم الموضوع 

حاولت مرارا وتكرار ازالة حركات التشكيل ولكن دون جدوى وهذا المرفق

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

quran.zip

[ابو جودي]

في ٧‏/١‏/٢٠٢٢ at 18:56, ابو جودي said:

وماذا بعد ذلك الجدول ؟بصراحة انا لم استطع فهم الموضوع 

حاولت مرارا وتكرار ازالة حركات التشكيل ولكن دون جدوى وهذا المرفق

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

quran.zip 372.33 kB · 5 downloads

فى انتظار استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr  🙏

[Barna]

في ٧‏/١‏/٢٠٢٢ at 19:56, ابو جودي said:

وماذا بعد ذلك الجدول ؟بصراحة انا لم استطع فهم الموضوع 

حاولت مرارا وتكرار ازالة حركات التشكيل ولكن دون جدوى وهذا المرفق

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

quran.zip 372.33 kB · 9 downloads

لأن الحركات الموجودة في الرسم العثماني للمطبعة لا يفهمها الكمبيوتر .... ولكن انظر هل هذا هو المطلوب ,,,,,

 

[ابو جودي]

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

الله يفتح عليك

[ابو جودي]

بانتظار المرفق 

[Barna]

10 دقائق مضت, ابو جودي said:

بانتظار المرفق 

كده مجاني ...🙄

طيب بس اشيك على بعض التشكيل ... .... ابشر ....

[ابو جودي]

1 دقيقه مضت, Barna said:

بس اشيك على بعض التشكيل

طيب بالمرة انظر الى الاية رقم 15 سورة البقرة

كلمة   طُغۡيَٰنِهِمۡ

بالمرة لا تنسى تحويل الـ يَٰ الى ا

حتى نتمكن عند البحث من كتابة الكلمة بالشكل الاتى  طغيانهم

وطبعا لن ترسل لى جدول الايات فقط بدون جركات التشكيل 

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

5 دقائق مضت, Barna said:

كده مجاني ...🙄

لا طبعا مو مجانى 😡

[Barna]

1 دقيقه مضت, ابو جودي said:

طيب بالمرة انظر الى الاية رقم 15 سورة البقرة

كلمة   طُغۡيَٰنِهِمۡ

بالمرة لا تنسى تحويل الـ يَٰ الى ا

حتى نتمكن عند البحث من كتابة الكلمة بالشكل الاتى  طغيانهم

وطبعا لن ترسل لى جدول الايات فقط بدون جركات التشكيل 

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

انت قلت التشكيل ... وليس التحريف 

[ابو جودي]

6 دقائق مضت, Barna said:

ابشر

بشركم الله تعالى بشربة هنيئة مريئة من يد سيد الخلق وحبيبنا سيدنا محمد صل الله علية وعلى اله وصحبه وسلم وبأعلى درجات الجنان ان شاء الله فى صحبة النبيين والمرسلين والصديقين والشهداء

[ابو جودي]

الان, Barna said:

التحريف 

هذا ليس تحريف الله يرضى عليك

الفعل (طغى) ومشتقاته يطغى، أطغى..) آخره ألف مقصورة على صورة الياء وفقًا للقاعدة ،فأصل الألف ياءٌ ؛ لأنه من الطغيان .

وقد جاء الفعل ومشتقاته على هذا النحو في القرآن الكريم إلا موضعًا واحدًا هو قوله تعالى في الآية الحاديةَ عشْرةَ من سورة الحاقة:" إنَّا لمَّا طغَا الماءُ حملناكُم في الجَاريَة) فرُسِمت الألفُ قائمةً على خلاف قاعدتها،وذلك لتناسُبِ اللفظ مع المعنى؛ فامتدادُ الألف وارتفاعُه هكذا مناسبٌ للصورةِ التعبيرية من طغيان الماء وارتفاعِه ليُغرقَ الكافرين من قوم نوح ، وما كان طغيانُ الماءِ هكذا إلا بإرادة المولى-سبحانه-وقدرتِه،فناسب ارتفاعَ الماءِ ارتفاعُ الألف.

أما استعمالُ الفعل( طغى) في بقية المواضع فقد جاء في سياق الحديث عن طغيان البشر،فهو طغيان مَقدورٌ عليه،مُحاطٌ به،مُحبَطٌ أثرُه،فناسبَه رسمُ الألفِ على صورة الياء على أصل القاعدة.

والمراد تسهيل استخدام البحث فقط وليس التحريف 

[ابوخليل]

20 دقائق مضت, Barna said:

انت قلت التشكيل ... وليس التحريف 

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

[Barna]

9 دقائق مضت, ابو جودي said:

هذا ليس تحريف الله يرضى عليك

الفعل (طغى) ومشتقاته يطغى، أطغى..) آخره ألف مقصورة على صورة الياء وفقًا للقاعدة ،فأصل الألف ياءٌ ؛ لأنه من الطغيان .

وقد جاء الفعل ومشتقاته على هذا النحو في القرآن الكريم إلا موضعًا واحدًا هو قوله تعالى في الآية الحاديةَ عشْرةَ من سورة الحاقة:" إنَّا لمَّا طغَا الماءُ حملناكُم في الجَاريَة) فرُسِمت الألفُ قائمةً على خلاف قاعدتها،وذلك لتناسُبِ اللفظ مع المعنى؛ فامتدادُ الألف وارتفاعُه هكذا مناسبٌ للصورةِ التعبيرية من طغيان الماء وارتفاعِه ليُغرقَ الكافرين من قوم نوح ، وما كان طغيانُ الماءِ هكذا إلا بإرادة المولى-سبحانه-وقدرتِه،فناسب ارتفاعَ الماءِ ارتفاعُ الألف.

أما استعمالُ الفعل( طغى) في بقية المواضع فقد جاء في سياق الحديث عن طغيان البشر،فهو طغيان مَقدورٌ عليه،مُحاطٌ به،مُحبَطٌ أثرُه،فناسبَه رسمُ الألفِ على صورة الياء على أصل القاعدة.

والمراد تسهيل استخدام البحث فقط وليس التحريف 

لو عدلنا طغيانهم  تتعدل معها للاسف الرحمان ....