Bluemind

اخوي محمد جرب اطفاء جدار الحماية ماخوذ من هذه المقاله http://msdn.microsoft.com/en-us/library/ms175043.aspx

تفضل المثال بعد التعديل عليه sample.rar

اخوي رامي ضع الكود التالي في زر ادراج بعد اول سطرين Forms!invoiceselling!InvoiceSellingSubform.Form.Recordset.MoveLast اي كالتالي DoCmd.OpenQuery "Query3" Me.Refresh Forms!invoiceselling!InvoiceSellingSubform.Form.Recordset.MoveLast

اللهم امين جزالك الله خير

وما المشكلة؟؟ تخزين البيانات بشكل ارقام افضل من حروف حيث يوفر مساحه في قاعده البيانات ان كانت المشكله في عرض البيانات فهذا له حل قم بارفاق المثال

تفضل اخي الكريم مثالك بعد التعديل علية Database3.rar

ماهي رساله الخطاء؟؟؟

كلا الكودين تعمل على الطباعة

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

استخدم التعبير التالي في الاستعلام TotalTime: Format(Int([total]/3600);"00") & ":" & Format(Int(([total]-(Int([total]/3600)*3600))/60);"00") & ":" & Format((([total] Mod 60));"00")

تستخدم القائمه المنسدله لعرض البيانات و الاختيار منها وليس للدخال مباشره بالكتابه فيها تفضلي المرفق حسب فهمي للمطلوب combo.rar

بارك الله فيك تم دمج الموضوعين لتعم الفائده من المثال

الحمد الله رب العالمين تمت الاجابه

تفضل المرفق بعد التعديل عليه SQLVariable.rar

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

اذا عليك تعريف متغير عام او globle variable و استدعائه عن تشغيل البرنامج من نموذج البداء قم بالتالي انشاء module جديد وضع الكود التالي به Option Compare Database ' Access global variables definition Global Gbl_Username As String Option Explicit Public Sub Start_Globals() Gbl_Username = Environ("username") End Sub ثم في حدث عن الفتح لنموذج البداء قم بوضع الكود التالي Option Compare Database Option Explicit Private Sub Form_Open(Cancel As Integer) DoCmd.Maximize Call start_Globals End Sub و ان انت تستخدم اكسس 2007 فهناك Tempvars معرف وجاهز

الاخ محمد اعتقد ان الكود ناقص او انك لم تضع كامل الكود من اي تاتي قيمه UName بالاساس؟؟ اي من اي كائن تاخذ القيمه؟؟ على العموم هذا مثال بسيط لتوضيح اسناد القيمه الى متغير وهو غير مجرب Dim varValue As Variant varValue = me.TextUserName If not IsNull(varvalue) Then DoCmd.RunSQL ("insert into logaction (username) values (varValue)")

الاخ الفاضل تم التعديل ولكن لم استطع ادخال البيانات وفهم اليه عمل البرنامج لذلك قم بادخال بيانات AAAA.zip

لقد تم فتح المثال عن طريق اكسس 2010 المثال لا يعمل على 2007

الاخ علي يوجد مشكله في المرفق كما ذكر الاخ ابو ادم

اخوي هاني بارك الله فيك يوجد ملف نصي مع البرنامج وحقوق الفكريه لهذا البرنامج تعود لشبكة البرامج العربية والمعربة حتى لو يوجد طريق للتعديل فهذا يعارض حقوق الفكريه و الملكيه ويعارض سياسه المنتدى وهذا نص الملاحظه الموجود مع البرنامج بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته تم التحميل من شبكة البرامج العربية والمعربة http://www.ar-tr.com اول شبكة عربية تهتم بالبرامج العربية والمعربة وتجمعها في موقع واحد للمراسلة http://www.ar-tr.com/raslna.htm

اخوي بارك الله فيك ماهو الهدف من ذلك؟؟ لعل توضيح ذلك يكون مفيد للاجابه لان النماذج والتقارير تختلف من حيث الغرض و الاهداف المرجو منها ماينطبق على النماذج لا ينطبق على التقارير في اغلب الاوقات

اخوي ابو اثير هل جربت المرفق في مشاركه الاخ الفاضل ابو خليل؟؟ لقد تم عمل ذلك بنجاح وعليك مراجعه المرفق بالنسبه لسؤالك عن الحقل رقم 5 و تحديد عدد الخانات المدخله قم بوضع الداله التاليه في Validation Rule في علامه التبويب data من خصائص مربع النص 5 و 6 Is Null OR Between 1000 And 9999

اخوي محمد جرب هذا الكود Dim dd As Variant Application.VBE.ActiveVBProject.VBComponents.Import (CurrentProject.Path & "\mod1.bas") DoCmd.Save acModule, "mod1" If dd <> "" Then MsgBox dd Else MsgBox "áã íÊã ÇáÚËæÑ Úáì ÇáæÍÏÉ ÇáäãØíÉ ÇáãÍÏÏÉ" End If

حسب فهمي للموضوع قيمه الحقل a مربوطه بالحقل c و الحقل b مربوط بالحقل d اذا كان يوجد عدد قليل من الشروط فايمكن عملها بواسطه كود ولكن الاخ ابو اثير يتكلم عن 30 شرط وهذا كثير بالنسبه لكود من وجهه نظري لابد من عمل جدولين للشروط شاهد المرفق و اكمل البيانات في كلا الجدولين A و B FR-to.rar