ابوخليل

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

ليس أمامك الا التجربة نعم غالبا تكون السبب ..

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

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

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

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

عين الخط عند تحميل النموذج او في حدث الحالي للنموذج هكذا Private Sub Form_Current() Me.TabCtl0.FontName = "Zanest _ Dyar Bakr" End Sub

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

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

السلام عليكم ربما تأخر الرد عليك ... تأكد ان الكثير قد حاولوا يجدوا لك حلا المهم هو ان من اشار عليك بـــ فصل رصيد اول المدة بجدول يخصه .. لم يوفق اليس رصيد اول المدة يشتمل على دائن و مدين ؟؟ فلماذا لم يدرج في جدول الحركة ؟

جرب غير السطرين بهذين Dim db As DAO.Database Dim t As DAO.TableDef

وعليكم السلام ورحمة الله من سؤالك يتضح انك متمكن ... واليك الفكرة حسب تصوري ويلزم تحقق وجود الادوات التالية : 1- جدول الرسائل عام على قاعدة بيانات الشبكة .. يلزم وجود حقلين ( حقل يوزر المستخدم .... وحقل خانة : نعم /لا ) . 2- جدول محلي على كل واجهه فرعية ( يشتمل على سجل واحد فقط ) يتم فيه تسجيل يوزر المستخدم عند الدخول . 3 - نموذج الرسالة ( تضبط التايمر على دقيقة ) .. وزر نسميه : تمت القراءة عند ارسال الرسالة من احد الاجهزة الى مستخدم محدد تكون خانة التأكيد في الجدول= نعم : هنا النموذج نجعله يتفحص جدول الرسائل فإذا وجد سجلا يحمل اليوزر نفسه وخانة التأكيد= نعم .. هنا ينبثق ... أو يتلون اذا هو فرعي وظاهر عندما ننقر على زر : تمت القراءة يتم تحديث خانة التأكيد في الجدول الى : لا

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

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

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

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

جزاك الله خير ولكن لما تنقل البرنامج الى جهاز آخر تختلف دقة اشاشة فيه فأنت مضطر للدخول وتغيير الارقام لنفرض انك بعثت البرنامج لشخص آخر لذا الافضل ان نجعل البرنامج يغير الارقام آليا بناء على دقة شاشة الجهاز الجديد استبدل كودك بهذا : 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

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