shod90

الأن و بعد أكثر من 4 أعوام أواجه مشكله و مره أخري لا يمكنني حلها 🤐

نفس الموظف دخل و خرج و أخذ إستأذان و مره أخري دخل و خرج .. نريد جمع الفترتين علي بعض من دون فتره الإستأذان

18 ساعات مضت, اكرم العريقي said:

ابدأ من هذا المثال قد يفيدك

https://wayprograms.blogspot.com/2021/06/print-from-more-than-printer-in-same.html

مشكور أخي الكريم و لكن للأسف هذا غير المطلوب

السلام عليكم .. 

حاليا بنواجه مشكله في الشركة ان الموظفيين بيطبعوا كتير و  غير مهم .

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

التحكم ممكن يكون بأشكال كتيره .. ممكن البرنامج يشوف لو المستخدم بيطبع أكثر من 10 صفحات في الملف الواحد مثلا يعمل Pause للأمر 

و ميكملش طباعة غير يبقي في لوحة تحكم معانا كقسم نظم و معلومات أو مع كل مدير قسم و بيبقي باين ايه اللي واقف طباعة و يعمله سماح مثلا فيكمل طباعة

و طبعا يبقي في تقارير مين طبع ايه و امتي و عدد الصفخ و هكذا ..

انا دورت كتير بس مش عارف شعله البداية منين بصراحة

شكرا حزيلاً

???

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

بحيث يظهر علي شاشة البرنامج نفس القيمة اللي علي الميزان ؟

أخي الكريم .. مشكورين علي هذا العمل العظيم و لكن لما بجربة عندي الأكسس بيحصل له إعاده تشغيل من دون ظهور الرساله المكتوبة ... هل ليها حل ؟

On 5/10/2021 at 1:04 PM, صالح حمادي said:

السلام عليكم و رحمة الله تعالى و بركاته

دكتورنا كيف حالك. إن شاء الله تكون بخير

هذا مثال لإظهار رسالة في شريط المهام دون الحاجة لأي برنامج آخر بالأكسس فقط

عرض رسالة على شريط المهام.accdb 476 kB · 79 downloads

ماشاء الله تبارك الله برنامج جميل و متعوب عليه - و لكن هل لي من طريقة أدخل الأصناف بالوحدات الرئيسية و الفرعية و البيع بهذه الوحدات ؟

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

بحيث أدخل مثلا

category : Laptop

Brand: HP

Model: elitebook 380 G5

Serial: G39SMSOA9

و بعد كده أرجع أضيف نفس المعلومات بسريال مختلف بحيث و أنا بعمل خروج لصنف مجرد اما أختار اسم الصنف يطلعلي السيريال الخاص بيهم و أول أما أعمل خروج ميظهرش تاني غير أما أعمل ارتجاع للصنف

4 hours ago, محمد أبوعبدالله said:

وعليكم السلام ورحمة الله وبركاته

ممكن انشىء جدول ثالث HistoryInoices بنفس مواصفات جدول InvoicesDetails

ثم استخدم استعلام الحاق يأخذ البيانات من جدول InvoicesDetails يضعها في الجدول الجديد HistoryInoices

وفي حدث قبل التحديث للنموذج BeforeUpdate قم بتشغيل الاستعلام

سيأخذ نسخة من البياتات

تحياتي

هجرب الحل دا و أشوف إن شاء الله .. شكرا أخي الكريم.

السلام عليكم و رحمة الله و بركاتة

عندي برنامج بيطلع فواتير و عروض أسعار 

لو أنا عدلت علي الفاتوره بيعدل علي الفاتوره القديمة و يسيب أخر تعديل 

حاليا أنا عايز زي History للفاتوره 

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

للعلم الفاتوره ليها subform لأني عامل 2 جدول مربوطين ببعض

Inoices , InvoicesDetails

للرفع

السلام عليكم و رحمه الله و بركاتة

عندي برنامج مبيعات صغير كنت عايز أفتح درج النقدية من الكود بدلاً من اني أوصل الدرج علي الطابعة و أول أما الطابعة تطبع يفتح الدرج

محتاج مساعدة عشان أكثر من شخص سألني علي الموضوع دا 

7 hours ago, ابوخليل said:

انظر الاستعلام 

اذا هو مطلوبك اجعله مصدرا للتقرير

ProductsTable2.mdb 312 kB · 2 downloads

فعلا هو المطلوب .. شكراً جزيلا

أتفضل أخي الكريم المرفقات

ProductsTable.rar

للرفع 

السلام عليكم و رحمة الله و بركاته

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

منتج أسمه بنادول أكستر .. عندي منه 10 كميات

3 كميات تاريخ الصلاحية 1/6/2019

5  كميات تاريخ الصلاحية 9/6/2019

2  كميات تاريخ الصلاحية 1/8/2019

شغل جميل ماشاء الله .. ياريت تستمر فيه و تزود اكواد لكي يكون مرجع للجميع

السلام عليكم أخوتي في الله

عندي نموذج بيعرض معلومات الموظفين بحالتهم (حضور و غياب ) و عندي Combobox فيه عرض الحاضرين و عرض الغائبين و الحمدلله الدنيا مظبوطة و شغال بحث 

