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

استخدم البرنامج FlatDesignTool رابط http://www.mediafire.com/file/sdh77kcg8jca8z3/FlatDesignTool.exe/file شرح عمل الملف مثال الكود Me.Command.BackColor = RGB(96, 169, 23) وهنا مرفق الملف FlatDesignTool.rar

استخدم هذا Private Sub test_BeforeUpdate(Cancel As Integer) Dim i As Integer Dim MewcodOrNo As Integer If Len(Me.test & vbNullString) = 0 Then Exit Sub For i = 1 To Me.MyList.ListCount If Me.test = Me.MyList.Column(1, Me.MyList.ItemData(i)) Then MewcodOrNo = MewcodOrNo + 1 If MewcodOrNo > 0 Then Exit Sub End If Next i If MewcodOrNo = 0 Then MsgBox "الرقم غير موجود" End Sub ملهم.rar

بسم الله الرحمان الرحيم السلام عليكم اولا ما هو النص التنبئي باختصار هو تنبئ البرنامج او الدالة او الكود بالكلمات التي تبحث عنها من خلال كتابة اول حروف الكلمة مثل مايحدث اثناء البحث عن طريق محرك البحث قوقل هذا الموضوع ليس جديد فهناك كود في المنتدى يعتمد على مربع نص وليست بوكس لاكني منذ فترة حاولت تطبيق الامر على الكمبوبوكس الى ان وفقني الله الى ذلك وها انا الان اشارككم الموضوع ما هي الفائدة من هذا الموضوع كثيرا ما يكون لدينا قاعدة بيانات كبيرة مثلا الاصناف في الفواتير و غالبا متكون عمليات الادخال خاصتا مكررة و كثيرة فهذه الطريقة ستساعدك كثيرا في ادخال الاصناف بسلاسة وسهولة بدل عناء اعادت كتابت الصنف مرارا وتكرارا لا اطيل عليكم في المرفق تجد مثال توضيحي احدهما مطبق على الشيت وهو مايهم اصحاب ادخالات الفواتير والثاني مطبق على الفورم صورة توضيحية بالنسبة للمثال المطبق على الشيت كما في الصورة من جهة اليمين عند الضغط على اي خلية ملونة بالاخضر تظهر كمبوبكس اكتب داخلها اي حرف لتجلب لك الكلمات التي تحمل تلك الحرف كما في الصورة يمكنك التنقل بين النتائج بواسطة سهم الاعلى والاسفل من الكبيور اضغط انتلر لادخال النتيجة في الخلية وانتقال الكمبو الى اسفل الخلية المفعلة بالنسبة للمثال المطبق على الفورم كما في الصورة من جهة اليسار نفس الامر كما في المثال الاول فقط الاختلاف في ان ادالبحث يكون من الفورم ارجو ان يكون الموضوع مفيد للجميع تحياتي للجميع تنويه تم استبدال المرفق بعد 23 تحميل texte prédictive 2007 2003.rar

تحيه لكل من شارك و بنى لبنه فى هذا المنتدى حتى و لو بكلمة شكر و كل الشكر لاعضاء المنتدى على هذا البناء الشامخ و هو ملك لكل من اراد ان يتعلم حرفا

بسم الله الرحمن الرحيم ( وأشرقت الأرض بنور ربها ووضع الكتاب وجيء بالنبيين والشهداء وقضي بينهم بالحق وهم لا يظلمون ) تحياتى و ايام مباركه جعل الله هذه الايام_ايام رحمة و مغفرة و يفتح لنا الله ابواب الجنة امام دعائنا المستجاب_باذن الله هديتى لكل اعضاء_من برنامج حسابات اوفيسنا دبل كليك و اهداء خاص لمعلمى و الاساتذة الافاضل بالمنتدى و لكل من ساهم بعمله فى خدمة طالبى العلم تنويه الفضل الاول و الاخير بعد توفيق الله سبحانه و تعالى يرجع الى منتدانا و الاساتذة الافاضل باسرة المنتدى مرفق البرنامج مع الشرح لاتنسونا من صالح الدعاء Trial Balance_2018_ECO_2II.rar تم استخدام كود تكويد دليل الحسابات من اعمال / _ أ / عبدالله باقشير تم استخدام كود البحث و الاضافه من اعمال / _ أ / ابو عبدالله_اكسلجى و شكر خاص لاستاذنا / أ /ياسر خليل على مشاركاته المتميزه

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

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

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

