الحـــــــر

يعطيك العافية اسذ وجاري التجربة وإن شاء الله تنهتي المشكلة .

ياشباب مالقيتو حل استلمت 15151 ايميل وفصلت الاتصال وجيت ابي اتصل مره ثانيه استلم نفس الايميلات اللي استلمها من قبل فما الحل يا أخوان

السلام عليكم ورحمة الله وبركاته عندي مشكلة بالآوتلوك 2003 على الفيزتا الإيميل شغال على الكمبيوتر اللي عندي على الدايل اب 100 بالميه لاكن فتحته عن طريق اللابتوب وضبطت الإعدادات وقام يستقبل الرسائل تم فتحها مسبقا من تاريخ 2006 هل يوجد خيار داخل اعدادات البرنامج او لازم يتسقبلهم كلهم وبعدين يصير اوكيه ياليت اخواني تفيدوني ولكم جزيل الشكر

شكرا لك وعلى ردوك وجاري التجربة

السلام عليكم ورحمة الله وبركاته هل يوجد حل او طريقة ... تأكيد أو تنبيه لحقل معين اذا تكرر فيه نفس الرقم مثلا عندي رقم البطاقة لو كتبت الرقم نفسه مره أخرى أبي يطلع لي مسج يقول إن السجل موجود مسبقاً فقط للتنبيه ويفتح على السجل المطلوب. علشان اعرف إن هذا السجل موجود واعدل فيه او اغير ... واكون شاكر لكم بإنتظاركم

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

السلام عليكم ورحمة الله وبركاته هذا البرنامج وأرجو التعديل عليه بطريقتكم الخاصة وإعلامي بالطريقة الصحيحة وأكون شاكر لكم طلي هو أن اصنع قائمة بالجنسيات وإسم الجهة والبوابات ويكون فيها زر إضافة لأضيف أي جهة جديدة أو جنسية جديدة تقريبا كلها نفس الشي لاكن ياليت واحد يعلمني الطريقة المبدأية BY_SAAD_C.G.rar

كل الشكر يا helmy_foad الله يوفقك لك الشكر مره أخرى

ياشباب الله يخليكم ممكن الطريقة البرنامج خلصته بس باقي كم شغله ومن ضمنها هذي فيا اليت تخدموني فيها . ولكم الأجر إن شاء الله . بإنتظاركم ........

للتذكير يا أخوان

ياسلام عليك هذا اللي أتكلم عنه . معليش اخوي استفسار بسيط . ودي إنها تكون ثابته مثلا أريد 10 حقول ثابته . وممكن تخليني استفيد منك اكثر لو علمتني كيف آصل إلى contune forms ولك الشكر . واسف على إلأطالة

السلام عليكم ورحمة الله وبركاته ماعليه على الإطاله وهذا الملف المرفق فيه المشكله التي واجهتني ومذكورة في الداخل لكم تحياتي db1.zip

بإذن الله راح يكون مترجم صغير مع التغيير والإضافة داخل الكود ولكم الشكر اتمنى من الجميع أن يستفيد منه انا وجدته عندكم ولاكن بعد البحث

ابشر يالغالي وانا ياطويل العمر عليمي لاكن حست بالأكواد وضبط معاي وشف انت الملف ويمكن تعدل فيه وتضهره بصوره احسن ولك الشكر A2E.rar

لك الشكر اخوي حصلت الطريقة هذي وهذا اللي كنت ابيه بالضبط Option Compare Database Function TransA2E(W As String) As String On Error GoTo err: Dim AL(), EL(), L As Byte AL = Array(" Çá", "Á", "óÇ", "Ç", "Ã", "Â", "ì", "Å", "Ä", "Æ", "È", "Ê", "Ë", "Ì", "Í", "Î", "Ï", "Ð", "Ñ", "Ò", "Ó", "Ô", "Õ", "Ö", "Ø", "Ù", "Ú", "Û", "Ý", "Þ", "ß", "á", "ã", "ä", "å", "É", "õæú", "æ", "öí", "í", "ó", "ð", "õ", "ñ", "ö", "ò") EL = Array(" al-", "'a", "a", "a", "a", "aa", "a", "i", "u", "i", "b", "t", "th", "j", "h", "kh", "d", "th", "r", "z", "s", "sh", "s", "sh", "t", "th", "", "gh", "f", "q", "k", "l", "m", "n", "h", "h", "u", "w", "i", "y", "a", "tn", "u", "un", "i", "in") Do p = InStr(p + 1, W, "ø") If p > 0 Then W = Left(W, p - 1) & Mid(W, p - 1, 1) & Mid(W, p + 1) Loop While p > 0 For R = LBound(AL) To UBound(AL) W = Replace(W, AL®, EL®) Next TransA2E = W err: End Function ولك الشكر مره أخرى