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

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

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

lمشاركة مع البش مهندس ... max&^min.accdb

نفس الفكرة يمكنك التوصل لها بمفردك Private Sub TextBox1_AfterUpdate() Me.TextBox2.Value = Year(Date) - Val(Me.TextBox1.Value) End Sub بالتوفيق

هل جربت أكواد لتغيير دقة الشاشة لدى مستخدم برنامجك كثيرا ووجدت بها بعض المشاكل مثل: عدم ظهور أزرار التكبير والتصغير والاستعادة الخاصة بالويندوز مدة التغيير طويلة قليلا تحتاج لموديول كامل كبير لقراءة دقة الشاشة وآخر أطول منه لتغييرها الحل في المرفق تحياتي للجميع كل عام أنتم بخير ولا تنسوني من دعائكم وقت الإفطار mas_resolution.rar mas_resolution64x.rar

أولا أحييك على تصميم شكل الشيت الذي لا يحتوي على أية معادلات ولا أكواد لكن المطلوب كبير جدا تصميم وبرمجة شيت كنترول للمرحلة الابتدائية وهذا عمل طويل ربما يأخذ منك شهورا حتى يكتمل كما تريد على كل حال هذه نتائج البحث في منتدانا الرائع عن برامج مشابهة يمكنك الاستفادة منها وكلنا نتعلم من بعضنا https://www.officena.net/ib/search/?&q=كنترول الابتدائى&type=forums_topic&nodes=135&search_and_or=and&sortby=relevancy بالتوفيق

هيا جرب الأن d (1).zip

ميكروسوفت وورد 2016 وما بعده وخصوصا Office365 يساعد في تعديل ملفات pdf عند استخدام فتح بواسطة open with ثم نختار Microsoft Word ولكن نسبة النجاح لا تتعدى 60 ٪ في تحويل اللغة العربية ونسبة النجاح في اللغة الإنجليزية 100٪ بالتوفيق

ههههه .... اذن حاول انقاذ الموقف .... بتعديل كودك .... 😁

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

استبدل الكود الموجود لديك بهذا الكود ..... On Error Resume Next Dim Db As DAO.Database Dim Rc As DAO.Recordset Dim ChequesFound Dim ChequeNoStart As Long Dim ChequeNoEnd As Long Dim i As Long Set Db = CurrentDb Set Rc = Db.OpenRecordset("SELECT SamoBrojevitxt([dbo_ID]) AS Brojevtxti FROM dbo_Tbl_Emp ORDER BY SamoBrojevitxt([dbo_ID]);") Do While Not Rc.EOF Rc.MoveNext Loop If Rc.RecordCount = 0 Then dbo_ID = "Em." & Right(Year(Date), 2) & "001" 'MsgBox "No Records Found" GoTo cmdDisplay_Exit End If DoCmd.GoToRecord , "", acNewRec Rc.MoveFirst ChequesFound = Rc.GetRows(Rc.RecordCount) ChequeNoStart = ChequesFound(0, 0) ChequeNoEnd = ChequesFound(0, UBound(ChequesFound, 2)) For i = ChequeNoStart To ChequeNoEnd If BinarySearch(ChequesFound, i) = False Then dbo_ID = "Em." & i GoTo cmdDisplay_Exit Else dbo_ID = "Em." & Replace(Nz(DMax("dbo_ID", "dbo_Tbl_Emp", "dbo_ID like 'Em." & Right(Year(Date), 2) & "*'"), "Em." & Right(Year(Date), 2) & "000"), "Em.", "") + 1 End If Next i cmdDisplay_Exit: Set Rc = Nothing Set Db = Nothing

بارك الله بك استاذنا العزيز

الله يجزاك الجنة ويرحم واليك @د.كاف يار كذا تمام كان الخطا عندي في الكود navigation sub form في الاستعلام ... كتبت بدله اسم النموذج اللي عندي الف الف شكر

طيب اتفضل قاعدة 22.accdb

تفضل التعديل قاعدة 22.accdb

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

