shod90

22 hours ago, Shivan Rekany said:

بعد ما خلصت انا

بعض من السجلات اي الموظفين بها 5 سجل لكل يوم

اي خرج و دخل وخرج ودخل وخرج في يوم واحد

لكن ساعمل على جزء من البيانات

وسافديك ان شاء الله

انا بس محتاج اعرف كيفية طرح سجلين متتاليين و إظهار الفرق ما بينهم .. اما بالنسبه لموضوع ٥ سجلات لكل موظف في اليوم لا تقلق لأن سوف يتم تعديل هذه السجلات بحيث يكون لكل موظف ٤ سجلات او اقل ( في حاله انه لم يخرج للبريك ) .. 

10 hours ago, kamel2711 said:

سلام  عليكم  

  اريد ان أضيف  أضافة  وتتعلق date    وكذاك لابدا من يكون  dateentree  and datesortie  ستقلين عن بعضهم البعض المثال التالي يوضح الفكرة اي حساب عدد الساعات  موجودة في الاستعلام

hhhh: Format([enddate]-[starddate];"Heure, abrégé")

 

 

Base de données21.rar

اخي الكريم هذا ليس بالمطلوب تحديدا ولكن مشكور للمساعدة 

17 minutes ago, Shivan Rekany said:

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

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

هو الفكرة كلها ان في ميعاد بريك الموظفين بيبصموا فيه أيضا

يعني المفروض للشخص الواحد 4 سجلات في اليوم

دخول الصباح

خروج البريك

دخول للمكتب مرة اخري

خروج من المكتب

لا يهمك السجلات اللي تلخبط ممكن واحد يسجل مرتين بالغلط

أنا همسح كل السجلات اللي لا معني لها بحيث يكون النتيجة كالأتي:

دخول 09:00 صباحا

خروج للبريك 11:45 صباحا

دخول الشركة بعد البريك 12:15

خروج من الشركة 05:05 مساءاً

أنا أريد أن أحسب عدد ساعات العمل في اليوم.

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

أنا أعمل حالا  علي برنامج حضور  إنصراف 

قابلتني مشكلة و هي الحضور و صف و الإنصراف في الصف اللي تحتة 

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

اليكم صورة للتوضيح

المتوقع تكون النتيجة :

05-03-2017 08:15 h:m
06-03-2017 08:50 h:m

attBackup.rar

up

29 minutes ago, wael_rafat said:

عليكم السلام

اخي الكريم هذه هي طبيعة عمل الباركود بعد الادخال ينتقل تلقائيا الي الحقل التالي نفس فكرة زر الادخال enter وكأنك ادخلت رقم الصنف ثم قمت بالضغط enter

وعلية ممكن تعدل بالكود عندك كالتالي 

بعد عملية الباركود ينتقل الي حقل الكمية بدلا من سجل جديد .

بمعني حقل الباركود ثم حقل الكمية ثم سجل جديد

اتمنى تكون وضحت الفكرة

بالتوفيق

 

أخي الكريم وضحت الصورة ولكن هذا ليس بالمطلوب 

ليس من المنطق كل صنف يتم تمريرة علي الباركود يتم كتابة الكمية بإستخدام الكيبورد !

و لنفترض ان هذا تم بالفعل .. نفترض ان الزبون لم يتم تصنيف المنتجات لإعطائة للكاشير

فهناك مثلا أرز و سكر و زيت

الزبون أعطي 2 أرز ثم 1 سكر ثم 1 زيت ثم 1 أرز مرة أخري .. ما العمل ؟ 

أكيد مش هيطلع تاني علي الأرز عشان يغير الكمية من 2 الي 3 

هل وضحت الفكرة ؟ 

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

انا شغال حاليا علي برنامج كاشير و اريد ان يتم التالي:

إذا الكاشير مرر للبرنامج منتج معين يتم زيادة العدد الي عدد مرات المرور

بمعني إذا مرر المنتج مرتين من علي قارئ البار كود يتم زيادة عداد الكمية ال 2 و لا يتم زيادة سطر أخر في البرنامج 

هذا هو حال البرنامج الأن

و انا اريدة مثل هذا 

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

أنا أعمل حاليا  علي برنامج حضور  إنصراف 

قابلتني مشكلة و هي الحضور و صف و الإنصراف في الصف اللي تحتة 

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

اليكم صورة للتوضيح

المتوقع تكون النتيجة :

05-03-2017 08:15 h:m
06-03-2017 08:50 h:m

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

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

انا كتبت كود لتحديث سطر سطر ولكن أريد ان يتم التحديث أوتوماتيكاً عند النقر علي هذا الزر ... إليكم الكود

 sql_text = "UPDATE Products " & _
    "SET qty = " & qtyRemain & _
    " WHERE كود_المنتج = '" & code & "'"
    DoCmd.RunSQL (sql_text)

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

sub btnInsertDates_click()

dim vDate

dim sSql as string

docmd.setwarnings false

vDate = txtStartDate

while vDate <= txtEndDate

sSql = "insert into table ([Project ID], [Work items],Description,Date,Hours) values (" & txtID & ",'" & txtWork & "',#" & vDate & "#," & txtHrs & ")"

docmd.runSql

sSql vDate = DateAdd("d",1,vDate)

wend

docmd.setwarnings true

end sub

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

عندي برنامج إدخال بيانات للموظفين 

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

