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

تفضلي 1. عملنا نموذج فيه التاريخ من/الى ، 2. عملنا استعلام مجموعي ، لحساب عدد الغياب فقط بين التاريخين ، والموظف الذي يملك عدد غياب اكبر من يومين ، يتم ارسال اسمه الى الوحدة النمطية Check_Abs . تقوم الوحدة النمطية بمقارنة اليوم rst!Date ، باليوم السابق + يوم (DateAdd("d", 1, Prev_Date)، واذا كانت النتيجة متساوية ، يقوم العداد Seq بجمع الايام ، Function Check_Abs(EN) 'EN = Employee Name Dim rst As DAO.Recordset fD = [Forms]![frm_Days]![Date_From] eD = [Forms]![frm_Days]![Date_To] myCriteria = "[Emp_Name]='" & EN & "'" myCriteria = myCriteria & " And [Leave_Type]='غياب'" myCriteria = myCriteria & " And [Date] Between " & DateFormat(fD) & " And " & DateFormat(eD) 'Set rst = CurrentDb.OpenRecordset("Select * From Enterans_Absent Where [Emp_Name]='" & EN & "' And [Leave_Type]='غياب' And [Date] Between '" & DateFormat(fD) & "' And '" & DateFormat(eD) & "'") Set rst = CurrentDb.OpenRecordset("Select * From Enterans_Absent Where " & myCriteria & " Order by [Date]") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount Seq = 1 Prev_Date = rst![Date] For i = 1 To RC If rst![Date] = DateAdd("d", 1, Prev_Date) Then Seq = Seq + 1 End If Prev_Date = rst![Date] rst.MoveNext Next i If Seq >= 3 Then Check_Abs = Seq & " ايام متتالية" Else Check_Abs = RC & " ايام غير متتالية" End If rst.Close: Set rst = Nothing End Function . والنتيجة: . جعفر 527.مثال 5.accdb.zip

وكما لاحظنا بأن أخونا ابراهيم وقع في مأزق كبير أجبره على تغيير نمط تفكيره في مشاركة الملفات، وبعد التشاور مع بعض زملائه المختصين في التقنية توصل بأن يُرجع كل ملف إلى صاحبه وأن يجعل مجلد المشاركة خالياً من ملفات الإكسيل، ويقوم بفكرة ذكية هي أخذ نسخة من ملفات المندوبين إلى المجلد ويقوم هو بالتعامل مع النسخ في التقارير، يعني إيه؟ وما هي الملفات اللي راح ننسخها داخل المجلد غير ملف الإكسيل؟ في الحقيقة لا ينبغي قراءة الإكسيل من ملف إكسيل مماثل ، بل يفضل استخدام الصيغ البسيطة التي تكون ضمن ملفات نظام الكمبيوتر مثل txt.* أو csv.* وغيرها من الصيغ الأساسية. بمعنى أن تكون هيكلة الملفات كالتالي: ملفات بصيغة txt أو صيغة csv ؟!!!! وكيف أٌنشئها؟ وكيف أتعامل معها عن طريق الإكسيل؟ وهل ستنجح الفكرة؟ كل هذا سنجيب عليها لاحقاً بمثال عملي.. فقط تابعونا

تفضل هذا مثال على كل حالة إضافة التنسيقات لمربع نص.rar

أخي رمهان لو أننا نكتب هذا الكود DatePart("d";3) سوف يعطينا النتيجة 2 يعني أنه ينقص 1 يوم دائما من الدالة التي تحسب الفرق بالأيام Diff("d";;Date()) لذلك أضطررت لإضافة 1 لناتج الدالة كذا "1+Diff("d";;Date())". أما بالنسبة لــ-1 في عبارة الأشهر ذلك لأنه عندما تضع مثلا DatePart("m";5) يعطيك الناتج 1 شهر و أيض DatePart("m";35) يعطينا الناتج شهرين بينما هي أقل من ذلك. بالنسبة للسنوات إذا وضعنا هذا الكود مثلا DatePart("yyyy";2) فإن الناتج يكون 1900 يعني هو يبدأ الحساب من 1900. أنا إجتهدت و هذا الحل هو الذي أعطاني أكبر دقة.

حساب العمر.rar إليك الحل أخي عبد العزيز لقد أضفت ذلك في مشاركة سابقة

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

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته دعائي لكل الأخوة الأعزاء والمشرفين والقائمين على هذا المنتدى الكريم بسنة مباركة عامرة بالتقدم والأزدهار وحسن العاقبة إن شاء الله عملت قاعدة بيانات وفيها نموذج أدخال معلومات الموظفين emploey ويتم ادخال مفردات الراتب من خلال فورم ratib وهو على مدار السنة لايتغير الا بحصول متغيرات شهريه مثل زيادة في الراتب أو تغيير بقطع اداري او مالي والمطلوب هو أنه عند إكتمال إدخال راتب لشهر كانون الثاني 2014 مثلا" ... يتم عمل تقارير كامله بمفردات راتب كل فرد على حدة أولا" وتقرير كامل لجهات العمل بصورة جماعية ..... وكذلك أن يكون هناك فورم لعمل المتغيرات على راتب كل موظف بجلب بيانات راتبه كلها ونغير فيها لتطبع للشهر الذي يليه , بمعنى التغيير يحصل فقط للأفراد الذي لديهم متغيرات وأذا لاتوجد متغيرات تظهر معلومات الشهر التالي شباط مثلا" وهكذا forat_personal.rar

السلام عليكم اتنمى من الله ان تكونوا في صحة وعافية جميعا اخوتي لدي قاعدة البيانات وحاليا احاول تجهزيها لتقسيمها لمشاركتها عن اكثر من مستخدم عبر سرفر او شبكة داخلية السؤال هل ممكن تقسيم قاعدة البيانات وفي نفس الوقت تحويلها الى برنامج تنفيذ هل يمكن ان يتم الاجراءين (التقسيم، وتحويل الى برنامج تنفيذ) واذا كان ممكن ماهي الخطوة الاول التقسيم او التحويل خالص مودتي لكم

السلام عليكم و رحمة الله تعالى و بركاته أخوتي الكرام حياكم الله أردت في هذه المشاركة توضيح فكرة إضافة أكثر من تنسيق لمربع نص واحد و كما نعلم جميعنا فإن هذا الأمر غير موجود في الأكسس لذلك نضطر للإستعانة بلغة HTML و سوف أقوم بشرح و توظيف هذه الفكرة قدر المستطاع من أجل فك اللبس على هذه المشكلة التي طالما تعيقنا في إنشاء البرامج. على بركة الله فلنبدأ بالشرح: تغيير لون الخط: "<font color=""red"">" & "صالح حمادي" & "</font>" هذا الكود سوف يقوم بتغيير لون العبارة "صالح حمادي" إلى اللون الأحمر "<font color="red"">" هذا الجزء لفتح خاصية اللون و إعطائها اللون الأحمر في هذا المثال "</font>" و هذا الجزء لإغلاق هذه الخاصية جعل النص غامق: "<b>" &"صالح حمادي"& "</b>" يستعمل هذا الكود لجعل خط النص المحصور بينه إلى غامق جعل النص مائل: "<i>" &"صالح حمادي"& "</i>" يستعمل هذا الكود لجعل النص مائل التسطير تحت النص "<u>" &"صالح حمادي"& "</u>" تغيير نوع الخط: "<font face=""times new roman"">" & "صالح" & "</font>" يستعمل هذا الكود لتغيير نوع النص المحدد في هذا المثال وضعت نوع النص "times new roman" تغيير حجم الخط: "<font size=""24"">" & "صالح" & "</font>" هذا الكود يقوم بتغيير حجم الخط في هذا المثال حجم الخط هو 24 ملاحظة: يجب تغيير خاصية مربع النص "تنسيق النص" إلى "نص منسق"

هذا خاص بإصدار 2007 فما فوق حسب علمي

عفوا ما فهمت اعملي التغيير على المرفق ، واعطيني مثال من البرنامج جعفر

جربي المرفق واخبرينا عن النتائج جعفر

هذا يرجع الي اصدار الويندوز لديك فمثلا الصورة المرفقة هي لويندوز اكس بي وفي ويندوز 8 يمكنك تغيير لون الاطار كما تحب هذا والله اعلم

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

طيب كيف اكتبة في الكود

انااريد ان اضع في قائمة مينيو

شو رأيك بهذه النتيجة

شكرا جزيلا شرح رائع

وعليكم السلام جرب الكود التالي Sub Test() Dim wsControl As Worksheet Dim wsData As Worksheet Dim wsDB As Worksheet Dim i As Long Dim lrwsData As Long Dim lrwsDB As Long Dim newlr As Long Dim cel As Range Dim rg As Range Application.ScreenUpdating = False Set wsControl = Sheets("Control") Set wsData = Sheets("Data") Set wsDB = Sheets("DB") Set rg = wsDB.UsedRange.Columns(2).Find(CDate(wsControl.[G1].Value2), , xlValues, xlWhole) If Not rg Is Nothing Then MsgBox "Date Existed", vbExclamation: Set rg = Nothing: Exit Sub lrwsDB = wsDB.Cells(Rows.Count, 5).End(xlUp).Row + 1 lrwsData = wsData.Cells(Rows.Count, 4).End(xlUp).Row For i = lrwsData To 2 Step -1 If Len(wsData.Cells(i, 4)) > 0 Then lrwsData = i: Exit For Next i wsData.Range("D2:BG" & lrwsData).Copy wsDB.Range("E" & lrwsDB).PasteSpecial xlPasteValues wsDB.Range("B" & lrwsDB).Value = wsControl.Range("G1").Value wsDB.Range("C" & lrwsDB).Value = wsControl.Range("G2").Value wsDB.Range("D" & lrwsDB).Value = wsControl.Range("G3").Value newlr = wsDB.Cells(Rows.Count, 5).End(xlUp).Row For Each cel In wsDB.Range("A" & lrwsDB & ":A" & newlr) cel.Value = cel.Row - 2 Next cel Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

وعليكم السلام اختي لوسمحتي تعطينا معلومات اكثر عن طلبك: 1. هل سوف تطلبين البيانات بين تاريخين؟ 2. اذا كان جوابك نعم ، واذا طلبتي البيانات لفترة شهر مثلا ، وكان هناك 3 ايام غياب متتايه ولكن لأكثر من مرة ، فماذا تريدين شكل رسالة التنبيه؟ 3. كم عدد الموظفين جميعا تقريبا؟ جعفر

برنامج متابعه الشيكات المرسله للتحصيل m.ajore@yahoo.com.rar

السلام عليكم أخي الكريم جرب هذا الكود Sub BOQ() For s = 1 To Sheets.Count Sheets(s).Select x = Cells.SpecialCells(xlCellTypeLastCell).Row For r = 8 To x If IsNumeric(Cells(r, "G")) = False Then Cells(r, "D").FormulaR1C1 = "=RC[2]*RC[4]" Next r Next s End Sub مرفق الملف وبه الكود BOQ.rar

السلام عليكم حل سريع بالجداول المحورية تفضل New Microsoft2.rar

صحيح أستاذ جعفر شكرا أنا لم ألاحظ ذلك معذرة أستاذي

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

يقصد الاستاذ محمد : احذف الجداول المرتبطة ثم اعد الربط

السلام عليكم هذه تظهر دائما عند النسخ واللصق اذا كان فيه حروف عربية بين الاكواد وهذه هي على الصورة الصحيحة Call MsgBox("مطلوب قم بتحديده واختياره (BData.mdb) ملف البيانات", vbCritical) واسم قاعدة البيانات الظاهرة تخصني وعليك بتعديلها الى قاعدة الجداول عندك

السلام عليكم أخي الكريم حسين أعتذر عن عدم قدرتي على تقديم المساعدة ، حيث أنني منشغل في أمور خاصة ولا أجد الوقت الكافي للعمل على طلبك إن شاء الله يستطيع الأخوة الكرام بالمنتدى محاولة تقديم المساعدة ولو بشكل مبدئي بحيث يكمل بعضنا بعضاً

إذا كنت تستخدم التقرير للطباعة على قالب شهادة ورقي فيمكن عمل التالي: .. وضع مكون المتصفح في التقرير وضبط أبعاده بما يتوافق مع قالب الشهادة. .. تحديد الأبعاد التي تريد الطباعة فيها، ومن ثم ضبط عناصر هتشمل بما يتوافق مع متطلباتك. *** فائدة عناصر هتشمل يمكن ضبطها بأي نوع من المقاييس وبدقة متناهية! هي عندي أسهل بكثير من تقرير أكسس. سم بالله وابدأ بإعطائنا أفكارك وتصاميمك ونحن مع..

تفضل هذا الموضوع يقوم بشرح المطلوب بالتفصيل

السلام عليكم و رحمة الله تعالى و بركاته بعد إذنك أستاذ أبوخليل لقد قمت بوضع مشاركة أشرح فيها هذا المطلوب بالتفصيل:

تفضل هذا رابط اتمنى تجد فيه بغيتك

الفكرة الثانية: ظن ابراهيم بأنه لو أنشأ ملف إكسيل يقوم فيه بعملية تجميع ملفات المندوبين بالمعادلات هي الطريقة السليمة تجنبه فتح ملفات المندوبين كالتالي: ومن هنا يضمن ابراهيم تحديث الملف حين فتحه بما لا يتعارض مع المندوبين، فيا ترى هل ما قام به يعتبر صحيح، وما هي المشاكل التي سيتعرض لها، تابعوووونا.

مرحبا احبتي الفكرة التي طرحتها لا يوجد بها حذف او اضافة وليس بمفهوم جدول مؤقت بقدر ماهو تلبية للمطلوب ! البيانات ثابته هذا مرفق استاذ ابا خليل يوضح ماقصدت واستاذنك في التعديل في الكود هذه فكرة ان وضعت شرط عند فتح التقرير ويمكن الاستغناء عنه بمساعدة الخاصية اعلى القيم للاستعلام وتكون متغيره حسب قيمة المربع تحياتي rep2.rar وبالنسبة لعدد النسخ اعتقد ان الحل لديك ولك مشاراكات بذلك استاذنا

استاذي الكريم ياسر خليل أبو البراء اشكرك على تجاوبك وتعاونك وادعو الله ان يبيض وجهك و يشرح صدرك و يرفع قدرك و يعلي كلمتك و يوفقك في حياتك و يسعدك بعد مماتك و يقضي عنك دينك و يوسع في رزقك و يبارك لك في يومك و يجعل محبتك في قلوب عباده و يسخر لك من تعرف ومن ﻻتعرف و يجعلك مبارك في الدنيا و مغفوراً ذنبك في الآخرة و يحميك من عين الحاسدين و من نظرات الشياطين و يرزقك برزق ليس له حدود و يسخر لك كل الجنود و يهدي بالك و يريح قلبك و يغفر لك كل خطيئة علمت بها أو لم تعلم بها و أسأل الله الكريم أن يرزقك الفردوس الاعلى من الجنة و أسأله أن يعيذك من جهد البلاء و درك الشقاء و سوء القضاء و شماتة اﻷعداء كما أسأله أن يعيذك من زوال نعمته و من تحول عافيته و فجاءة نقمته و جميع سخطه و أسأله أن يرضى عليك رضاً ﻻ يعقبه سخط والله يجزاك الجنة ووالديك وذريتك ومن تحب انت وانا وجميع المسلمين اللهم آمين و صل اللهم على سيدنا محمد و على آله وصحبه وسلم تسليمآ كثيرآ

السلام عليكم اليكم الطريقة كاملة نقوم بانشاء ملفات مثلا كتالي نفتح ملف الاكسل ولنفرض المشتريات ونقوم بعمل الفورم المطلوب للعمل نكر العملية لجميع الملفات المطلوبة نحفظ الملف ونقوم بتفح قاعد ةالبيانات واتبع الصورة / يجب ان يكون هناك جدول واحد على الاقل في القاعدة ليقبل الخيار الاخير كرر العملية نفسها لجميع الملفات اصبح لدينا الان ثلاث جداول اكسل داخل قاعدة البيانات افتح تصميم استعلام واتبع الصورة يجب ان تقوم باضافة جميع الخانات الى الاستعلام لكل جدول استعلام خاص به اخيرا قم باختيار طريقة عرض SQL وانتبه الى جميع الاضافات ان تكون موجودة ثم احفظ كرر العملية نفسها ليصبح لديك 3 استعلامات افتح ملف الاكسل باسم مدير واتبع الصورة حدد الاستعلام المطلوب واتبع الصور تم استيراد البيانات بنجاح الان قم بفتح ملف المشتريات مثلا واكتب به ثم احفظ اذهب الى صفحة المدير واختر بيانات وتحديث الكل وشاهد النتيجة مبروك عليك انتهى الشرح الان فكر بعمق كيف تستطيع ربط جمع الصفخات او المستخدمين ببرنامجك حسب ماتريد انت وشكرا تحميل الصور والملفات والشرح http://www.up-00.com/?rIXR ايضا تستطيع رفع قاعدة البيانات على الشيربونت او موقع مشاركة للعمل على الشبكة او الانترنت مثلا انت في مصر والموظف في السعودية والمراقب في سوريا يستطيعون العمل معا على قاعدة واحدة عبر الشير بونت او موقع مشاركة وشكرا

مشكور اخ صالح انا اقصد التعبير التالي للسنوات =DatePart("yyyy";(DateDiff("d";[b];Date()))+1)-1900 من اين جاءت 1900 ولماذا بالناقص ؟ ولماذا اضفنا واحد ؟ وكذلك التعبير التالي للاشهر DatePart("m";(DateDiff("d";[b];Date()))+1)-1 لماذا +1 ثم -1 ؟! ياليت تشرح فكرة الحل وليس شرح الدالة تحياتي

اهلا بك الاستاذ عبدالعزيز في منتدى الاكسس وتشرفت بالرد ضع التعبير التالي في حقل جديد باستعلام جديد Expr1: DateDiff("yyyy";[birth];Date()) وتم استخدام الدالة datediff لحساب فرق السنوات بين تاريخين حيث اصبح التاريخ الثاني هو دالة تحسب تاريخ اليوم بالتوفيق

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أحياناً ما تحدث بعض المشاكل عند التعامل مع النوافذ الموجودة في محرر الأكواد .. كأن تختفي نافذة أو تتحرك نافذة من مكانها الذي تعودنا عليه ، وعند محاولة إرجاعها إلى مكانها لا نستطيع .. أنا مؤمن بمبدأ : بدلاً من تضييع الوقت في محاولة ترقيع الثوب المهلهل .. عليك بشراء ثوب جديد .. (وفر وقتك وفلوسك واحصل على نتيجة أفضل) أقصد من كلامي بدلاً من الخوض في تفاصيل معرفة حل المشكلة وقد يضيع الوقت في محاولة الحل وفي النهاية قد لا تصل لنتيجة مرضية أو يمكن أن تصل لنتيجة ويحدث خطأ في نقطة أخرى المهم موضوعنا عن كيفية إعادة ضبط إعدادات محرر الأكواد .. 1- اقفل برنامج الإكسيل (أو الأوفيس بشكل عام) 2- روح لقايمة Start في الويندوز ثم الأمر Run واكتب الأمر regedit للدخول إلى ريجستري الويندوز 3- روح لهذا المسار HKEY_CURRENT_USER\Software\Microsoft\VBA\6.0\Common\ بالنسبة للرقم 6 قد يكون مختلف حسب نسخة الويندو سواء كانت 32 بت ستجدها رقم 6.0 أما 64 بت فستجدها 7.1 أو 7.0 4- المهم ادخل على المجلد المسمى Common ، اعمل عليه كليك يمين ثم Delete (جمد قلبك ومتخافش .. لو حصل حاجة أنا مش مسئول) هتخرج لك رسالة تأكد الحذف .. انقر نعم يا بطل ومتخافش ..الويندوز هيسقط بس 5- افتح برنامج الإكسيل .. من لوحة المفاتيح اضغط Alt + F11 لتجد نسخة جديدة من محرر الأكواد (محرر الأكواد في ثوبه الجديد) كأنك لسه منصب أوفيس جديد ****************************** يمكنك إعادة ضبط الإعدادات التي تريدها .. الإعدادات التي أقوم بضبطها بشكل شخصي هي كالتالي : ** بعمل Maximize للنافذة اللي قدامي عشان تكون الصورة أوضح ** من Tools ثم Options أعلم علامة صح على الخيار Require Variable Declaration عشان أضيف السطر الخاص بإجبار المبرمج على الإعلان عن المتغيرات .. السطر دا بيكون شكله كالتالي Option Explicit ** من نفس النافذة أشيل علامة الصح من أول خيار Auto syntax Check عشان وأنا بكتب وغلطت متظهرش رسالة تنبيه بالخطأ ( واحد هيقولي طيب دي خاصية مفيدة .. ماشي كويس بس بتعطلني عن كتابة أسطر الكود ..يكفي أنني أرى السطر باللون الأحمر بعد الانتهاء منه .. هذا تنبيه كافي ) ** من نفس النافذة بدخل على التبويب المسمى Editor Format ثم أغير حجم الخط Size عشان أشوف أسطر الكود بشكل واضح ، ثم أوك في النهاية ** على يمين شريط الأدوات بعمل كليك يمين في مكان فارغ وبختار شريط Edit وبسحب الشريط وأضعه جنب شريط الأدوات القياسي (الموجود بالفعل) وفي نهاية المطاف .. أرجو أن يكون الموضوع (رغم بساطته) أن يكون مفيد لمن يريد التعامل مع محرر الأكواد) تقبلوا وافر تقديري وحبي واحترامي