جرب هذا الماكرو Option Explicit Sub give_data() If ActiveSheet.Name <> "data" Then Exit Sub Dim i%: i = 3 Dim Laste_Row%, k%, m% Dim arr, arr_num() Dim rg As Object arr_num = Array(3, 52, 101, 150, 199, 248, 297, 346, 395, 444) Laste_Row = Sheets("data").Cells(Rows.Count, 1).End(3).Row Sheets("data2").Range("a3").Resize(1000, 3).ClearContents Set rg = CreateObject("system.collections.arraylist") With rg Do Until i > Laste_Row If Not .contains(UCase(Range("g" & i).Value)) Then .Add UCase(Range("g" & i).Value) i = i + 1 Loop arr = .toarray End With For i = LBound(arr) To UBound(arr) m = arr_num(i) For k = 3 To Laste_Row% If Sheets("data").Cells(k, "G") = arr(i) Then With Sheets("data2").Cells(m, 1) .Value = Sheets("data").Cells(k, "A") .Offset(, 1) = Sheets("data").Cells(k, "B") .Offset(, 2) = Sheets("data").Cells(k, "G") m = m + 1 End With End If Next Next Set rg = Nothing: Erase arr_num: Erase arr End Sub الملف مرفق std_salim.xlsm

استاذي الجليل ومعلمي القدير واخي الحبيب استاذ @رمهان تحية طيبة عطرة قطعا في وجود الماء يبطل التيمم ولا يفتي والاستاذ رمهان في اوفيسنا

تفضل تم تعديل كود الطباعة كم تم عمل البحث بشرطين بمعادلات المصفوفة الشيت.xlsm

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

نفذ هذا على التقرير ......

انظر المثال المرفق ...

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

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

:: تفضل الكود ... مع بعض التعديلات Me.Rsedb = (Nz(DSum("[finaltotal]", "InvoiceHT", "[CustomerNum]=" & [CustomerNum]), 0)) - (Nz(DSum("[piad]", "AR", "[Custid]=" & [CustomerNum]), 0)) Invoice_UP.rar

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

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

عليك برفع ملف بالمطلوب لعمل الكود الذى تريده وشرح بالتفصيل ما تحتاجه

اولا شكرا لك استاذنا @أبو آدم قم بفتح القاعدة بيانات وافتح احد نماذج في وضع تصميم واضغط على كونترول و حرف جي الانكليزية ctrl + G سيفتح لك هذه النافذة في الاسفل نافذة كتابة الاكواد كما مبينة في الصورة قم بكتابة هذه الجملة واضغط على انتر لكي يتم تفعيل خصائص الورقة CommandBars("Property Sheet").Enabled = True واذا تريد عدم التفعيل اكتب هذا CommandBars("Property Sheet").Enabled = false واضغط على انتر تقبلوا تحياتي

حياكم الله استاذ صالح هذا تعديل بسيط مقترح على مثال الاستاذ ابو خليل Private Sub Form_Timer() DoCmd.GoToRecord , , acGoTo, Int((Me.RecordsetClone.RecordCount - 1 + 1) * Rnd + 1) End Sub حيث اصبح التنقل عشوائي بين 1 وعدد سجلات النموذج تحياتي

السلام عليكم نيابة عن أستاذنا الفاضل أبو خليل: Private Sub Form_Timer() On Error GoTo Err_t DoCmd.GoToRecord , , acNext Exit_t: Exit Sub Err_t: DoCmd.GoToRecord , , acFirst Resume Exit_t End Sub هذا الكود وضع في حدث عند عداد الوقت و هو يقوم بالإنتقال إلى السجل التالي و في حالة الوصول إلى السجل الأخير يقوم بالرجوع إلى السجل الأول و هكذا Private Sub d1_Click() Me.TimerInterval = 50 End Sub و هذا الكود وضع في زر start يعني سوف يقوم بتغيير قيمة الفاصل الزمني للعداد إلى 50 و يبدأ الكود الأول في العمل (1000 تساوي 1 ثانية) Private Sub d2_Click() Me.TimerInterval = 0 t2 = t1 End Sub و هذا الكود سوف يقوم بإيقاف العداد الفاصل الزمني يساوي 0 و يأخذ القيمة الظاهرة في مربع النص t1 و يضعها في مربع النص t2.

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