نجوم المشاركات

تكبيرات العيد https://www.officena.net/team/mas/tkber.swf مع الشكر للاخ محمد صالح

1 - قم بعمل استعلام الحاق الى جدول ass بشرط الحالة يكون مغادر 2- طبعا استعلام المغادرين بيأخذ البيانات من نفس جدول السندات وبايكون الحالة غادر 3 - بعد ذلك استعلام تحديث لخانة الاختيار الخاصة بحالة الشقة يحولها الى false بشرط رقم العقد بالتوفيق طبق خطوه خطوه

سبق وان اجبت على تساؤل شبيه وأنسيت اهو لك ام لغيرك المشكلة التي تحصل للكثيرين حين يدخل الوقت في يوم جديد الحل : لا تدخل الوقت هكذا : 03:00 او هكذا 03:00:04 وانما استخدام التاريخ الكامل General Date ( وهو يشتمل على التاريخ والوقت ) بواسطة الدالة Now

السلام عليكم لمن لدية الخبرة في اوقات الاكسس لدي مشكلة ارجو منكم مساعدتي،لدي قاعدة بيانات في الاكسس واريد فارق الوقت بين وقتين ومعي ثلاث مربعات نص ادخل في مربع النص الاول وهو وقت حصول العطل مثلا 15:00 وادخل في مربع النص الثاني وقت اصلاح العطل مثلا 18:00 وتظهر لي النتيجة في المربع الثالث وهو فارق الوقت بين الوقتين 03:00 واستخدمت دالة TimeSerial لعمل هذه العملية ولكن معي مشكلة في الوقت اذا ادخلت في المربع الاول 22:00 والمربع الثاني 24:00 هنا يجب ان يكون الناتج الفارق 2:00ولكن اكسس لا يقبل القيمة 24:00 واذا ادخلت 22:00 وادخلت 00:00 على اساس انه منتصف الليل يعطي لي النتيجة 22:00 ساعة وفي الاصل فارق الوقت بينهم 02:00 اي ساعتان ماهي حل المشكلة...وشكرا

اتفضل Private Sub opn_Click() If Len(Me.txtpass & "") = 0 Then MsgBox "ادخل رقم سري القديم" Me.txtpass.SetFocus Exit Sub ElseIf Len(Me.txtpasscadid & "") = 0 Then MsgBox "ادخل رقم سري الجديد" Me.txtpasscadid.SetFocus Exit Sub ElseIf Len(Me.txtpasscedid1 & "") = 0 Then MsgBox "ادخل رقم سري الجديد للتأکيد" Me.txtpasscedid1.SetFocus Exit Sub ElseIf DLookup("[USER_PASSWORD]", "data1", "[USER_NAME]='" & Me.txtname & "'") <> Me.txtpass Then MsgBox "خطأ في رقم سري القديم" Me.txtpass.SetFocus Exit Sub ElseIf Me.txtpasscadid <> Me.txtpasscedid1 Then MsgBox "ھناک خطأ في تأكيد رقم سري الجديد" Me.txtpass.SetFocus Exit Sub ElseIf DLookup("[USER_PASSWORD]", "data1", "[USER_NAME]='" & Me.txtname & "'") = Me.txtpass And Me.txtpasscadid = Me.txtpasscedid1 Then Dim Sql As String Sql = "UPDATE data1 SET data1.USER_PASSWORD = [Forms]![Changepassord]![txtpasscadid] WHERE (((data1.USER_NAME)=[Forms]![Changepassord]![txtname]));" DoCmd.SetWarnings False DoCmd.RunSQL (Sql) DoCmd.SetWarnings True MsgBox "تم تغيير رقم سري بنجاح" DoCmd.Close acForm, Me.Name End If End Sub اليك المرفق مستخدم.rar

س : فاتورة البيع كيف يتم تحريرها بالمنتج حبة حبة ؟ يعني اسجل: 1- باب رقم 2122 بقيمة كذا 2- باب رقم 2123 بقيمة كذا .... وهكذا ؟

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

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

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

اتفضل اليك هذا الحل اولا في الاستعلام انا اضفت لكل حقل حقل اخر بهذه الصيغة b1: Replace(Nz([b];"");" ";"") لكي يحذف جميع الفراغات للحقل وبعدين اضفت مربع نصي في النموذج باسم text44 وعطيت هذا الكود لمربع البحث text0 بعد تحديث Private Sub TEXT0_AfterUpdate() Me.Text44 = Replace(Nz(Me.TEXT0, ""), " ", "") End Sub وحذفت الشرط في الاستعلام من الحقول الاصلية وعطيت الشرط للحقول اللي انا عملته بدو مسافات وهذا هو الشرط Like "*" & [Forms]![FORM1]![Text44] & "*" وايضا اضفت لزر تصفير البحث هذا الكود Private Sub Command13_Click() Me![TEXT0] = Null Me![Text44] = Null Me.Requery End Sub والكود زر البحث خليت كما هو Private Sub COMMAND2_Click() Me.Requery End Sub والان اكتب النص بمسافة او بدون مسافة سيتم حذف المسافات ويبحثه اليك قاعدة بياناتك بعد تعديل b.rar