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

اعزائي ارجو منكم تزويدي بكود VBA لانشاء او تغيير كلمة مرور قاعدة بيانات اكسس خارجية .. مشكورين

السلام عليكم اساتذتى الافاضل محتاج طريقة لحماية قاعدة بيانات كبيرة صممتها ولا تقبل التحويل الى accde وذلك لكثرة النماذج والتقارير بها وقمت بعمل الأتى : 1 - حماية الأكواد برقم سرى والغاء تفعيل Shift 2-غلق Navigation Pane و اخفاء القوائم ومنع القوائم المختصرة 3-بالنسبة للجداول منفصلة عن الواجهة على الجهاز الرئيسى للشبكة الداخلية لكن مازال الشريط العلوى متواجد ويمكن الغاء ماتم عمله بسهولة برجاء المساعدة جزاكم الله خير

تفضل هذه هي المعادلة .. قد يتطلب الأمر إنك تغير الفاصلة إلى فاصلة منقوطة لكي تعمل على نسخة الإكسل التي لديك =IF(F1>0,100,IF(F1=0,7.55,"")) ملاحظة: إذا كانت القيمة المدخلة أقل من 0 فنتيجتها ستكون خالية وإذا رغبت بتغيير هذه النتيجة فيمكنك ذلك عن طريق كتابة المرغوب ظهوره بين أقواس التنصيص في آخر المعادلة أعلاه.

في الخلية J3 اكتب هذه المعادلة و اسحب نزولاً =(E3+(D3/1000)+I3+(H3/1000)-G3+(F3/1000)-INT(E3+(D3/1000)+I3+(H3/1000)-G3+(F3/1000)))*1000 في الخلية k3 اكتب هذه المعادلة و اسحب نزولاً =INT(E3+(D3/1000)+I3+(H3/1000)-G3+(F3/1000))

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

انا استعمل اكسيس 2010 وويندوز 8 والعنوان تبع اي نموذج يتوسط تلقائيا انصحك فيهم بس جربت نفس النماذج في ويندوز 7 ترجع على الجانب

في الحقيقة انا هم ما اعرف بالظبط لكن ان شاء الله راح افكر فيها لعل وعسى ان نوصل لحل المطلوب

فرضنا واحد اسمه احمد هو مسؤل شعبة ميلاكات و مسؤل شعبة افراد في نفس الوقت يعني هل تكتب في حقل عنوان الوظيفي مسؤول شعبة ميلاكات - مسؤول شعبة افراد او تكتب في حقلين منفصلين

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

السلام عليكم، جرب المثال في المرفقات. TEL INDEX - alraqi_v002.rar

تمام جزاك الله خير اخى الكريم نفعت الطريقة

ياسر خليل أبو البراء اخى الفاضل جزاك الله خيرا وحشتنا مشاركاتك

استخدم هذا الكود عند فتح نموژج المقدمة DoCmd.ShowToolbar "ribbon", acToolbarNo جرب ووافيني بالنتيجة

الأخت الكريمة الكود بسيط جداً وهو يعتمد على حلقة تكرارية من آخر صف للصف الثاني ، مع إدراج صف فارغ فقط في حالة إذا كانت الخلية لا تساوي فراغ حاولي دراسة الكود سطر سطر وإذا تعثرتي في أمرٍ ما فلتقومي بعمل مشاركة للسؤال عما استصعب عليكي Sub Insert_Blank_Row() 'تعريف متغير ليكون بمثابة عداد للحلقة التكرارية Dim i As Long 'سطر لإيقاف خاصية اهتزاز الشاشة لتسريع الكود Application.ScreenUpdating = False 'حلقة تكرارية من آخر صف للصف الثالث ولأن الحلقة معكوسة استخدمنا -1 For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1 'إذا كانت الخلية في العمود الأول في الصف الهدف غير فارغة فإنه 'يتم إدراج خلايا لأسفل في النطاق المحدد من العمود الأول للثاني If Len(Trim(Cells(i, 1))) <> 0 Then Range(Cells(i, "A"), Cells(i, "B")).Insert Shift:=xlDown 'الانتقال للصف التالي Next i 'إعادة خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub مع التعديل في الكود الأصلي قليلاً

اتفضل اخي بوماجد333.rar

Sub Test() Dim arr1 As Variant Dim arr2 As Variant Dim temp As Variant Dim varTemp1 As Variant Dim varTemp2 As Variant Dim i As Long Dim r As Long Dim x As Long arr1 = Range("B3:C36").Value arr2 = Range("E3:F36").Value ReDim temp(1 To UBound(arr1, 1) + UBound(arr2, 1), 1 To 2) For i = LBound(arr1, 1) To UBound(arr1, 1) If Not IsEmpty(arr1(i, 1)) Then r = r + 1 temp(r, 1) = arr1(i, 1) temp(r, 2) = arr1(i, 2) End If Next i For i = LBound(arr2, 1) To UBound(arr2, 1) If Not IsEmpty(arr2(i, 1)) Then r = r + 1 temp(r, 1) = arr2(i, 1) temp(r, 2) = arr2(i, 2) End If Next i If r > 34 Then ReDim varTemp1(1 To 34, 1 To 2) For i = 1 To 34 varTemp1(i, 1) = temp(i, 1) varTemp1(i, 2) = temp(i, 2) Next i Range("J3").Resize(34, 2).Value = varTemp1 ReDim varTemp2(35 To UBound(temp, 1), 1 To 2) For i = 35 To UBound(temp, 1) varTemp2(i, 1) = temp(i, 1) varTemp2(i, 2) = temp(i, 2) Next i Range("M3").Resize(r - 34, 2).Value = varTemp2 Else Range("J3").Resize(r, 2).Value = temp End If End Sub

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

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

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