السلام عليكم موضوع مطلوب ومجهود كبير ولاكن للامانة لم استطيع ان استفيد منه للأسباب الاتية 1- تحديد هوية البرنامج (هدفه ونطاق عمله (مخازن فقط -مخازن وعملاء وموردين - حسابات جزئي (يعنى به حسابات العملاء والموردين والضرائب والخزينة من واقع النشاط المباشر مع المخازن))) وفى خلال ذالك نحدد التقارير المطلوبة (المخرجات) وبالتالي نحدد ما نريد إدخاله (المدخلات)الى البرنامج للحصول على النتائج المرجوة 2- طريقة التسلسلية للشرح غير واضحة مثل (جداول البرنامج طبقا للمدخلات المطلوبة - ثم نماذج الادخال - ثم التقارير) وهكذا على سبيل المثال 3- موضوع انشاء قاعدة لعام جديد او النسخ الاحتياطي للقاعدة الحالية هو بلا شك مطلوب وبقوة للبرامج الناجحة 4- تختلف طبيعة احتياجات البرنامج من مكان واخر ومن شخص لأخر ولذألك يجب الاخذ بالنواحي الأساسية فقط وعدم التعديل طبقا لكل عضو (والالتزام من جميع الأعضاء بعدم كثرة المشاركات) 5- قد لا تكون اخى مضطر لرفع القاعدة والتعويض عن ذالك بفيديوهات للشرح مع الصور في شكل دروس متتالية ونهج واضح لتفادى اختلاف النسخ فكل يطبق طبقا لما عنده من نظام او اوفيس الا الحصريات لم ادخل في تفاصيل البرنامج و معرفتي بالأكسس مبتدئ ولاكن اعمل محاسب ومراجع داخلي بالسعودية وقد قمت بأنشاء برنامجين للمخازن نسخة للشركات التجارية - ونسخة لمصنع وقمت ببيعها وبها عمليات تكاليف وتسعير ولاكن ذالك كان ب الاكسيل vba وليس بالاكسس والعمل في الاكسل اكثر ارهاقا ارجوا منكم تقبل مرورى اريد الدخول في مجالكم والاستفادة من الموضوع فبعد 4 صفحات لم احصل شيئا رغم المجهود الكبير هذا والله الموفق ،،،،،،،،،،،،،،،،،

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

