ابوخليل

الفكرة جميلة بادخال الرمز الدولي آليا من البرنامج ، لان الادخالات غالبا وسؤال العميل عن رقمه المحلي انا استخدم هذه الطريقة ولكني اثبتها في مصدر البيانات نفسه اما تجاوز الارقام المكررة فيتم بتجميع مصدر البيانات قمت بتبديل الحروف العربية حتى يسهل قراءة الكود Dim AllTel As String Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT tbl1.jwal FROM tbl1 GROUP BY tbl1.jwal") With rs .MoveFirst While Not .EOF If Len(.Fields("jwal")) = 10 Then AllTel = AllTel & "," & "966" & Right(.Fields("jwal"), 9) End If .MoveNext Wend .Close End With AllTel = Right(AllTel, Len(AllTel) - 1) txt1 = AllTel txt1.SetFocus ملحوظة : غير اسم الجدول واسم الحقل حسب الموجود عندك

عموما هذا شرح بالصورة للنظامين لما يجب عليك عمله

نظام وندوز كم عندك ؟ 32 أو 64 ؟

وعليكم السلام لطفا اخي : اكتب وسيلة التواصل معك من اجل نقل الموضوع الى قسم اعلانات الاعضاء

"UPDATE 01_PoliceMan SET [01_PoliceMan].Gadol_P = [forms]![00_Home]![Gadol_P]"

معذور اخي .. هذا يسمى حماية الحقوق الفكرية

اعمل ضغط للملف قبل رفعه .. باستخدام برامج الضغط winrar او winzip بعد مراجعة مثالك اشكل علي طلبك ... انا في الاول فهمت انك تريد تخصيص التحديث لموظف محدد .. لان اكسس داخل الفورم يفعل ذلك هل تريد الكود يحدث بيانات جميع الموظفين الموجودين في الجدول ؟

لست بحاجة لتحويل القاعدة لانها ستعمل على على اوفيس 2010

اخي الكريم تعذر تنزيل الملف ارفع امثلتك على موقعتا ... مواقع الرفع العامة غير آمنة . دائما اجعل امثلتك بسيطة بمقدار السؤال والحاجة . في جملة sql تحتاج لشرط ( رقم الموظف في الجدول = رقم الموظف في الفورم )

وعليكم السلام ليست مشكلتك في الحجم ، حتى صورة الغلاف لن تظهر والسبب ان اكسس لا يدعم ملفات pdf وحتى يعمل مثالك تحتاج الى اضافة مكتبات تدعم ذلك وهذه المكتبتات تتوفر حين تثبت برنامج تشغيل هذه الملفات مثل اكروبات ريدر ثم ليكن في اعتبارك بعد حل الاشكال ان برنامجك مستقبلا لن يعمل على جهاز لا يحتوي على هذه المكتبات

عليكم السلام يصبح هكذا : If Me.subfrm.Form.NewRecord = True Then باعتبار subfrm هو اسم عنصر تحكم النموذج الفرعي

الفكرة وصلت والكود الذي كتبته صح واحتمال ان المشكلة في قيمة مربع التحرير عندك هل هي النص او غيره او المشكلة في شيء آخر .. سبق وأن المحت لك بان ارفاق المثال يختصر عليك الكثير

السلام عليكم تفضل : مطلوبك هنا

واضافة الى ما ذكره الاستاذ غريب فلسنا بحاجة الى اخفاء الجداول ..وليس لدينا مشكلة بان يقوم بحذف السجلات والبدء من جديد .. لو فرضنا ان البرنامج خاص بالحسابات ، وكانت الحماية للتجربة كحد اقصى 100 سجل ، فلا يتصور ان صاحب العمل سيعمل حتى يصل 100 سجل ثم يحذفها ويبدأ من جديد . لانه حين يعمل عليه ويعجب به سيطلب النسخة الكاملة باختصار يمكنني ان اكتب اعلان : البرنامج مجاني لمن سجلاته لا تتجاوز كذا .

عندي عمل على جهازين بلا مشاكل ولا رسائل وندوز 7 أوفيس 2003 وندوز 7 أوفيس 2010

مرحبا اخونا عبدالله عمل جميل تشكر عليه و لاشك سيكون اجمل لو صاحبه شرح بالصوت

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

لست بحاجة الى اعادة ترجمة الاكواد

شكرا لك استاذ غريب طرابلس على الاهتمام تم رفع الاقتراح لإدارة الموقع

لو انت تعمل مثال صغير وترفقه للتطبيق عليه كان حصلت على الاجابة الشافية من اول مشارك

جرب التنشيط بهذه الطريقة : Private Sub Form_Current() text1.requary End Sub على اعتبار text1 هو الحقل الهدف

السلام عليكم هي فكرة بسيطة لكنها من وجهة نظري عملية وسهلة التطبيق وتتم بالتحكم واحتساب عدد السجلات المدخلة في جدول محدد وليكن جدول الادخالات اليومية ------------------------- على اعتبار ان البرنامج تم تقسيمه الى 1- واجهات و 2- قاعدة جداول خلفية ، وهو شرط ، للمحافظة على بيانات العميل التي سبق ادخالها في النسخة التجريبية . ----------------- المثال المرفق هو لتوضيح الفكرة : حاول ان تدخل اكثر من اربع سجلات يمكننا ان نضع حد اعلى للسجلات بحسب نوع واستخدامات البرنامج 100 او 200 او اكثر من ذلك Dim i As Integer i = DCount("id", "tbl1") If i >= 5 Then MsgBox "انتهت الفترة التجريبية .. لشراء نسخة الكاملة اتصل على ..." DoCmd.Quit End If db1.mdb

Sale = ([Buy] * [Nesba]) / 100 + [Buy] 331.mdb

وعليكم السلام نسبة الربح : = ([Sale]-[Buy])/[Buy]*100

عليكم السلام طريقتك صحيحة 100% اكتب الكود هنا لفحصه وتصحيحه