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

سلام عليكم _ _ __ _________ مع إضافة كود (html) تفضلوا بالدخول الى هذا الرابط وشكرا لكم http://kamelbelekbir25.wixsite.com/-monaccess

الان انا عم استخدم موبايل وبالماركيت خلي اشتري بعش اشياء وارجع راح اعمل على القاعدة تحياتي

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

السلام عليكم وبعد اذن استاذنا شيفان تفضل جرب هذا Like "غ" Or <=40

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

أخواني الأعزاء في هذا المنتدى : أضع بين أيديكم العديد من البرامج الجاهزة مع الشرح الكامل ، جمعتها من موقع أجنبي و فيها العديد من المستويات المبتدئ المتوسط المتقدم حيث قمت بتجميعها من العديد من المواقع و المنتديات الأجنبية ليتم حصرها في منتدانا الحبيب هذا أرجو منكم الرد لوضع المزيد من البرامج ، حيث ومن خلال ردودكم سأقوم بوضع إحتياجاتكم من البرامج في حال توفرها لدي ، حيث يوجد لدي مكتبة كبيرة من البرامج تحتوي ما يقارب 3000 برنامج و هناك المزيد . مع الشكر للجميع و أريد منكم فقط دعوة من قلب صادق لي و لوالدي ،،، accarch181.zip accarch180.zip

ولكنها تعمل عندي db4.rar

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

الف الف الف شكر ياغالى وربنا يجعلة فى ميزان حسناتك يارب وفرت عليا كتير جدا كنت هرقم 60000 سجل يدوى

رغم انك لم ترفع الملف المطلوب أتوقع ان يكون الحل هنا(نموذج عما تريد) ترقيم على كيفك.rar

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

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

السلام عليكم ورحمه الله وبركاته اخواني هذا البرنامج قمت بتصميمه ولكن الجزء الأكبر لا ستاذنا الأخ شفان عدل فيه الكثير راح ان شاء الله تستفيدون منه رفع الله قدرك اخ شفان وكل المشرفين والقايمن في المنتدي والاعظاء وشكرا لكم غير-مسموح-للعميل-بالتجاوز-للحد-المسموح-له_.rar

الأخ الفاضل / سليم كم انت اكثر من رائع .. ربنا يزيك ويعطيك من فضله الكود اكثر من رائع وجميل ويعمل بكفاءة أشكرك من كل قلبى سلميت يداك وبارك الله فى علمك اشكرك مره آخرى على سرعه استجابتك وزوقك واهتمامك

اذا رحت عالسوق بها فروع تكدر تروح عالفرع الاول او تعبر الفرع الاول وتروح عالفرع الثاني بكفيك انت وكل فرع بها دكاكين خاصة مثلا اسم دكان واحد هو int>>>/7.3 والاخر اسمه int<<</30)*4.16 وايچا راح تشوف واحد اسمه محمد والاخر اسمه محمدسليم لهذا كل حقل من تلك الحقول به شي خاصه‌ مثلا لحقل الاول عطيتنا هذا ejmaleEjazat: Int(((Date()-[hiredate])/7.3)) والاخر عطيتنا هذا ejmaleEjazat1: Int(((Date()-[hiredate])/30)*4.16) والاخر كتبنا هذا ejmaleEjazat2: Round(((Date()-[hiredate])/30)*4.16;0) والاخر كتنبا هذا ejmaleEjazat3: Int((Date()-[hiredate])*0.1369) واي واحد يناسبك اختره تحياتي لك

السلام عليكم نعم يمكنك ذلك بإستعمال الكود التالي: DoCmd.RunSQL "CREATE TABLE Friends" & _ "([FriendID] integer," & _ "[LastName] text," & _ "[FirstName] text," & _ "[Birthdate] date," & _ "[Phone] text," & _ "[Notes] memo," & _ "CONSTRAINT [Index1] PRIMARY KEY ([FriendID]));" Friends اسم الجدول و باقي الأسطر تمثل أسماء الحقول و نوعها السطر الاخير يمثل المفتاح الأساسي

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

جرب هذا ejmaleEjazat3: Int((Date()-[hiredate])*0.1369)

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

IsDate: تستخدم هذه الدالة لفحص ما إذا كان المتغير الممرر لها تاريخ أم لا حيث تعيد true إذا كان المتغير تاريخاً و تعيد false إذا لم يكن تاريخاً. IsDate(«تعبير») IsDate("12/03/2017")=True IsDate("أوفيسنا")=False Now: تستخدم هذه الدالة لإستخراج تاريخ و وقت النظام الحاليين. Now() و تكون النتيجة بالشكل التالي: 15-03-2017 10:18:15 Time: تستخدم هذه الدالة لإستخراج وقت النظام الحالي. Time() و تكون النتيجة بالشكل التالي: 10:18:15 Timer: تستخدم هذه الدالة لإستخراج عدد الثواني منذ منتصف الليل. Timer() MonthName: تستخدم هذه الدالة لإرجاع اسم الشهر المحدد . MonthName(«اختصار», «شهر») MonthName(3,True)="مارس" MonthName(8)="أوت" TimeSerial: تستخدم هذه الدالة لإرجاع متغير من نوع تاريخ يحتوي على الوقت لساعة و دقيقة و ثانية محددة. TimeSerial(«ثانية», «دقيقة», «ساعة») TimeSerial(10, 56, 13)=10:56:13 Weekday: تستخدم هذه الدالة لإرجاع متغير "عدد صحيح" يمثل رقم اليوم في الأسبوع. Weekday(أول أيام الأسبوع, التاريخ) Weekday("15/3/2017", vbSunday)=4 WeekdayName: تستخدم هذه الدالة لإرجاع اسم اليوم المحدد من الأسبوع. WeekdayName(«أول أيام الأسبوع», «اختصار», «يوم من الأسبوع») WeekdayName(3, True, vbSunday)="الثلاثاء" و هذه هي القيم المستعملة لتحديد أول أيام الأسبوع: vbUseSystem سيتم استخدام إعدادات النظام vbSunday يمثل يوم الأحد vbMonday يمثل يوم الاثنين vbTuesday يمثل يوم الثلاثاء vbWednesday يمثل يوم الأربعاء vbThursday يمثل يوم الخميس vbFriday يمثل يوم الجمعة vbSaturday يمثل يوم السبت

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

