Elsayed Bn Gemy

طب فين جدول الاصناف وعاوز تعرف اه عن الصنف بالظبط وعاوز تطبع استعلام عن ايه بالظبط ؟؟ وضح اكتر

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

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

اخى الفاضل هو انا مش فاهم يعنى ايه التقريب لاقرب ستة اشهر عموما ضيف الحقل دا فى الاستعلام دا بيحسب الفرق بلسنة عموما دالة التقريب هى الدالة round مع انى حاسس ان مش دا موضعها مدة التعاقد بالسنين: DateDiff("yyyy";[تاريخ الاقفال];[تاريخ نشاة الشركة])

اتفضل يا اخى الكريم البرنامج كما طلبت بصرحة انا اوفيس 2007 شكله حلو فحبيت يكون زيه كود هو 1111-2222-3333-4444 معالج قاعدة بيانات اكسس.rar

هل هذا ما تريد اخى الكريم ان مشى معاك ولقيته سهل نبتدى نحسن فيه دا بشكل مبدئى كل ما عليك انك تكتبالاسم والبرنامج هيولد رقم للموظفت تلقائى لو فى اى تعديل قولى رواتب.rar

ممكن صورة اخوكفهمه على قده هههههههههه

سورى جت غلط هههههههههههه

بامر الله انا تقريبا خلصته ون شاء الله هنزله على طول من عنيا

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

وهذه نسخة منه

اخى الكريم انا مش فاهم الصراحة المطلوب انت عاوز تغير الايقونه ؟؟ظ ولا ماذا تريد بالظبط

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

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

اى تعديل تريده اخبرنى وليوفقنا الله على تعديله

تفضل اخى الكريم هذا هو برنامج بطريقة اجمل وبتنسيق احلى اعاننى الله على تصميمه لك فى نموذج فاتورة جديدة كل ما عليك هو كتابة التاريخ وسيحدث ا\رقم الفاتورة تلقائى 1 2 3 4 برنامج فواتير.rar

هل هذا ما تريده اخى الكريم جرب وقولى لو فى اى حاجة انا معاك Invoice(1).rar

بص هو دا لينك التحميل وعلى ما اعتقد انه غير مدمج الا ان يصحح لى احد المعلومة http://www.microsoft.com/en-us/download/details.aspx?id=24569

فى حدث بعد التحديث لمربع نص (كود الصنف او اسم الصنف ) زى ما انت مسميه اى كان تضع الكود التالى Dim D As String D = Me.code_ Me.price = DLookup("f_price", "types", "[code_]='" & D & "'") End Sub حيث code_ هى اسم مربع النص الموجود فى النموذج (اسم الصنف او كود الصنف ) price هو اسم مربع النص (السعر ) فى النموذج f_price هى اسم الحقل فى جدول الصنف ( السعر ) types هو اسم جدول الصنف يستحسن استخدام اللغة الانجليزية وكدا تقدر تغير سعر اى صنف فى اى وقت

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

ضع هذا الكود فى وحدة نمطية Public Function closeIfOpen() As Boolean Dim objWINMGMTS As Object Dim objApps As Object Dim objApp As Object Set objWINMGMTS = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set objApps = objWINMGMTS.ExecQuery("select * from win32_process where name='osk.exe'") For Each objApp In objApps objApp.Terminate Next End Function وقم بعمل استدعاء لها فى احدث مثلا عند النقر لاى زر Call closeIfOpen

ضع هذا الكود فى حدث عند الفتح للنموذج DoCmd.ShowToolbar "ribbon", acToolbarNo

هذا هو المعالج يا اخى الكريم كما طلبت وبه كود تفعيل كمان وبه لوجو اكسس ٢٠١٣ اعاننى الله على تصميمة جرب وسجل وشوف وقولى وهو مختلف عن الصورة المرفقة فى المشاركة السابقة كود التفعيل هو mared معالج قاعدة بيانات اكسس.rar

بص انا عملت حاجة زى كدا قولى لو تمشى معاك ارفعها

ارفق قاعدة كمثال اخى الكريم هل تقصد بالتسجيل اى تفعيل البرنامج ؟؟ هل تريد تفعيل قاعدة البيانات ؟؟ انا لم افهم