نجوم المشاركات

السلام عليكم ورحمة الله وبركاته في هذا الموضوع نريد ان نقوم بتحويل الرصيد المتبقية من المواد الى عدد العلبات و الكارتونات كم نعرف جيدا احيانا سنشتري اشياءاً بالحبة او العلبة و بها عدد من الحبوب او سنشتري بالكارتون و بها كم علبة من العلبات الحبوب لذلك قمنا بفتح هذا الموضوع لعل وعسى ان يكون هناك شخص ان يستفيد منه ........ في البداية قمنا بعمل جداول المطلوبة للشراء والبيع على الرغم ان هناك حقول لازم ان يكون متواجدة للعمل شراء والبيع لكن احنا عملنا حسب احتياجنا لكي نشرح الموضوع و هناك نقطة مهمة ... هنا كالعمل سنستخدم حبة للشراء والبيع والجدول المواد سيكون كالصور الاسفل اذا نلاحظه هناك حقل تسلسل و حقل كود المادة و اسم المادة و بيان عدد العلبات في الكارتون و البيان عدد الحبات في العلبة وعطيتنا لكلا الحقلين الاخيرين رقم صفر كرقم افتراضي احيانا سنشتري اشياءا ليس لهم كارتونات او العلبات فقط سنشتري بالحبة لذلك للمواد كهذا راح نضع رقم صفر -------- والان اشترينا المواد مرتين الاول اشترينا 4000 ميترو و اشترينا 187 بطل ماء وبعدين اشترينا 267 ميترو و اشترينا 188 بطل ماء و اشترينا 3220 اقلام اي يعني بالاجمالي اشترينا 4267 ميترو 375 بطل ماء 3220 قلم ------------ وبعدين بيعنا هذه العدد من المواد بعنا 200 ميترو و 134 قلم و 76 بطل ماء -------------- وفي الاخير قمنا بعمل استعلام الرصيد المتبقية بالحبة لكل مواد والان سنحسب الرصيد بالحبة 4267 - 200 = 4067 ميترو 375 - 76 = 299 بطل ماء 3220 - 134 = 3086 قلم شوف الاستعلام هناك اعمال كل مواد لديهم بالكارتون و العلبة و الحبة , من عندهم كل شي بالكارتون والعلبة والحبة يقدر يستخدم استعلام بالاسم QResid ومن عندهم مواد ليس لهم كرتون او علبة خلي بيستخدم استعلام QResid1 و يستخدم رقم صفر لتلك المواد وفي الاخير سنحول الحبات الى عدد الكراتين و العلبات بواسطة هذا استعلام خلي نتاكد من عملنا هل هو صحيح ام لا رصيد المتبقي من الميترو كان 4067 و كل علبة يساوي 24 حبة و كل كارتون يساوي 12 علبة اذاً عندنا 14 كارتون المتبقية * 12 عدد العلبات في الكراتين * 24 عدد الحبات في العلبة = 4032 حبة و 1 علبة * 24 علبة= 24 علبة و 11 حبات اذاً 4032 + 24 + 11 = 4067 وهذا الرقم صحيح المادة الثانية : pen قلم عدد الکراتین المتبقية 2 * 100 عدد العلبات في الكراتين * 12 عدد الحبات في العلبة = 2400 عدد العلبات المتبقية 57 * 12 عدد الحبات المتبقية = 683 و 2 عدد الحبات المتبقية المجموع = 2400 + 683 + 2 = 3086 وهذا الرقم صحية المادة رقم 3 : بطل ماء ليس لنا كراتين للماء اي يساوي صفر وعندنا 37 علبة وفي كل علبة يساوي 8 حبات اي 37 * 8 = 296 حبة و 3 حبات المتبقية اي المجموع = 296 + 3 = 299 وهذا الرقم ايضا صحيحة ولان ليس لدي وقت كافي اليوم غدا ان شاء الله سارد على الردود والمواد ك بطل ماء و الميترو القم تم استخدامه فقط للفهم و للمثال 😃 واليكم القاعدة لمعرفە عدد الکارتونات و الوحدات -.mdb تم استبدال المرفق و تصحيح الاستعلام الرصيد المتبقية بالحبة

