jamal2080

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

جزاك الله خيرا اخي موسى

هذا النمودج تقرير الاستلام 1 - استلام مواد مخزنية محلى 2 - استلام مواد مخزنية خارجية 3 - استلام مواد عشوائى وكل النمادج يوجد بة استلام جرئية وكلية

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

كيفية جعل صفحة عرض مناسبة مع جميع شاشات الحواسيب ضع هاذا التعريف فوق الفروم لود Dim ProportionsArray() As CtrlProportions وفي الفروم لود ضع هاذا الكود Informload() End Sub Private Structure CtrlProportions Dim HeightProportions As Single Dim WidthProportions As Single Dim TopProportions As Single Dim LeftProportions As Single End Structure Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize Resizeform() End Sub Sub Informload() On Error Resume Next Application.DoEvents() ReDim ProportionsArray(0 To Controls.Count - 1) For I As Integer = 0 To Controls.Count - 1 With ProportionsArray(I) .HeightProportions = Controls(I).Height / Height .WidthProportions = Controls(I).Width / Width .TopProportions = Controls(I).Top / Height .LeftProportions = Controls(I).Left / Width End With Next End Sub Public Sub Resizeform() On Error Resume Next For I As Integer = 0 To Controls.Count - 1 Controls(I).Left = ProportionsArray(I).LeftProportions * Me.Width Controls(I).Top = ProportionsArray(I).TopProportions * Me.Height Controls(I).Width = ProportionsArray(I).WidthProportions * Me.Width Controls(I).Height = ProportionsArray(I).HeightProportions * Me.Height Next

بعد السلام ... انشاء نمودج رئيسى مل الشاشة استعمل كود DoCmd.Maximize يفتح النمودج على شاشة التى استعمالة فى البيت 100% وحجمة 19 انش . ولكن فى العمل شاشة 24 انش يفتح نمودج مل الشاشة ولكن هناك مستطيل اطارات اخر متدخلة فى بعض. هل هناك طريقة معين . لكم منى كل احترام وتقدير

السلام عليكم ورحمة الله وبركاتة ارجاء المساعد فى طريقة بحث عن طريقة نمودج اخر Private Sub cmdSearch_Click() If Len(Me.txtSearch & "") = 0 Then MsgBox "رجاء ادخال رقم للبحث عنه" ElseIf DCount("*", "frm_RD", "report_No =" & Me.txtSearch) = 0 Then MsgBox "الرقم غير موجود" Else Me.Recordset.FindFirst "report_No=" & Me.txtSearch End If Me.txtSearch.SetFocus Me.txtSearch = "" End Sub

اخى لا اريد الرسالة الفترضي الاكسيس تظهر اريد اظهر رسالة تنبية خاص بى الكومبوبوكس خاص بالموردين وليس تاريخ

السلام عليكم ورحمة الله وبركاتة عندى الكومبوبوكس اريد عندى ادخال قيمة غير موجودة تظهر رسائل تنبية رسائل تنبية.rar

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

اخى ابوخليل وضع الكود نفس طريقة مانفع

https://filecr.com/windows/stellar-repair-for-access-pro/?id=322778273242هذا البرنامج هدية الى منتدى أوفيسنا

السلام عليكم ورحمة الله وبركاتة انا عند رقم تكون من رمز + رقم فاتورة + شهر + سنة RD 131129 02 23 ارجوا تعديل الكود Sub UpdateRDnum() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("receiptRD", dbOpenDynaset) With rs Do Until .EOF If IsNull(!RDnum) Or !RDnum = "" Then .Edit !RDnum = "RD" & !report_No & Month(Date) & year(Date) .Update End If .MoveNext Loop End With rs.Close Set rs = Nothing Set db = Nothing End Sub

يومك طيب اخى المهندس قاسم اريد احفظ البرنامج 2013 تخروخ رسائل خطاء ملف يشتغل على اوفيس 2016 ابس

سوف نقوم تغير على 2013

السلام عليكم ورحمة الله وبركاته انشاء علاقات بين الجدول ولكن فراغ الجدول من البيانات كثيرة عندم اريد استرجاع البيانات لا يقبل استرجاعها - هل توجد طريقة استرجاع البيانات دفعة وحدة فرزها من المكرر ارفاق لكم مثل طريقة الربط الجدول اسف نسيت مثل Database13.rar

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

هذا المرفق تفضل اقبل اى تعديل علية من الاخوة الكرام 1080.rar

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

تفضل اخى... هذا مثال الذى طلبته 1080.rar

اخى خليل بعد السلام وتحية طيبة.. عند رمز 57 و 58 و 70 خاص بالعهدة زارر اسمة car_2 غير ممكن عندى فتح النمودج اما 81 و69 قطع غيار سيارات عندى زارر اسمة car_1 غير ممكن عندى فتح النمودج

بعد التحية والسلام .. عندى مربع سرد وتحرير مربوط مع جدول وصف الطلبية قطع غيار السيارات واليات ثقيلة يرمز برقم 81 الاطارات الخارجية والنضائد يرمز برقم 69 اجهزة الحاسب الآلي محمول و ملحقاتها يرمز برقم 57 اجهزة الحاسب الآلي مكتبية و ملحقاتها يرمز برقم 58 الات تصوير مستندات يرمز برقم 70 عندما اختر 81 او 69 تفعيل زار امر Car_1 وغير ذلك يلغى تفعيل زار امر Car_1 عندما اختر 57 او 58 او 70 تفعيل زار امر Car_2 وغير ذلك يلغى تفعيل زار امر Car_2 هل هذا الكود Private Sub Leb_1_AfterUpdate() If Leb_1 = 81 Then Me.Car_1.Enabled = True Else Me.Car_1.Enabled = False End If If Leb_1 = 69 Then Me.Car_1.Enabled = True Else Me.Car_1.Enabled = False End If If Leb_1 = 57 Then Me.Car_2.Enabled = True Else Me.Car_2.Enabled = False End If If Leb_1 = 58 Then Me.Car_2.Enabled = True Else Me.Car_2.Enabled = False End If If Leb_1 = 70 Then Me.Car_2.Enabled = True Else Me.Car_2.Enabled = False End If End Sub

شكرا اخى المهندس قاسم لك منى كل احترام وتقدير

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

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