عايز أعمل تعديل صغير بحيث فلنفترض ان الموظف عندة نفس الشغل مكرر 3 أيام

بدل أما يدخل نفس المدخلات 3 مرات مع إخلاف التاريخ

كنت عايز أعمل حقلين الأول "تاريخ من " و الثاني "تاريخ الي" ولو كان شغال أكثر من يوم في نفس الشغل 

المفروض قاعدة البيانات تدخل ال 3 سجلات مع إختلاف التاريخ فقط .. أتمني ان اكون وصلت الفكرة لكي يتم مساعدتي :) 

للأسف لم تعمل ايضا :( 

20 hours ago, Mostafa Elmahmoudy said:

انشىء هذه الوحدة النمطية بإسم   mod_Mouse_Wheel

 

Option Compare Database

Public Function DoMouseWheel(frm As Form, lngCount As Long) As Integer
On Error Resume Next

Dim strMsg As String
If (Val(SysCmd(acSysCmdAccessVer)) >= 12#) And (frm.CurrentView = 1) And (lngCount <> 0&) Then
RunCommand acCmdSaveRecord
RunCommand IIf(lngCount < 0&, acCmdRecordsGoToPrevious, acCmdRecordsGoToNext)
DoMouseWheel = Sgn(lngCount)
End If

DoCmd.CancelEvent
Response = False
End Function

 

 

ثم ضع هذا الكود فى التقرير على حدث on Mouse Wheel

 

Private Sub Report_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)

'Call DoMouseWheel(Me, Count)
End Sub

و بالتوفيق انشاء الله

للأسف ظهرت رسالة خطأ

بعد التجربة أكتشفت ان بعض الأجهزة لا يعمل عليها البرنامج و يقوم بإعطاني هذة الرسالة :( 

Up

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

عندي مشكله بسيطه و لكن مزعجة في القارير 

لو نتيجة التقرير اكبر من طول الشاشه فالطبيعي يبقي في scrollbar اقدر من خلاله انزل لباقي التقرير

و الطبيعي ايضا اني لو استخدمت عجله الماوس للنزول انه ينزل .. و لكن هذا لا بحدث .. يجب الضغط علي ال scrollbar عشان ينزل لباقي التقرير 

Up

On 3/26/2016 at 1:43 PM, كرار صبري _ أبو جنى said:

انتظر ... فضلا ... 

انتظرت سنه 

13 minutes ago, jjafferr said:

الانترنت مليان امثلة

 

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

 

جعفر

تحياتي استاذ جعفر .. سأتعمق في هذا لأني اريده بشدة

هااااايل .. سيتم التجربه ثم اعطيك رأيي .. استمر في الإبداع 

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

عندي مشكله بسيطه و لكن مزعجة في القارير 

لو نتيجة التقرير اكبر من طول الشاشه فالطبيعي يبقي في scrollbar اقدر من خلاله انزل لباقي التقرير

و الطبيعي ايضا اني لو استخدمت عجله الماوس للنزول انه ينزل .. و لكن هذا لا بحدث .. يجب الضغط علي ال scrollbar عشان ينزل لباقي التقرير 

21 hours ago, jjafferr said:

السلام عليكم

 

الميزة في هذ الطرقة انك تتحكم في إظهار المجلدات والملفات ، مثلا:

• تستطيع ان تُظهر ملفات بصيغ معينه فقط ، او لا تُظهر ملفات بصيغة معينة ،
• تستطيع ان تُخفي ملفات اسمها فيه احرف معينة ، مثلا اذا كان عندك ملف اسمه jj.doc ، وكنت تعمل نُسخ منه وتسميها jj_01.doc و jj_02.doc ، فيمكنك وحسب صلاحيات المستخدم ان تُظهر ما تريد وتخفي الباقي
• ونفس الشئ مع المجلدات

 

جعفر

ممتاز  .. هل هناك دروس للعمل علي هذا العنصر ( treeview )

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

عندي برنامج للموظفين إدخال بيانات ما تم عملة طوال اليوم و يحسب في اخر الشهر عدد ساعات العمل لكل موظف

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

تم حل المشكلة .. اخترت Application.FileDialog(msoFileDialogFolderPicker)

و تم حل المشكلة .. ممكن ما أخدت بالي منها في الأول 

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

لقد نجحت بفضل الله أن أدرج كود خاص بفتح نموذج open file dialog.

ولكن هناك شئ غريب سأعطي مثال للتوضيح

نفترض عندي فولدر رئيسي بإسم ( فولدر 1) , هذا الفولدر داخلة فولدر 2 و داخلة فولدر 3 

أنا أريد أن اختار فولدر 2 فقط لكي يعطني مسارة لا أريد ان يأخذني لأخر فولدر 

كيف ؟ جربت جميع انواع الفولدر ديالوج و لكن لا فائدة

10 hours ago, jjafferr said:

جرب هذا الـ TreeView (نفس الملف من الرابط) ، وقد عملت عليه بعض التعديلات:

1. الزر اليمين لا يعمل ،

2. يفتح النموذج مباشرة على \:D

 

جعفر

SampTree_StartFolder.zip

أخي جعفر أعجز عن الشكر الصراحة :)

ممتاز هذا الشغل و خصوصا انه لا يمكن أخذ نسخ ولا قص حتي 

حياك الله