السلام عليكم أولا أعتذر عن كتابة الكلمة بالانكليزية ولكن فعلا لا أدرى ما ترجمتها ولكن وصفها: هى رسالة صيرة مؤقتة تظهر للنبيه ثم تختفى كما بالصورة وللأمانة الموضوع ليس موضوعى ولا يمت لى بصلة ولكنى وجدته أثناء بحثى عن هذه الرسالة المؤقتة فوجدته قيم جدا وبه ما أردت وزيادة أضعاف أضعاف لذى أحببت مشاركته مع الأحبة لن أطيل سأترك لكم المرفق للفحص والمحص والتنقيب عن الدرر هذا المرفق وهاكم رابط الموضوع الأصلى https://stackoverflow.com/questions/39224308/non-blocking-toast-like-notifications-for-microsoft-access-vba ورابط التحديث https://github.com/krishKM/Modern-UI-Components-for-VBA ملاحظة بعد فك الضط يجب وضع ملف ال Dll فى نفس الفولدر الحاوى للبرنامج ومرفق نسختين من الملف للاصدارين 32 و 64 بت أرجو الالزام بشروط صاحب المرفق التى اشترطها لاستخدام مرفقه كما بالموضوع المشار اليه. تمنياتى بالتوفيق. ToastDllKrach.rar

اتفضل وهذا عربي تم استخدام هذا الكود Option Compare Database 'Option Explicit Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long Private Sub Command2_Click() On Error Resume Next DoCmd.SetWarnings False LoadKeyboardLayout "00000401", 1 retry: TempVars.Add "xv", InputBox(Space(5) & " ادخـل رقـم الـتـلـفـون ", Space(5) & " تنبيه") If TempVars!xv = "" Then If MsgBox(" يـجـب ادخـال رقـم الـتـلـفـون ", vbInformation + vbRetryCancel, "تنبيه") & Space(50) = vbRetry Then GoTo retry Exit Sub Else MsgBox "تـم الـنـسـخ بـنـجـاح ", vbInformation + vbOKOnly, Space(10) & "تنبيه" & Space(10) End If DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, [TempVars]![xv] AS Expr1, Students.Degree, Students.class " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0]) AND (([TempVars]![xv])IS NOT NULL));" DoCmd.SetWarnings True Me.Text0 = "" End Sub test36 (1).accdb

يسألونك دائماً عن ملف الصادر والوارد فكان هذا الملف الذي ارجو ان يستفيد منه اكبر عدد من المستخدمين فقط املأ الجدول بالبيانات اللازمة و حدد صفحة الترحيل واضغط على الزر من مميزاته: لا يسمح لك بتكرار رقم الصادر او الوارد لا يسمح لك بترحيل بيانات غير مكتملة Sader_Wared.xlsm

ارجو من كان عنده علم بما اريد ان يفيدنا بارك الله في الجميع

العفو أخي الكريم

شكراً أستاذى

السلام عليكم لم أنتبه إلى تعديل مشاركتكم لكن شاهد هذا إن كان كافياً test5deletion.mdb

Dim objdb As Access.Application Set objdb = GetObject("C:\db2.mdb") objdb.DoCmd.DeleteObject acForm, "formName" objdb.Application.Quit Set objdb = Nothing

السلام عليكم لم أعدل على البرنامج سوى طلبك test5deletion.mdb

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

انا عملتلك الكود دا بس فكرة D8 لسه موجود وتقدر من data validation تعدل كمية البيانات من البيانات الموجود فى A لاحظ انك بمجرد ما تختار الاسم هتدوس عليه هتدخل على عمرو وهتلاقى متفلتر جاهز ولما تدوس show all هتلاقى الكل ظهر ملحوظة :- مش لازم تفتح كذا موضوع على نفس المشكلة Payments Trial.xlsm

أخي الكريم تم دمج الموضوعين رجاءا : لاتكرر نفس الموضوع هذه ليست المرة الأولي

أشكرك استاذ كثير بارك الله تعالى فيك

