ابوخليل

يبدوا ان الخلل في حاسوبي فهو لا يقبل Private Declare PtrSafe Function بتاتا سأحاول ايجاد السبب آسف لما سببته لك واخذت من وقتك وتقبل مودتي وشكري

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

السلام عليكم ايضا اذا اردنا التخيير بين فتح النموذج لعرض البيانات والتعديل عليها وبين فتحه لإدخال البيانات Private Sub Form_Open(Cancel As Integer) If MsgBox("Yes = لإدخال بيانات جديدة" & vbCrLf & _ "NO = لعرض البيانات والتعديل", _ vbQuestion + vbYesNo, _ "عرض وإدخال") = vbYes Then Me.DataEntry = True Else Me.DataEntry = False End If End Sub

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

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

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

وعليكم السلام كل ما تفكر به ممكن تحقيقه ولكني اقنرح عليك استخدام جدول واحد ، فهو افضل

مبارك استاذ حسام زادك الله علما ونفع بك

السلام عليكم استمر على الخط 128 ، غالبا جميع اجهزة الباركود تقرأه

+1

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

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

عليكم السلام جرب تبحث داخل المنتدى يوجد الكثير حول تحريك الصور وهذا واحد منها وهذا مثال من مكتبتي سرعة_سيارات.mdb

فيك الخير والبركة استاذنا الفاضل جعفر ادامك الله ذخرا لإخوانك

لم اطلع على المرفق ولكني عملت لك هذا حسب ما فهمت Dim i As Integer Private Sub ID_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then i = i + 1 If i = 3 Then MsgBox "اعمل الإجراء" Exit Sub End If Else i = 0 End If End Sub test1.mdb

للرفع

تفضل dbskn_up.mdb

مشاركة مع اخي الاستاذ خالد اذا كان مصدر التقرير استعلام ، اعمل عمود جديد وضع هذه القيمة فيه واجعله هو مصدر بيانات الحقل date1 : format([textedate];"dd/mm/yyyy") باعتبار textedate هو حقل التاريخ الموجود في الاستعلام اذا توصلت للحل والا كما اشار عليك الاستاذ خالد بارفاق مثالك

عليكم السلام نعم .. اذا اعلنت عنه كمتغير عام

عليكم السلام مثلا لمعرفة عدد تكرار الحرف a في مربع النص text1 استخدم مثل هذا Len([text1])-Len(Replace([text1];"a";""))

مرحبا اخي حسان تعليقي من شقين : وقبل ذلك اعتذر عن التعديل على المثال لاني لا املك اكسس في حاسوبي الشق الأول : الترقيم حيث يمكنك ادراج رقم المكتب ضمن الرقم وايضا لست بحاجة الى العلامة الفاصلة (السلاش) بحيث يتكون الرقم من اربع خانات للسنة وخانتين لرقم المكتب على اعتبار ان المكاتب سوف تزيد مستقبلا وباقي الرقم من اليمين للترقيم المعاملة ( مفتوح بدون عدد ) فيكون اترقيم على النحو التالي : 2020011 2020012 2020013 ....... وهكذا ايضا يمكنك ادراج رمز ( رقمي ) ضمن هذا الترقيم يعبر عن الصادر او الوارد لو احببت تعمل على جدول واحد ملحوظة : من خلال هذه المعطيات الثابتة يمكن في التقارير استخراج التالي : فصل المعاملات الصادرة من الواردة معاملات كل مكتب على حدة ترتيب المعاملات حسب النوع وحسب الرقم ................................................................................ الشق الثاني : واضح ان المكاتب في اماكن متفرقة وانك تجمع البيانات بالنسخ واللصق اذا هذا صحيح فيجب عليك التفكير بطريقة تجمع بها هذه البيانات بدون تدخل يدوي من الطرق : جمع قواعد البيانات الواردة من المكاتب في مجلد واحد ( لاحظ ان كل قاعدة ستحمل اسما مختلفا حسب اسم المكتب ) ثم تعمل استعلاما يجلب لك هذه البيانات .

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

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

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

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