.Azhar

وهذه طريقة اخرى بكتابة القليل من سطور VBA شرح بالفيديو http://www.youtube.com/watch?v=UO4HeWnuT3A

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

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

تفضل اخي كرر الخطوات اذا تريد اكثر من كومبو بوكس , وانظر الى الكود والاستعلام الذي تستند اليه مربعات التحرير والسرد Combo.rar

الله يبارك باستاذنا الغالي ابو خليل . عمل رائع شكرا لمروركم الكريم .

كان طلبك غير ذلك انظر للمشاركة الاولى لك . تفضل اخي انظر الى هذا الرابط

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

تم ارسالها لك اخي منذ يوم امس

ارفق لك مرفق اكسس وحسب ملفك المرفق Database8.rar

احفظ الصفحة من متصفح الانترنيت كتيكست ارفق ملف التيكست هنا

تفضل اخي العزيز . وللحفاظ على حقوق الناشر سوف ارسل لك كلمة المرور في رساله خاصة القاعدة المركزية.rar

انا مع الاستاذ ابو خليل حاول الشرح بصورة افضل لموضوعك . لاحظ هذا المرفق هل تقصد هكذا Database2.rar

افتح الاستعلام بالتصميم . اختر SQL ضع هذا الكود واحفظ الاستعلام . ثم من بعد ذلك قم بانشاء تقرير يستند لهذا الاستعلام . TRANSFORM Sum(Subjects.clase) AS SumOfclase SELECT Subjects.up, Subjects.do FROM Subjects, Student GROUP BY Subjects.up, Subjects.do PIVOT Subjects.Subject;

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

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

هذا الكود استاذ علي ctl.TopMargin = ((ctl.Height - lngHeight) / 2) هو قياسات بالبكسل

طيب استاذ علي جرب هذه الكودات Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) VerticallyCenter Me.txtCustomerID2 VerticallyCenter Me.txtCustomerName2 VerticallyCenter Me.txtTestMemo2 End Sub Private Sub VerticallyCenter(ctl As Control) Dim lngHeight As Long lngHeight = fTextHeight(ctl) ctl.TopMargin = ((ctl.Height - lngHeight) / 2) End Sub Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize VerticallyCenter Me.Label11 VerticallyCenter Me.Label7 End Sub

اهلا استاذ على جرب الكود على كل حقل على حده

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

راجع هذا الرابط http://www.officena.net/ib/index.php?showtopic=31250

شكرا جزيلا لك يا استاذ محمد

منور استاذ علي تفضل هذا مثال Database5.rar

الاكسس يختلف عن باقي برامج الاوفيس فهو ليس مثل الوورد والاكسل . الاكسس مجرد الانتقال من مربع نص الى مربع نص اخر يقوم الاكسس بحفظ السجل ذاتياً .

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

تفضل هذا التعديل Database1.rar