هناك ثلاث حالات اولا : مواد بها بالكارتون و العلبة و الحبة -- نقدر نقول ( عنده ثلاث مستويات ) ثانيا : ليس لها كارتون فقط بالعلبة و الحبة -- ( عنده 2 مستوى ) ثالثا : ليس لها كارتون و العلبة فقط بالحبة -- ( مستوى واحد ) اي هنا قصدنا بالكارتون يعني اكبر من العلبة و اكبر من الحبة هنا ملاحظة : لا يجوز ان تكتب رقم اكبر من الصفر في الكارتون و تعطي رقم صفر في العلبة , بدل ذلك يجب ان تكتب في الكارتون صفر و العلبة الرقم الاخراذا كان في ذلك المواد 2 مستوى

الاستاذ / SHIVAN 1- جرب حضرتك بنفسك وضع مثلا في الصنف رقم الكود له 1313 وضع صفر في حقل(عدد الحبات في العلبة) وافتح الاستعلام QResid1 تجد ان الاستعلام لا يعطي الرصيد 2- الاجابة منكم كانت نعم لاضافة حقل نوع الوحدة اذا كانت كراتين تحول الي علب او حبات مباشر فيرجي تطبيق ذلك علي فاتورة الشراء والبيع بارك الله فيك

الاستاذ / SHIVAN الحمد لله قمت بالتطبيق علي المثال تبعي وكل شئ تمام عدا بعض الاستفسارات : اول استفسار : نفرض اننا نشتري الان مثلا 20 مترو من نوع كرتونه هل يلزم علي المستخدم ان يحول عدد الكراتين الي حبات قبل الدخول والتسجيل في فاتورة الشراء ؟ : كذلك عند عملية البيع مثلا سوف نبيع كرتونه (ماء) هل يلزم في الاول تحويل عدد البيع من كرتونه الي حبات قبل الكتابة والتسجيل في فاتور البيع ؟ وان كانت الاجابة نعم كيف يمكن التغلب علي هذا الوضع هل ممكن نضع في جدول الشراء والبيع حقل النوع (كرتونة ـ علبة ـ حبه) وعند الاختيار يتم التحويل مباشرة ؟ ثان استفسار هام جدا جدا : في جدول المسمي (tblitem) لو كتبنا في حقل (عدد العلب في الكرتونة) رقم صفر او تركناه بدون ارقام نروح لاستعلام الرصيد نلقي به خطأ لان ممكن اشتري او ابيع زجاجة ماء تعتبر حبه وليس لها عدد كرتونه فما الحل في هذه الحالة . ارجو ان يتسع صدرك حتي نصل الي افضل النتائج جزاك الله خيرا

تفضل المورد2.rar

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

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

اتفضل هذا طلبك الاول اعاده طلب ادخال الرقم وطلبك الاخير الاثنين معا دعوه صالحه تكفي abo yaseen.accdb

جرب هذا الملف Auto_date.xlsm

استخدم الدالة التالية وخدها اوتوفيل لتحت وفى الخلية P دوس كليك يمين واختار format cell ومن number اختار date =IF(OR(L1<>"",M1<>""),NOW(),"")

:: موضوع جميل .... شكرا لك اخ شفان ..🙂

بارك الله فيك استاذى الكبير

السلام عليكم لحل المشكلة الى ظهر معك اضف لك جملة Ptrsafeبعد كل كلمة Declare ليصبح السطر مكملا هكذا Public Declare PtrSafe Function وان ارد الزبادة بأن تترك الكود ليعمل على النظامين 32 و 64 بت فضع الكود بهذا الشكل #If VBA7 Then ' this for 64 bit sstem Public Declare PtrSafe Function () #Else ' this for 32 bit sstem Public Declare Function () #End If بالوفيق

الاستاذ / shivan فوق الممتاز ربنا يباركلك في اولادك واهلك وعدت وصدقت انا هاجلس الان واراجع كل كلمة وسوف ارسل لك ردي بعد الاطلاع خصوصا واني منتظر من امس افتح النت كل نصف ساعة جعله الله في ميزان حسناتك كل الاحترام

ممتاز اخي شيفان بارك الله فيك وجعله في ميزان حسناتك

جرب هذه الملف الكود Sub filter_for_ME() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim S_sh As Worksheet: Set S_sh = Sheets("Details") Dim T_sh As Worksheet: Set T_sh = Sheets("Statement") Dim My_Table As Range: Set My_Table = S_sh.Range("A4").CurrentRegion With T_sh .Range("a10").CurrentRegion.ClearContents .Range("q2").Formula = _ "=AND(Details!B5>=$B$6,Details!B5<=$B$7,Details!C5=$B$5)" My_Table.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=.Range("Q1:Q2"), _ CopyToRange:=.Range("A10") .Range("q2").ClearContents .Columns("B:G").AutoFit End With With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق المصاريف.xlsm

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