Worksheet module Private Sub TextBox1_Change() SumInTextBox End Sub Private Sub TextBox2_Change() SumInTextBox End Sub Private Sub TextBox3_Change() SumInTextBox End Sub Sub SumInTextBox() Dim m1 As Double, m2 As Double, m3 As Double m1 = Val(TextBox1.Value) * Range("G4").Value m2 = Val(TextBox2.Value) * Range("G6").Value m3 = Val(TextBox3.Value) * Range("G9").Value TextBox4.Value = m1 + m2 + m3 End Sub

بعد الانتهاء من اضافة الموظف قم بالضغط على حفظ ....... انظر المرفق ربما هو ما تريد .... dbo_da_kan.accdb

وعليكم السلام 🙂 اضفت حقل مخفي في النموذج ، اسمه All ، يتم التحكم بقيمته برمجيا : . الكود خلف النموذج والازرار : All = 0 معناه جميع السجلات All = 1 معناه السجلات حسب قيم البحث Private Sub Command16_Click() Me.All = 0 Me.Requery End Sub Private Sub Command20_Click() Me.All = 1 Me.Requery End Sub Private Sub Form_Load() Me.All = 0 Me.Requery End Sub Private Sub ind_AfterUpdate() Me.All = 1 Me.Requery End Sub . وعليه ، يصبح الاستعلام q1 مصدر بيانات النموذج: . معيار xDate Between (IIf([Forms]![f1]![All]=0,#01-Jan-1900#,[forms]![f1]![str])) And (IIf([Forms]![f1]![All]=0,#01-Jan-2900#,[forms]![f1]![ind])) ومعيار xname IIf([Forms]![f1]![All]=0,[xname],[Forms]![f1]![srch_xname]) . اي: للتاريخ: اذا كانت All=0 (جميع السجلات) فاختار التاريخ بين 1-1-1900 وتاريخ 1-1-2900 ، واذا احتجت اكبر من سنة 2900 فخذ راحتك واعمل التغيير 🤣 ولحقل الصنف: اذا كانت All=0 (جميع السجلات) فاختار قيمة الحقل xname من الجدول ، مما يعني جميع السجلات 🙂 ورجاء مراجعة الرابط التالي لتتعرف على طرق البحث في الاستعلام: جعفر تحديث.zip

To restrict textbox to numbers only Private Sub TextBox16_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case Asc("0") To Asc("9") Case Asc("-") If InStr(1, TextBox16.Text, "-") > 0 Or TextBox16.SelStart > 0 Then KeyAscii = 0 End If Case Asc(".") If InStr(1, TextBox16.Text, ".") > 0 Then KeyAscii = 0 End If Case Else KeyAscii = 0 End Select End Sub As for the other notes, the code is working with no problems

السلام عليكم 🙂 لإصطياد الخطاء في النموذج: جعفر

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

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

هذا الفديو يشرح طريقة ربط الدلفي بـــ sql server

سأنظر في الامر ...

أشكرك أخي صفوت والحمد لله والله ما كنت مصدق

بارك الله فيك أخي أحمد أعاننا الله وإياكم جمعا إن شاء الله أخي يحيى سعيد بمرورك أخي طارق كل عام أنتم بخير أتمنى أن أرى جيلا من المبرمجين العرب قادراً على المنافسة في السوق العالمية الهند فعلتها فمن لها؟؟

بارك الله فيك اخي الكريم وأود لفت نظرك إلى أن الآية بدون ضمير الهاء في استأجرته (قَالَتْ إِحْدَاهُمَا يَا أَبَتِ اسْتَأْجِرْهُ إِنَّ خَيْرَ مَنِ اسْتَأْجَرْتَ الْقَوِيُّ الْأَمِينُ) (القصص:26) وتقبل الله منا ومنكم لا ينقصني سوى دعائكم

الله يبارك فيك يا أخي يحيى وعقبالك

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

تفضل يا أخي الكريم يوجد زر يقوم بالمطلوب ولا ينقصني سوى دعائكم mas-getdata.rar

رائع أخي يحيى حياك الله شرح مناسب لكل من المبتدئين مثلي والمتقدمين أيضا لا حرمنا الله منك ولا حرمك ثواب ذلك العمل