استاذي العزيز " يحيــــــــــــــــــــــاوي " مرفق ملف كود للتنقل بين اوراق العمل ( هذا الكود له مشاركة مشابهة نوعا ما ) ولكن هذه المرة بعض الاوراق ( ويمكن تحديدها من الكود ) لا تظهر فى القائمة من اعمال اخونا الاستاذ " عبد الله المجرب " ابو احمد وفقك الله ياسر الحافظ " ابو الحارث " تنقل بين اوراق عمل مع اخفاء البعض من القائمة.rar

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

السلام عليكم و رحمة الله أخي استطيع مساعدة في حال انك تستخدم اكسس 2007 والطريقة كالتالي ضع اختصار لعملية الضغط و الاصلاح في شريط الوصول السريع ثم في أي زر ضع الكود التالي SendKeys "{f10}" SendKeys "4" حيث إن الرقم 4 يرمز الى ترتيب اختصار في شريط الوصول السريع وشكرا

تم تعديل المرفق test8.rar

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

السلام عليكم نموذج فاتورة بفورم بعشرين صف استدعاء اسم الصنف والسعر اثناء اختيارك لرقم الصنف اظهار اجمالي الصنف بعد كتابتك للكمية من صنف معين مع اظهار الاجمالي الكلي للفاتورة متبوعا بالتنقيط اثناء مسحك لرقم الصنف تمسح باقي البيانات في الصف ضبط الاخطاء اثناء الترحيل ويتم ايقاف العملية لإعادة التصحيح طباعة للفاتورة بامكانية اختيار عدد النسخ فاتورة متكاملة بالعناويين وراس الصفحة والتذييل وكانك تتعامل مع ورقة العمل بل اسهل من ذلك وفي النظر والتجربة ما يغني عن الشرح تحياتي وشكري ____________________.rar

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

