.Azhar

لاحظ هذا المثال استخدم جملة ORDER BY لمصدر البيانات الخاص بالمنسدلة SELECT Table1.id, Table1.na FROM Table1 ORDER BY Table1.na; Database1.rar

هل هو المطلوب Database1.rar

استاذ علي اذا كنت تريد ان تعرف اختصار عنصر تحكم او مربع نص انظر لهذا الموضوع . http://access.mvps.org/access/forms/frm0003.htm

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

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

اهلا بك اخي في منتدى اوفيسنا . سوف ارفق لك مثال عن كيفية اخفاء اطار الاكسس , لكن قبل ذلك لادلك اين تجد Pup up وكيف تغير خصائصه . انظر الى الصورة

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

اوك سوف ارفق مثال دقائق فقط

هل الكومبوبوكس يستند الى استعلام او ماذا

=DLookUp("[Field name]";"[table name]";"[IDCode] = '" & [Forms]![Form Name]![IDCode] & "'") اهلا بك في منتدى اوفيسنا استخدم الدالة : DLookUp

مساء الخير استاذ علي تقصد بأي سطر الخطأ وما هي رقم رسالة الخطأ ثانيا هل من الممكن ان توضح لي ماهي C1 الاولى وليست البين قوسين .

تفضل هذا كود لنقل سجل من جدول الى جدول اخر يجب ان تكون الفرومات لكل جدول على حدى . ماذا اعني بذلك ! عند نقل سجل من جدول لا يمكن نقله لنموذج يتبع نفس الجدول , واذا قمنا بذلك . اذن لماذا نقوم بذلك . Dim intSeat As Integer If MsgBox("Click ""Yes""سيتم نقل هذا القيد الى كذا ........ الخ الرسالة ", vbYesNo, "هل تريد نقل القيد ?") = vbYes Then intSeat = Me.Seat CurrentDb.Execute "Insert into master (*) SELECT , , FROM الجدول الذي كان فيه السجل WHERE Seat = " & intSeat CurrentDb.Execute "اسم الجدول الذي سيتم نقل السجل اليه * FROM اسم الجدول الذي كان فيه السجل WHERE Seat = " & intSeat Me.Requery End If

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

تفضل اخي

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

السلام عليكم استاذ علي استخدم هذا الكود لكن ما هو الحدث لهذه العناصر . Dim i As Integer For i = C1 To C27 Me("TStu2SBehTeam" & i).Value Next i

ماهو الورق الذي تستخدمه للطباعه ؟ اذا كان A4 فهذا تعديل واذا كان A3 فسوف تكون قد انشأت تقرير رائع . استمارة خطة تعاقدات العقود .rar

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

مجرد خطأ في الكود استبدليه بهذا DoCmd.OpenForm "aliform", , , "userid" = " & Me!userid"

مثال هذه الصورة لفاتورة نهائية

اكيد مختلفه ولذلك انا كتبته لك ايضا باللغة العربية والمقصود انه كيف تكتب الدالة حيث ان تفاصيل الطلب هو اسم الجدول مأخوذ منه حقل سعر المادة او سعر الوحده مضروب في الكمية مظروب ايضا في حقل الخصم مقسم على 100 ضرب 100 حيث هنا نستخدم في حقل الخصم نسبة مئوية , مثلا منتج سعره 10 دولار اريد خصم منه 1 دولار , فأكتب في حقل الخصم 1% تظهر النتيجة 9 دولار السعر النهائي .... وهكذا . واذا كان لديك حقول اخرى مثل اجور الشحن او غيرها .يمكن جمعها في الاستعلام مع السعر النهائي . او تريد من منتج معين عدم الخصم تضع 0 .

السعر النهائي: CCur ([تفاصيل الطلب] [سعر الوحدة] * [الكمية] * (1- [الخصم]) / 100.) * 100 Final Price: CCur([Order Details].[UnitPrice]*[Quantity]*(1-[Discount])/100)*100

ماذا تقصد لم نفهم كلامك بشكل كامل . هل من الممكن ارفاق ملف . او صورة لما تريد

لم افهم بالضبط ما تريد . هل تريد تصفية النموذج الفرعي ؟

مرحبا بك اخي في اوفيسنا تفضل هذا مثال لبرنامج ادارة المخزون , المثال لشركة ماكروسوفت . تستطيع التعديل او استنباط الفكرة من انشاء الجداول والنماذج والاستعلامات . او تستطيع التطوير عليه ادارة المخازن.rar