Shivan Rekany

اتفضل استخدم ھکذا للنقدي بيع نقدي: IIf([Adfah]="نقدي";[Price];0) وللاجل استخدم هذا بيع اجل: IIf([Adfah]="اجل";[Price];0) مبلغ الاجل والنقدي بالاستعلام.rar

اعمل مربع نص فی اسفل التقریر واکتب فیه =Count(*)

اتفضل صحابه.rar

خلي العمود الصحابي كمصدر لكومبوبوكس ( يتبع ل ) و اعمل كروب لكي لا يكون هناك اسماء متكررة عند الاضهار او ارفق القاعدة لعمل المطلوب

اتفضل اليك هذا الاستعلام SELECT [جدول البيانات الأساسية].[رقم الموظف], [جدول البيانات الأساسية].[اسم الموظف], [جدول البيانات الأساسية].[تاريخ التعيين], [جدول البيانات الأساسية].الوظيفة, [جدول البيانات الأساسية].[الرقم الوظيفي], [جدول البيانات الأساسية].[رقم الجوال], [جدول البيانات الأساسية].nem, [جدول البيانات الأساسية].TA FROM [جدول البيانات الأساسية] LEFT JOIN Q1 ON [جدول البيانات الأساسية].[رقم الموظف] = Q1.[رقم الموظف] WHERE (((Q1.[رقم الموظف]) Is Null)); allff.rar

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

حسب فهمي وحسب ما قرأت ورأيت المواضيع يحدث المشكة عند استخدام كود الاعلاق النموذج او التقرير هكذا Docmd.Close بدون ان نکتب اسم النموذج او نكتب Me.Name مثلا اذا نعطي امر فتح نموذج مثلا وبعدين نكتب هذا الكود مثلا DoCmd.OpenForm "form1", acNormal DoCmd.Close سيتم فتح النموذج ونغلقه لان ذلك النموذج سيكون اكتيف والكود سيغلق النموذج الاكتيف لان ما نحدده اي ما كتبنا اسم النموذج المراد نغلقه هذا والله يعلم

يعني ... البرمجة عند الاكسس زعيفة جدا ولا يعرف Me.Name اذا تكتبه في محرر فيجوال للنموذج یعنی لا یعرف نفسه في اي نموذج نحن كتبناه !!؟ لكن انا استخدم هذه الطريقة وما صار معي اي مشكلة بعد ... لكن دائما اتبع طرائقك لاني اعرف من انت تحياتي لك

استاذي الحبيب ممكن تخبرني ما الفرق بينهما انا دايما بستخدم كما انا كتبت وما فيه اي مشكلة ... هل هناك فرق ام ماذا ؟ اذا تفتتح التقرير من النموذج اي كود من الاكواد تستخدمه راح يعمل هذا DoCmd.BrowseTo acBrowseToReport, "rep1" او هذا DoCmd.OpenReport "Rep1", acViewPreview DoCmd.Close acForm, Me.Name او كما كتبت استاذنا جعفر هذا

اتفضل اذا بتستخدم اوفيس اصدار 2010 اليك هذا الكود فرضنا عندك تقرير باسم rep1 DoCmd.BrowseTo acBrowseToReport, "rep1" او اليك هذا الكود ستقدر تستخدم في كل اصدارات DoCmd.OpenReport "Rep1", acViewPreview DoCmd.Close acForm, Me.Name

اتفضل اليك هذا استعلام INSERT INTO [بيانات المصروفات] ( nam_m, total ) SELECT [الموظفين الصرف اليومي].name, [الموظفين الصرف اليومي].totel FROM [الموظفين الصرف اليومي]; فقط عليك ان تفتح الاستعلام مرة واحدة فقط تجريبي.rar

الیك هذا الاستعلام SELECT Hrakatsanf.ID_Sanf, Hrakatsanf.Rajmsanf, Hrakatsanf.Alkmiah, Last(Hrakatsanf.Price) AS LastOfPrice, Hrakatsanf.Adfah FROM Hrakatsanf GROUP BY Hrakatsanf.ID_Sanf, Hrakatsanf.Rajmsanf, Hrakatsanf.Alkmiah, Hrakatsanf.Adfah; وتقدر ايضا ان تستخدم DLast اليك المرفق اخر قيمه بالحركات.rar

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

استغفر الله ... نحن نشكرك على مشاركتك لا داعي

اتفضل اكثر تاريخ في سجلات.rar

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

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

استأذن من استاذ جعفر اخي علي فقط عليك حذف اضافة ( add in ) و انشاءه مجددا اتفضل تم العمل عليه وما اضفت شيء على المثال استاذنا القدير 765.MyPRG.rar

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

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

هناك كم سؤال تستخدم اي اصدار من اكسس ؟ اعمل قاعدة بيانات جديدة وحفظ القاعدة وفتحه هل ستقدر ام لا ؟ و ارفق احد القاعدات لكي نشوفه تحياتي

يعني في اعدادات الحقل ، ثم الحدث قبل التحديث ... Before Update شكرا لانك معنا اخي و استاذي الحبيب

استخدم ھذا الكود قبل تحديث للحقل الرقم القومي فرضنا اسم الحقل القومي هو RqmAlQawmi سنستخدم هكذا If Len(Me.RqmAlQawmi & "") <> 14 then Cancel = -1

انا اضفت نموذج دخول لقاعدة بياناتك واضفت هذا الكود عند للدخول بعد كتابة اسم المستخدم ورقم سري خاص به Private Sub sOK_Click() Dim MyPassword As String Dim MyUName As String MyPassword = Nz(DLookup("password", "Users", "[username]='" & Me.UName & "'"), "") MyUName = Nz(DLookup("username", "users", "[username]='" & Me.UName & "'"), "") If Me.UPassword = MyPassword Then GetUserName.UserName = Nz(DLookup("username", "users", "username = Forms!frmlogin!UName")) DoCmd.Close acForm, Me.Name DoCmd.OpenForm "com", acNormal End If End Sub في هذا ... الجزء المهم لمامنا هو هذا السطر من الكود GetUserName.UserName = Nz(DLookup("username", "users", "username = Forms!frmlogin!UName")) وايضا تم اضافة هذا فانكشن Public UserName As String Public Sub GetUserName(FrmName As String) Forms(FrmName).Caption = UserName End Sub وفي النموذج التسجيل البيانات تم كتابة هذا الكود عند اضافة السجل Private Sub Form_AfterInsert() Me.UserNameIns = UserName End Sub واذا تريد تقدر ان تكتب الكود في حالة بعد اتحديث النموذج اذا حضرتك تريد ان يكتب اسم المستخدم اللي من عمل تغيير في السجل اليك هذا الملف بها ماتريد Database1.rar

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