عبد الله قدور

السلام عليكم أخي مارد حاول احجز مساحة في الموقع الذي ذكرته ولكنه طلب مني عند الحجز user id من أين سأتي بهذا الرقم

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

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

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

أخي الكريم فكر بطريقة الحماية التي ارسلتها لك وجربها

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

بما أن الحاسب استطاع قراءة الفلاشة فلا يوجد مشكلة أما بشأن الفرمتة فلا تؤثر أبدا على عمل البرنامج إن كانت الفرمتة للفلاشة أو للحاسب لا يوجد أي تأثير

السلام عليكم والان اليكم هذا الكود الذي يقوم بالتأكد من اتصال الفلاشة بالحاسب عادة أنا استخدمه في نموذج الترحيب في حدث الوقت بعد مرور ثلاث ثواني وفي نموذج سطح المكتب في حدث الوقت بعد مرور عشر ثواني Dim strComputer As String Dim serNum As String strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colitems = objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", , 48) For Each objitem In colitems If objitem.interfacetype = "USB" Then serNum = objitem.pnpdeviceid Next serNum = Mid(serNum, InStrRev(serNum, "\") + 1) If serNum = "" Then DoCmd.Close acForm, "hi" MsgBox "áÇ íæÌÏ ÏÇÑÉ ÍãÇíÉ ãÊÕáÉ ÈÇáÍÇÓÈ " DoCmd.Quit acQuitSaveAll Exit Sub End If serNum = Left(serNum, InStr(serNum, "&") - 1) ser = serNum If serNum = "5265f5effd6ed" Then DoCmd.Close acForm, "hi" DoCmd.OpenForm "files" ElseIf serNum = "854d5f698rf" Then DoCmd.Close acForm, "hi" DoCmd.OpenForm "files" Else MsgBox "ÏÇÑÉ ÇáÍãÇíÉ ÛíÑ ÕÍíÍÉ", vbMsgBoxRight, "ÎØÃ" DoCmd.Quit acQuitSaveNone End If هذا الكود يتأكد من وجود احدى دارتي حماية

السلام عليكم أخي العزيز اسمي عبد الله قدور وليس قدورة ثانيا الحماية التي تحدثت عنها هي باستخدام الرقم التسلسلي للفلاشة بحيث يقوم البرنامج بالتأكد من وجود هذه الفلاشة متصلة بالحاسب أم لا فإذا كانت موجودة يقوم باكمال فتح البرنامج واذا كانت غير متصلة يقوم بتنبيه المستخدم بان دارة الحماية غير موجودة ويغلق البرنامج طبعا هناك نموذج سطح المكتب يتأكد من وجود الفلاشة كل 10 ثواني وهكذا بإذن الله تكون الحماية ممتازة flash Disk1.rar

اخي الكريم كنت اليوم سأضع هذه المشكلة على الموقع وهي ان اكسس 2013 لا يقرأ ملفات dbf في كل الاصدارات السابقة تقرأها بدون مشاكل

اخي اذا عندك اكسس 2013 ما رح يشتغل عندك او تأكد من وجود ملف باسم data جانب البرنامج

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

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

بانتظارك أخي الغالي أبو خليل

السلام عليكم أخي ابو خليل البرنامج مصمم على 2010 . 1- ملف تخفيض الامان تركته ليطلع عليه أعضاء المنتدى ويمكنني حذفه بعد التنصيب مباشرة وتركته ليستفيد منه اعضاء المنتدى 2- ملف المكتبات المصاحب فيه جدول مرتبط بالقاعدة فيه أسماء قواعد البيانات المنشأة في البرنامج ومسار كل قاعدة يعتمد عليه البرنامج في الاتصال بالقاعدة

أخي الكريم أبو خليل أنا لم أفهم ما تقصد بالتمويه وماذا يمكن ان نحول الى TEMP تحياتي لك

مشكور كتير اخي مارد على مرورك الكريم وانتظر تقييمك لما ذكرت سابقا وشكرا جزيلا أخي أبو عبد الله حلواني على مرورك الكريم وأنتظر تقييمك أنت أيضا

السلام عليكم ورحمة والله أقدم لكم أخواني البرنامج رقم 22 من تصميمي وهو برنامج خاص بضبط المحاضرات ومواعيدها 1- يحوي البرنامج على نظام تصنيف حديث معتمد في معظم برامج المحاسبة 2- نموذجي الكشف وطريقة العمل ( التحكم بالاعمدة المعروضة في نافذة معاينة - التحكم في التقرير - خيارات الفلترة متعددة الاشكال و الانماط ) 3- يمكن انشاء اكثر من قاعدة بيانات والعمل عليهم طريقة تشغيل البرنامج 1- بعد فك الضغط 2- تنصيب البرنامج على قرص D 3- تشغيل البرنامج من أيقونة تظهر على سطح المكتب 4- تخفيض أمان أكسس تلقائيا أثناء التنصيب 5- لا يوجد مستخدمين أو كلمات مرور أنتظر منكم الرد والتقييم الرابط https://drive.google.com/file/d/0B_ZrhTFFRjn3QnB4b3hzVTFZRHc/view?usp=sharing تحياتي للجميع

اخي الكريم مارد معك حق تماما اريد ان اقول لك انا من سوريا وما ادراك ما الانترنت في سوريا كانت سرعة الانترنت عندي بافضل الاحوال 40 ك/ب هذا ما جعلني لا الفكر في استخدام النت في كل المالي ومشاريعي اما الان الانترنت في سوريا من الاحلام المستحيلة ولكن الحمد لله انتقلت الى تركيا ومنذ اسبوع صار عندي انترنت في منزلي وممكن الان ان نتشارك في هكذا افكار تحياتي لك

مشكورين كثيرا على مروركم الكريم أو على مباركتكم اللطيفة اخي ابو محمد أو ابو عبد الله حلواني

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

السلام عليكم في مصدر عنصر التحكم لمربع النص من منشئ التعابير أضف التعبير التالي =Format(Date();"dddd dd mm yyyy")

السلام عليكم عندي سؤال صغير لصاحب السؤال هل أنت تريد الترقيم التلقائي بعد أدخال التاريخ أم عند فتح النموذج لاضافة بيانات جديدة يكون التاريخ فيها هو تاريخ اليوم افتراضيا يعني هل ستقوم بادخال بيانات بتواريخ سابقة أم فقط بتاريخ اليوم الذي وفي حال انتهاء الشهر وبدء شهر جديد يبدأ الترقيم من الرقم 1

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

نموذج restore لا يوجد في برنامج الزبون موجود عندي وانا اعيد تعيين كلمة المرور عبر الهاتف يعطيني الرقم واعطيه رمز اعادة التعيين