ابوخليل

الطريقة بخطوتين : 1- حماية النماذج والتقارير عن الفتح المباشر بواسطة الكود 2- تحويل المشروع الى mde هذا ما يخص ملف الواجهات والذي يهم المبرمج اما البيانات وقاعدة الجداول فهو الذي يهم المستخدم فلها طرق عدة في الحماية وغالبها ضعيف 1- اخفاء الجداول 2- تشفير الجداول 3- تحويل قاعدة الجداول الى sql

بالنسبة للكود فهو موجود ضمن مكتبتي منذ زمن ولا اعلم حقيقة من اين اخذته وهذه مشكلة عدم التوثيق فهذا واحد من الروابط التي كنت ابحث فيها www.access-programmers.co علما اني بحثت في المنتدى قبل طرح الموضوع ولكني لم اوفق ولكن تبين لي الآن وجود موضوع مشابه تماما هنا وهو للاستاذ خضر الرجبي والاستاذة زهرة ، فلهما السبق والفضل ولو وفقت بالعثور عليه لاكتفيت بالاشارة اليه ، ووفرت على نفسي بعض الوقت لا لايلزم بل يكفي وحدة نمطية واحدة وزر واحد لان اسم الملف ومساره يجب ان يكون مرنا بحيث يمكن تغييره او استبداله وهذا يعني انه يلزمك ان توجد طريقة تغيير متاحة للمستخدم حاول جلب اسماء الملفات داخل الفورم في قائمة مثلا وكل ما عليك هو تحديد الملف ثم النقر للطباعة

Dim WordObj As Object Set WordObj = CreateObject("Word.Application") WordObj.Documents.Open (CurrentProject.Path & "\WrdfilName.doc") WordObj.PrintOut Background:=False WordObj.Quit Set WordObj = Nothing طباعة ملف ورد.rar

MsgBox "welcome in officena", vbMsgBoxRtlReading 'vbMsgBoxRight وهذه تعمل ايضا db1.rar

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

وعليكم السلام ورحمة الله وبركاته المرفق على صيغة mdb ولكنه محول من اصدار حديث لذا فهو يشتمل على مشكلة عند فتح النماذج فاي شخص يملك في جهازه الاصدار 2003 فقط لا يمكنه مساعدتك رفعت المثال على جهاز آخر ويتضح لي ان المشكلة في عدم استطاعتك ادخال الدرجات تكمن في مصدر بيانات النموذج الفرعي فهو عبارة عن استعلامين ( ارقام سرية/درجات) مجمعين من استعلامين آخرين وحتى تتمكن من جعل النموذج يستجيب لا بد من استبدال احد الاستعلامين بجدول ارى ان تجرب وتحول الاستعلام الخاص بالارقام السرية الى جدول مؤقت ثم تربط هذا الجدول باستعلام الدرجات

انظر هنا http://www.officena.net/ib/topic/46742-طلب-كود-فتح-ملف-الوورد-وإغلاقه/#comment-280404

السلام عليكم بالمثال المرفق من اخوي جعفر وكما في الصورة ( الارقام الحمراء ) غير القيمة where المشار اليها برقم اثنين إلى group by واحذف المعيار المشار اليه برقم 3 ولا تنسى تضع اشارة صح في المربع الفارغ الظاهر

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

السلام عليكم اخواني الكرام جداول اكسس تختلف عن جداول اكسل فالاساس في جدول اكسس هو السجل والحقل فرع منه .. لذا فالعمود لا ينفرد بخصيصة قد يعترض على هذا بحجة امكانية تصفية العمود .. نعم ولكن بالمقابل بقية بيانات السجل ستكون تابعة لهذه التصفية لو افترضنا تم تطبيق مطلب اخونا محمد عن طريق الكود فستكون القيم : 1 ، 4 ، 7 في سجل واحد السؤال الآن : ما الرابطة او العلاقة بين هذه القيم ، وبأي وسيلة نستطيع الرجوع الى احدى هذه القيم عند الحاجة نخرج من هذه المقدمة المقتضبة الى وجوب وجود معرف في كل جدول وتكون له علاقة داخل الجداول الاخرى السجل وحقوله في الجدول كالمنزل وساكنيه

استاذنا وحبيبنا جعفر هدية قيمة ورائعة ، وتكثر الحاجة اليها جزاك الله خيرا , ورزقك من حيث لا تحتسب

دمج المراسلات : نتمنى ان تجد من يعينك في قسم الوورد xx ينقل xx

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

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

من واقع تجربة : انصحك لا تفعل

تفضل : ادراج صورة وحذفها ادراج وحذف الصور.rar

التعريف اعلاه متوافق مع نظام 32 بت وفي حال كان النظام 64 يلزم استبداله بالتعريف التالي علما اني لم اجربه Private Declare PtrSafe Function LoadKeyboardLayoutA Lib "user32" (ByVal pwszKLID As String, ByVal flags As Long) As LongPtr ولو اجريت البحث عبر google لوجدت مجالا اوسع ومعلومات اشمل

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

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

وعليكم السلام افتح على خصائص الحقل / لسان التبويب تنسيق انظر القيمة : لغة لوحة المفاتيح ، وقم بتغييرها الى العربية

ولكن في هذه الحالة لا يصلح الرقم يكون مرجعا ، فلو استخدمنا هذه الدالات الاربع لاعطانا في كل مرة سجل يختلف عن الآخر ، لذا ارى هنا ان وجوده كعدمه والافضل والاصح للسائل هو العمل على ازالة التكرار داخل الجدول

السلام عليكم شكرا للاساذ عبدالرحمن وهذا حل آخر يمكنك فعل ذلك اذا جعلت الحقل في مصدر القائمة والذي هو الاستعلام : تجميعي ( Group by) ولكن لاحظ انه يجب ازالة حقل الترقيم والا لن تستفيد من التجميع

نعم هي ما ذكرت تفضل : كود اللغة في الكمبيوتر.rar

جزاك الله خيرا استاذ احمد الاخ رضا محمد في حقل جديد في الاستعلام اكتب هذه الجملة : expr1: Date()-date1 واكتب في حقل المعيار : >=1416 tst2.rar

اولا اضبط لغة الكتابة في خصائص مربع النص = النظام ثم الصق هذه الجمل داخل محرر النموذج باعتبار combo هو مربع التحرير ورقم واحد هو قيمة المربع ويمثل اللغة الانجليزية و 2 يمثل اللغة العربية Option Compare Database Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long Private Sub combo_AfterUpdate() If combo.Value = 1 Then Call LoadKeyboardLayout("00000409", 1) ElseIf combo.Value = 2 Then Call LoadKeyboardLayout("00000401", 1) End If End Sub لا حظ انه يمكنك اضافة العديد من اللغات