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

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

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

المطلوب

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

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

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

 

وشكرا

[biskra]

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

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

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

تم تعديل فبراير 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]

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

ارشيف.mdbFetching info...

[biskra]

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

[ابوخليل]

ارشيف2.mdbFetching info...

[biskra]

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

ارشيف2.rarFetching info...

[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.zipFetching info...

[biskra]

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

[jjafferr]

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

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

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

.

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

.

 

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

  في 22‏/2‏/2021 at 08:43, jjafferr said:

Function Save_Tashkeela 
 

Expand  

 

 

جعفر

[biskra]

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

[ابو جودي]

  في 22‏/2‏/2021 at 08: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

Expand  

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

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

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

quran.zipFetching info...

[ابو جودي]

  في 7‏/1‏/2022 at 16:56, ابو جودي said:

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

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

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

quran.zip 372.33 kB · 5 downloads

Expand  

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

[Barna]

  في 7‏/1‏/2022 at 16:56, ابو جودي said:

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

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

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

quran.zip 372.33 kB · 9 downloads

Expand  

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

 

[ابو جودي]

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

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

[ابو جودي]

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

[Barna]

  في 13‏/1‏/2022 at 16:55, ابو جودي said:

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

Expand  

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

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

[ابو جودي]

  في 13‏/1‏/2022 at 17:07, Barna said:

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

Expand  

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

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

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

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

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

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

  في 13‏/1‏/2022 at 17:07, Barna said:

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

Expand  

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

[Barna]

  في 13‏/1‏/2022 at 17:12, ابو جودي said:

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

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

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

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

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

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

Expand  

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

[ابو جودي]

  في 13‏/1‏/2022 at 17:07, Barna said:

ابشر

Expand  

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

[ابو جودي]

  في 13‏/1‏/2022 at 17:15, Barna said:

التحريف 

Expand  

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

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

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

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

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

[ابوخليل]

  في 13‏/1‏/2022 at 17:15, Barna said:

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

Expand  

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

[Barna]

  في 13‏/1‏/2022 at 17:21, ابو جودي said:

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

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

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

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

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

Expand  

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