الزميلات والزملاء أتيت اليكم ببرنامج قمت بعملهمن خلال برنامج Excell والبرنامج يقوم باصدار اذون الصرف النقدية وايضا اذون الاسستلام ويقوم بتدويررصيد الخزينة اتوماتيكيا بمجرد ضغط يوم جديد طريقة عمل البرنامج يلزم تهيئة برنامج excell لعمل الماكرو يتم وضع رصيد الخزينة اجنبي ومحلي وايضا بداية سريال الاستلام وبداية سريال الصرف وهذا يحدث للمرة الاولي فقط يقوم بتعريف اكواد الحسابات الذى سوف يتم العمل عليها من حلال التعريفات حسابات المصاريف والايرادات فى حالة استلام نقدية يتم كتابة الكود ويظهر بجاانبة اسم الحساب والبرنامج يقوم بالتفقيط وكتابة التاريخ فى حالة صرف النقدية يتم احتيار الحساب مثلمل حدث فى استلام النقدية ويذكر اسم ا مركز التكلفة فى حالة تعدد الفروع نسخ المقبوضات يتم نسخ المقبوضات من خلال نسخ المقبوضات وتوضع فى الحافظة ومثلها نسخ المدفوعات وفى حالة يوم جديد يتم مسح ما تم كتابتة ويتم تدوير الرصيد لبداية يوم جديد واذا اردت استعداء صرف نقدية او استلام تقوم بالضغط علي ما تريد من الشاة الافتتاحية للبرنامج ثم تكتب رقم الايصال اذا كان استلام او صرف وتقوم بالطباعة .... وفى النهاية انا مستعد للمساعدة فى اى وقت وتقبل الملاحظات... البرنامج يعمل على office 2003 Cash_Sysytem_Standard.rar