Barna

طيب ناخذها وحدة وحدة .... تم عمل اعتماد الغياب ... مع بعض التعديلات في جدول الغياب ... تفقد التعديلات .. اذا جازت لك نكمل ... متابعة غيابات الطلبة.mdb

هذه طريقة الترميز ..... Dim dgt As String Dim myv As String txts = "" Dim i For i = 1 To Len(txtr) dgt = AscW(Mid(txtr, (i), 1)) txts = txts & "Chrw (" & dgt & ") & " Next i myv = Left(txts, (Len(txts) - 2)) txts = myv وهذه طريقة فك الترميز Loopy = (CDbl(Len([txts]) - Len(Replace([txts], ")", "")))) txtx = "" c0 = 1 Do c1 = Nz(InStr(c0 + 1, Me.txts, "("), 0) c2 = Nz(InStr(c1 + 1, Me.txts, ")"), 0) c3 = c2 - c1 If c1 <> 0 And c2 <> 0 Then c4 = Mid(Me.txts, c1 + 1, c3 - 1) Loopy = Loopy - 1 c0 = c2 Me.txtx = Me.txtx + CHARW(c4) Loop Until Loopy = 0 و هذا هو الفانك ... Function CHARW(CharCode As Variant, Optional Exact_functionality As Boolean = False) As String If UCase(Left$(CharCode, 1)) = "U" Then CharCode = Replace(CharCode, "U", "&H", 1, 1, vbTextCompare) CharCode = CLng(CharCode) If CharCode < 256 Then If Exact_functionality Then CHARW = ChrW(CharCode) Else CHARW = Chr(CharCode) End If Else CHARW = ChrW(CharCode) End If End Function اكيد قديمة ............. صحيح ..... لاني شفت الطريقة هذه من ايام دنيا دنيا ..... هههههههه

كنت اقصد طريقة تنفيذ الترميز وفك الترميز هناك طريقة اخرى ... اعتقد رأيتها في المنتدى لكن طالما ان المشكلة انحلت .... خلاص ... الحمد لله

جرب تغيير الكود المستخدم في الترميز بكود اخر

ايش المطلوب ؟؟؟؟ تحويل لنص أم ماذا ؟؟

استخدم هذا الكود في حدث بعد التحديث في مربع التحرير والسرد للحالة ... Private Sub الحالة_AfterUpdate() If Me.الحالة = "موقف" Then Me.الراتب = "0" End If End Sub

انت سألت في هذا الموضوع وتم رد الزملاء على سؤالك ولم ترد عليهم .... لم كررت السؤال مرة اخرى

الله يسامحكم ... جوعتونا ... بارك الله فيكم ... بغيت اشغل سيارني واجي عمان ... الله يصلحكم 😂

جرب هذا ...

هنا وغيرها في المنتدى تجد الكثير حول الموضوع ... من هنا من فضلك

في حدث بعد التحديث ضع هذا الكود ... Select Case OptionGrop Case Is = 1 Me.sal = "0" Case Is = 2 Me.sal = "100" Case Is = 3 Me.sal = "200" End Select ACC.accdb

ممكن مثال كمرفق لفهم ما تطلبه .... لان النقر على الكلمة هل هي تكست أم م م م

ما شاء الله تبارك الله ... فكرة جديرة بالتجربة .... اشكرك اخي الكريم

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

الف . الف . الف ...... مبروك ....... تستاهل كل خير ... اعانك الله

نعم هو ذاك .... هههههه

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

طيب يا بشمهندس لازالت بعص النصوص عل شاكلة طغيانهم ..... انظر ....

طيب شوف الفانك ده .... Public Function cleantxt(txt As String) As String For Each itm In Array(ChrW("1649"), ChrW("1648")) txt = Replace(txt, CStr(itm), "ا") Next For Each itm In Array("َ", "ً", "ُ", "ٌ", "ِ", "ٍ", "ْ", "ّ", "ـ", ChrW("1761"), ChrW("1755"), ChrW("1619"), ChrW("1623"), ChrW("1750"), ChrW("1630"), ChrW("1762"), ChrW("1751"), ChrW("1765"), ChrW("1766") _ , ChrW("1754"), ChrW("1620")) txt = Replace(txt, CStr(itm), "") Next cleantxt = txt End Function

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

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

كده مجاني ...🙄 طيب بس اشيك على بعض التشكيل ... .... ابشر ....

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

غير العبارات المكتوبة بالعربية في الرسالة في محرر الاكود الى لغة جهازك ...

بالتوفيق ....