ابوخليل

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

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

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

جزاك الله خير ولكن لما تنقل البرنامج الى جهاز آخر تختلف دقة اشاشة فيه فأنت مضطر للدخول وتغيير الارقام لنفرض انك بعثت البرنامج لشخص آخر لذا الافضل ان نجعل البرنامج يغير الارقام آليا بناء على دقة شاشة الجهاز الجديد استبدل كودك بهذا : resizefrom Me, DisplaySize(0), DisplaySize(1)

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

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

السلام عليكم تكثر الحاجة الى اخراج تقرير حسب حقول محددة يختارها المستخدم وهذا الباب تم التطرق اليه في هذا المنتدى ومن يبحث يجد الكثير .. علما اني قد استفدت واخذت من تلك المواضيع فما انا الا ناقل . ورب ناقل علم الى من هو اعلم منه . وحتى يكون هذا الموضوع مرجع مختصر لكيفية تصميم واعداد التقرير لذا عملت على اعداد مثال صغير وهو عبارة عن جدول ونموذج وتقرير اولا : عمل قائمة في النموذج يتم فيها عرض حقول الجدول عند تحميل النموذج ... وهذه الاكواد هي المسؤولة : Private Sub Form_Load() Dim dbs As DAO.Database Dim tbl As DAO.TableDef Dim sCaption As String DoCmd.Restore Set dbs = CurrentDb Set tbl = dbs.TableDefs("table1") For Each fld In tbl.Fields sCaption = "" On Error Resume Next sCaption = fld.Properties("Caption") On Error GoTo 0 lstFields.AddItem fld.Name & ";" & sCaption Next fld Set dbs = Nothing Set tbl = Nothing End Sub ثانيا عملت زر لإعداد الحقول في التقرير ثم فتحه ، وخلف هذا الزر يتم تنفيذ هذه الشفرة Dim i As Integer Dim txt As TextBox Dim lbl As Label Dim intSelectedCount As Integer Dim lngWidth As LoadPictureConstants Dim intSelectedNo As Integer With lstFields If .ItemsSelected.Count = 0 Then MsgBox "يجب اختيار حقل واحد على الأقل", vbExclamation, "خطأ" Exit Sub End If DoCmd.OpenReport "Rep1", acViewDesign, , , acHidden intSelectedCount = .ItemsSelected.Count lngWidth = Reports("Rep1").Width / intSelectedCount Reports("Rep1").Section("PageHeaderSection").Height = 310 Reports!Rep1!Label2.Caption = Nz(Me.Textlabl) Reports("Rep1").Section("Detail").Height = 310 intSelectedNo = 0 For i = 0 To .ListCount - 1 If .Selected(i) Then Set lbl = CreateReportControl("Rep1", acLabel, acPageHeader, , , intSelectedNo * (lngWidth + 50), 5, lngWidth, 300) lbl.Caption = .Column(1, i) lbl.BackStyle = 1 lbl.BackColor = RGB(200, 200, 200) lbl.BorderStyle = 1 lbl.FontBold = True lbl.TextAlign = 2 Set txt = CreateReportControl("Rep1", acTextBox, acDetail, , .Column(0, i), intSelectedNo * (lngWidth + 50), 5, lngWidth, 300) txt.BorderStyle = 1 txt.TextAlign = 2 intSelectedNo = intSelectedNo + 1 End If Next i End With DoCmd.OpenReport "Rep1", acViewReport ملحوظات : جعلت زر الخروج في التقرير يغلق التقرير ( من غير حفظ ) متجاوزا رسالة تأكيد الحفظ حفظ التقرير يسبب تراكم الحقول المصنوعة داخل الكود .. ومن ثم تظهر المشكلات والأخطاء ختاما لا تنسوني من دعواتكم الصالحة واتمنى ان تجدوا فيه الفائدة والمتعة اختيار حقول التقرير.rar

غيري جزء من السطر : Me.selected_list.Column(0, 1) الى Me.selected_list.Column(0, 0) ليصبح : If Me.selected_list.Column(0, 0) > 0 Then

الكود نفسه في حدث قبل التحديث لمربع التحرير وبدلا من الحماية نظهر الرسالة ونلغي الحدث Private Sub account_BeforeUpdate(Cancel As Integer) If Me.selected_list.Column(0, 1) > 0 Then MsgBox "لا يمكن تغيير نوع الحساب الا بعد حذف التحاليل المطلوبة" DoCmd.CancelEvent Undo Exit Sub End If End Sub LAB3.rar

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

If Me.selected_list.Column(0, 1) > 0 Then Me.account.Enabled = False Else Me.account.Enabled = True End If LAB2.rar

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

مكان الرسالة الصحيح هو في حدث زر الخروج وليس حدث اغلاق النموذج عدل الى الى هذا Private Sub أمر0_Click() If MsgBox("هل تريد الخروج", vbInformation + vbYesNo, "تنبيه") = vbNo Then DoCmd.CancelEvent Exit Sub Else DoCmd.Close End If End Sub

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

عمل استعلام مصدره جدول؟ او استعلام يقوم بإنشاء جدول؟

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

الجميل في هذا .. التوافق مع معالج اكسس لمستخدم النسخة الانجليزية .. لأن اكسس يعطي الازرار هذه التسمية Command1 و 2 ، 3 وهكذا انا لم ادقق كثيرا .. هل تسميات الحقول والاشياء الأخرى تتبع تسميات المعالج ايضا ؟

ما شاء الله تبارك الله سلمت الأنامل .. عمل جميل ورائع .. وطريقة علمية سلسة

ولمجموع النقود استخدم DSum

هذه محاولة مني استعلام وظيفته : عمل مقارنة بين جدول الاصناف والاستعلام الذي تمت تصفيته بين تاريخين 2.accdb

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

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

ما المشكلة ؟ حقل او عمود كما نسميه يبين نوع العملية .. 1 ، 2 ، 3 ، 4 : شراء ، بيع ، مرتجع شراء ، مرتجع بيع بالدالة او استعلام .. اذا جلبت مجموع العمود بشرط حقل نوع العملية = 4 يرجع لك مجموع مرتجع المبيعات كاملة ، واذا اضفت اليه شرط الصنف ارجع مجموع مرتجع المبيعات من ذلك الصنف

بارك الله فيك استاذنا هذا المبدأ او المصطلح عبارة عن (( تصور )) لتقريب العملية الحسابية وليس له وجود في السجلات فالمبيع مبيع / والمشتريات مشتريات / والمرتجع مرتجع صحيح مرتجع الشراء يمكن رصده في عمود المبيعات _ عند اعتماد الجدول الواحد_ ولكن بمصاحبة حقل يدل عليه وايضا ينطبق على مرتجع المبيع