في هذه الحالة اليك هذا الماكرو Sub transfer_with_ٍSalim() Dim Sht_Source, Sht_Target As Worksheet Dim lr1, lr2, My_Row, My_Column As Integer Dim My_Name As String, Oldsum Set Sht_Source = Sheets("المكافآة"): Set Sht_Target = Sheets("تجميع المكافآت على مدار العام") lr1 = Sht_Source.Cells(Rows.Count, 1).End(3).Row lr2 = Sht_Target.Cells(Rows.Count, 1).End(3).Row My_Column = Application.Match(Sht_Source.Range("d2"), Sht_Target.Range("c4:n4"), 0) + 2 For i = 5 To lr1 My_Name = Sht_Source.Range("b" & i).Value My_Row = Application.Match(My_Name, Sht_Target.Range("b5:b" & lr2), 0) + 4 Oldsum = Sht_Target.Cells(My_Row, My_Column) If IsNumeric(Sht_Source.Cells(i, 3)) And IsNumeric(Oldsum) _ Then Sht_Target.Cells(My_Row, My_Column) = Oldsum + Sht_Source.Cells(i, 3) Next End Sub

يمكنك استعمال هذا الماكرو للتبديل Sub My_Borders1() If Range("A1:D10").Borders.LineStyle = -4142 Then Range("A1:D10").Borders.LineStyle = 1 Else Range("A1:D10").Borders.LineStyle = -4142 End If End Sub

السلام عليكم الاخ الكريم / احمد محمود عبد الفتاح جرب اخي الكريم الكود التالي بوضعه في ThisWorkbook وان شاء الله يفي بالغرض Private Sub Workbook_Open() Application.OnKey "^d", "" End Sub تقبل خالص تحياتي

السلام عليكم تفضل أخي الكود اصبح: Option Compare Database Public Ok_to_Print As Integer Private Sub Form_BeforeUpdate(Cancel As Integer) 'On Error Resume Next Beep If Ok_to_Print = 0 Then If MsgBox("هل ترغب بحفظ الفاتوره؟" & vbCrLf & _ "أضغط (نعـم) للحفظ ، أو (لا) لإلغاء الأمر .", _ vbInformation + vbMsgBoxRight + vbOKCancel + vbDefaultButton2, _ "تنبيـــه : تاكيد") = vbOK Then Ok_to_Print = 1 Else Cancel = True Me.Undo 'DoCmd.RunCommand acCmdUndo End If End If End Sub Private Sub أمر67_Click() Call Form_BeforeUpdate(True) If Ok_to_Print = 1 Then DoCmd.RunCommand acCmdSaveRecord DoCmd.OpenReport "rpt_Cash_invoice", acViewPreview, , "[رقم السند]=" & Me.[رقم السند] Ok_to_Print = 0 End If End Sub جعفر 568.احتاج مساعدتكم اخواني.accdb.zip

اخي الكريم راجع قاعده‌ بياناتك مجددا اعمل تعديلات عليه Database5 (1).rar

الان انا بستخدم موبايل غدا ان شاء الله راح اعمل على القاعدة البيانات اذا ما سبقني احد انتظرني

بسم الله الرحمن الرحيم ونواصل بدون فواصل فى شرح السلسلة المميزة جدا للمبتدئين كن محترف vba وموعدنا اليوم مع الجزء التاسع من هذة السلسلة مشاهدة ممتعة ومفيدة باذن الله https://www.youtube.com/watch?v=IzsKdYS7cqE

السلام عليكم اخي الحبيب ابو عبد الرحمان عندما لاحظت صورة البروفيل الخاصة بك ( العين البني ) ، و الصورة الخاصة بي ( خديجة ) و كأنني اقول بلسان الحال : قاعد يبص فيا و انا حاطط إيدي على خدي فجات ببالي الاغنية ألي بتقول : بتنهد وايدي على خدي من قلب ربّاني وطلع قديلا انا فهمان شو بده ولا حضرته فهمان شو بدي لكنني فهت انك تريد التعديل على الكود اسعد الله ايامك و تقبل الله منا و منكم صالح الاعمال ، و الله ليك وحشة Sub officena() Dim Last As Long, R As Long, LR As Long Last = Sheet4.Cells(Rows.Count, "A").End(xlUp).Row Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Sheet4 For R = 5 To Last If WorksheetFunction.CountIf(.Range("A8:A" & Last), CStr(.Cells(R, "a"))) > 1 Then LR = Sheet7.Cells(Rows.Count, "A").End(xlUp).Row + 1 .Cells(R, "A").Resize(1, 7).Copy Sheet7.Cells(LR, "A") End If Next End With Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

اخى الكريم ابو عبدالرحمن بيرم ارجو ان يفى الملف التالى بالمطلوب abo_abary_إستخراج الاسماء المكررة اعتمادا على رقم الهوية وترحيل المكرر بشيت منفصل.rar

اخى وحبيبى ياسر حافظ (ابوالحارث) جزاكم الله خيرا وفقكم الله اخوك سعد عابد