روعة يا استاذ انا جربت و نجحت 100% وهذا الملف بها ذاك الكود خلي يجربون بيفتحون اكثر من مرة في ان واحد تشغيل برامج اكسس لمرة واحدة على جهاز في ان واحد.rar

السلام عليكم هناك كود قريب من فكرتي السابقة وبالرابط http://access.mvps.org/access/api/api0041.htm ولكن طلعت بفكرة اخرى لا اعلم جدواها وهي عبارة عن ان برنامجي لايعمل الا لوحده ! اي لايمكن ان يعمل مع نسخ اخرى من الاكسس وبكذا لن يقبل ان افتح اكثر من نسخة واصبح الكود بشكل سهل والى حد ما رمهاني وهو بوضعه في حدث عند التحميل للنموذج الرئيسي وطبعا سيكون اول اسطر الاكواد ان وجدت بنفس الحدث Private Sub Form_Load() If GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("SELECT * FROM Win32_Process where Name ='msaccess.exe'").Count > 1 Then MsgBox ("i can work alone"): DoCmd.Quit acQuitSaveAll End Sub هذا واتمنى ان حصلت الفائدة اخ سلمان واحبتي جميعا وهذا ويمكن تدوين ملاحظات او اقتراحات للنحسين تحياتي للجميع

سؤال اخر متى يبدأ الوقت ومتى بينتهي الوقت و يظهر تنبيه فكر معي حين واحد بيفتح البرامج و يحدد الوقت مثلا من ساعة 01:15:00 حتى ساعة 02:15:00 يعني ساعة 2 و ربع بينتهي الوقت و بيظهر تنبيه حين يفتح من جديد راح يفتح نموذج المقدمة النموذج المقدمة راح يشوف رقم هارد ديسك خاص تبعه ونلاحظ التاريخ و ايظا الوقت الحالي بيكون اكبر من وقت نهاية الجلسة اي ساعة 2:15 دقيقة اذا نعم راح يفتح البرامج واذا لا راح يغلق البرامج لكن بعد عدنا مشكلة .. وهو يجب بين تاريخين ان لا يغلق البرامج والا ما يكدر فتحه والا من اللازم ان نستخدم هذا طريق لاستاذي العزيز رمهان

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

هههه اسف في الحقيقة هسة انا اضحك علي انا ما كان فهمت من السؤال بالظبط لذا اعتذر منكم جميعا

انتبه معي اخي الكريم اولا شوف المصدر كومبوبوكس للموڤف الاول والثاني مصدرهم بها ثلاث حقول ... حقل الاول الاسم الموظف هو خاص لكومبوبوكس asmm1 و حقل الثاني هو عنوان الموظف هو لمربع النصي اللي اسمه M1 وحقل الثالث هو حقل ID وهو خاص لمربع النصي اللي باسم id1 وكذلك لكومبوبوكس الثاني ايظا شوف بعد ما شوفنا المصدر شوف الحقول اللي بيملأ بواسطة ذاك المصدر وهم الحقول ID1 , ASMM1 , M1 اي الحقل اي دي 1 و حقل اسم الموظف اي يعني كومبوبوكس و حقل عنوان الموظف لكن لازم لا ننسى ان نكتب عدد الحقول في COLUMN Count و حجم لكل حقل لكومبوبوكس كما توشف في الصورة وايظا حقل m1m2 بيملأ بعد ان تملأ حقول عنوان الموظفين شوف اكواد لكومبوبوكس بعد تحديث وعدنا استعلامين لتحديث البيانات وهما q1 , q2 وشوف كيف عملنا والاستعلام الثاني بدلنا الشرط وايظا شوف غيرنا اسماء الجدول التنقلات الى اللغة الانكليزية لكي تجنبنا من الاخطاء واخيرا شوف نظرتا الى الاكواد مع تقدير

بسم الله الرحمن الرحيم الأخوة في المنتدى اليكم برنامج أكسس سوفت للمدارس والبرنامج باختصار عبارة عن تسجيل بطريقة القيود لدرجات الطلاب ثم استخراج شهادة الطالب حسب القيود المدخلة أيضا متابعة سلوك الطلاب والرسوم المدرسية البرنامج صغير لكن قد يفيد المدرس في عمله طبعا أنا صممت البرنامج حسب المدارس التعليمية في اليمن جرب أخي الكريم والبرنامج مفتوح المصدر وفية بيانات مدخلة للتجربة تحياتي للجميع الرقم السري للبرنامج هو 1975 school.rar

ينقل .....

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