أريد أن يكون هناك زر للطباعة بحيث عند البحث مثلا بالغائبين يطبع التقرير بالغائبين و هكذا .. 

سلمت يداكم و أسف علي الإطالة

On 1/21/2018 at 9:52 PM, jjafferr said:

وعليكم السلام

 

انت اخذت الطريقة الاصعب للفرز !!

الطريقة الاسهل هي هكذا:

 

او

.

واضفت خاصية تنظيف حقل البحث بالنقر عليه مرتين

 

جعفر

 

842.1.Attendance.mdb.zip

842.1.Attendance.accdb.zip

ماشاء الله تبارك الله .. كتير متمكن ماشاء الله عليك .. جعلة الله في ميزان حسناتك

السلام عليكم و رحمة الله و بركاتة

عندي مشكلة في النموذج المستمر (continuous form)

كما هو مرفق في الصورة عندي مرتبات الأشخاص إذا أردت زيادة المرتب لجميع الأشخاص بقيمة معينة مثلا 500 

بيغير المرتبات كلها بناءً علي أول مرتب و بكده كل المرتبات تبقي 5000

مع ان في موظفين رواتبهم أكثر و أقل من 4500 

هل من مساعد .. هذا هو الكود الخاص بي

اقتباس

    Dim sql_statment As String
    sql_statment = "update Employees set salary = " & Salary + SalaryIncrement & " where Category = '" & Cat & "'"
    DoCmd.RunSQL sql_statment

@jjafferr أخي الكريم .. عندما أنشئ نموذج و أريد أن أعمل حصر ما بين تاريخين لا يظهر نتائج .. فما الحل ؟ 

Attendance.rar

16 hours ago, jjafferr said:

لا يمكن بالطريقة الحالية ، لأن الامر يأتيه من الجدول

 

عندك طريقتين لعمل الذي تريده:

1. ان تجعل الحقول غير مضمنه (غير مرتبطه بحقول بالجدول) ،

يعني عند الذهاب الى سجل ، تأتي بالسجل من الجدول برمجيا ، ثم تُدخل هذه القيم في حقول النموذج ، وعند التغيير/إضافة وقبل الخروج من السجل يجب حفظ البيانات برمجيا ،

2. ان تعمل حقل مزيف/مؤقت لجميع الحقول او للحقول التي تريد تعمل المطلوب عليها ، بالإضافة الى الحقل الاصلmyDate : مثل tDate يعني تاريخ مزيف/مؤقت ، غير مضمن ، نوعه نص ،

عند تحميل السجل ، تقول برمجيا: me.tDate = me.MyDate

وعند حفظ السجل تقول برمجيا: me.MyDate = me.tDate

عندها ستظهر رسالة الخطأ على الحقل MyDate

 

جعفر

كم انت كبير يا أستاذ جعفر .. حفظك الله و رعاك

41 minutes ago, jjafferr said:

وعليكم السلام

 

جرب هاي الكود ، طبعا بعدما تغير اسماء الحقول

Private Sub Form_Error(DataErr As Integer, Response As Integer)

    'MsgBox DataErr & vbCrLf & Screen.ActiveControl.Name & vbCrLf & _
        Screen.ActiveControl.ControlType & vbCrLf & Screen.ActiveControl.Format
    
    If DataErr = 2113 And Screen.ActiveControl.Name = "iDate" Then
        Response = acDataErrContinue
        MsgBox "Date"
    
    ElseIf DataErr = 2113 And Screen.ActiveControl.Name = "icode" Then
        Response = acDataErrContinue
        MsgBox "Code"
    
    End If
    
End Sub

 

جعفر

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

هل في طريقة أتجاهل المشكلة غير في أخر النوذج و هو بيضغط علي حفظ يطلع له كل المشكلات المدخلة ؟

يعني مثلا يغير لون الخط أو يكون في علامة حمراء بجانب كل مربع و لكن يكونوا مخفيين و لما يكون في مشكلة في المدخلات تظهر ؟

السلام عليكم و رحمة الله و بركاتة

عندي نموذج فيه كود الموظف و تاريخ الميلاد

فرضا إذا ادخلنا حروف ليس تاريخ في حقل تاريخ الميلاد من المفترض أن تظهر لي رسالة علي سبيل المثال "قيمة تاريخ الميلاد غير صحيحة " و لكن لا أعرف كيف أفعلها لأن الرسالة الإفتراضية الخاصة بالأكسس تظهر لي و كودها 2113

جربت أن أغير نص الرسالة من حدث ONerror

Quote

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Const conErrDataType = 2113
If DataErr = conErrDataType Then
    MsgBox "قيمة تاريخ الميلاد غير صحيحة", vbInformation, "Easy Cash V.1.0"
     Response = acDataErrContinue
     End If
End Sub
 

و بالفعل نجحت .. و لكن إذا أدخلت كود الموظف حروف و ليس أرقام تظهر لي نفس الرسالة أيضا !! 

كيف يتم الفصل ما بين هذه القيمة و هذة القيمة 

 بارك الله فيك أخي جعفر .. هذا هو المطلوب بالظبط .. ماشاء الله عليك.