تفضل كل ما تريد واعتقد ان لا تحتاج غير ذلك توضيح2.xls

أهلا بك أولا.. أعتذر إليك وللزملاء عن وجود أخطاء إملائية في الشفرة السابقة.. تانيا.. بعد التصحيح.. أدرجت أسماء الأشهر بالعربي ضمن الوظيفة، وجعلت الشفرة تأخذ الاسم العربي المقابل لرقم الشهر الميلادي؛ وذلك لتفادي ظهور اسم الشهر باللاتيني للواجهات أكسس غير العربية.. وهذي هي الوظيفة بعد التعديل.. () '-- من الأفضل اقتباس الشفرة من قاعدة البيانات للهروب من مشاكل الترميز Public Function ConvertToGregDate(HijriDate As Date, F As Integer) Calendar = vbCalGreg Select Case F Case 0 ConvertToGregDate = Format(HijriDate, "yyyy/mm/dd") Case 2 '-- Show Arabic Month Names of Gregorian Calendar ConvertToGregDate = Choose(Format(HijriDate, "m"), _ "يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيه", "يوليه", _ "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر") End Select End Function إليك قاعدة البيانات بعد التطبيق.. db1.mdb

اخي الكريم انظر للصورة ثم الشرح هو أن الكود المصدري مع الكود الوسيط يتم حفظهما معاً ضمن ملف قاعدة بيانات الأكسس ذي اللاحقة mdb (أو accdb). بعد أن تكتب الكود المصدري بلغة VBA، يتم تجميعه compiled إلى كود وسيط يسمىp-code. عندما يعمل تطبيق قاعدة البيانات، ويستخدم أكواد VBA، تتم ترجمة هذا الكود الوسيط وتنفيذ الكود بواسطة الأكسس، ولذلك تحتاج إلى وجود الأكسس دوماً (أو على الأقل إلى وجود المكونات التي تقوم بالترجمة). السؤال الذي يطرح نفسه هنا هو التالي: مع ملاحظة أن الكود المصدري بلغة VBA قد تمت ترجمته إلى الكود الوسيط p-code ، ألا يعني هذا أن بإمكاننا الآن أن نتخلص من الكود المصدري، ونحتفظ بالكود الوسيط، ولن نخسر شيئاً؟ الجواب: بلى، بإمكاننا أن نتخلص من الكود المصدري، لكن هذا يعني أننا لن نستطيع القيام بأي تعديلات في الكود لاحقاً. في الحقيقة، الأكسس يوفر لنا هذه الخاصية من أجل حماية الكود المصدري من التعديل، وتقليص حجم ملف قاعدة البيانات. يتم ذلك عبر تحويل كل الأكواد المصدرية في الملف إلى كود وسيط p-code، ثم التخلص من الكود المصدري، وضغط الملف بعدها وتحويل الامتداد إلى mde (أو accde) بدلاً من mdb. ومن هنا تعرف السر في أنك لا تستطيع الاطلاع على أكواد ملفات mde، مع أن التطبيق يعمل بشكل كامل.

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

مشاركة مع اخي الكريم ايمن استاذنا العزيز ابو عبد الله اعتقد ان الامر ليس له علاقة بالبرنامج وانما هو خاص بامكانيات جهاز الPOS وعليه ممكن يكون السؤال كالتالي :- كيفية / طريقة عرض جزء معين من الشاشة الرئيسية ( شاشة الكاشير ) الي شاشة العميل ، بمعني كيف يمكنني اختيار جزء معين من الشاشة الرئيسية لعرضة علي شاشة الزبون . وهنا ارجع لاخونا ايمن ... ممكن تراجع الكتيب او الكتالوج المرافق للجهاز وتبحث عن هذه الخاصية . مع الشكر للجميع ...

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

SetOption "Behavior entering field", 2 وهذا الكود أيضا في حدث عند التركيز يفي بالغرض ولإلغائه نستخدم SetOption "Behavior entering field", 0