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

استاذ احمد @ahmed draz اشكرك ❤️🌹🌹 عدلة فورم formstart عند الاغلاق -100 الاستجابة حلوه بس عند الفتح محاولة تغير التايمر ما يسرع اما البقية خارج الاكسس الى اغلاق انهيار الاكسس ❤️🌹 يوجد مرفق بتحريك الاتجاهات وطريقتك مميزة قابلة للتطوير

السلام عليكم ملف لبعض الأفكار المشابهة تحياتي animation.rar

View File 🕶🎁3D (مع عرض مجموعات الصورة -تخزين خارج القاعدة )-IMGBOK Ms.Access (اكسس) برنامج انشاء مكتبة صورة (البوم) وواجهة برامج 👓 1-انشاء مكتبة صور بتعين اسم جديد ثم اختيار فولدر الصور وتحديد نوع متعدد الصور مع ضبط الاحجام والحتفاظ بالاحجام الاصلية للصورة 2-عرض كافة الصور مجموعات بمكتبة عرض الصور 3- امكانية التحكم بالواجهة بعرض 3D وتحريك الصور 4- عروض التقديمية 4 انواع للمجموعة 5- محرك بحث بالمجموعات المضافة 6- تخصيص الصور بتسمتها ونبذ للاحداث وتحديد التاريخ من الى ممكن جعل البرنامج لعرض صور اسكنر (مستندات او صور نموذجية للتصميمات الداخلية للعقارات ) او تعليمية او طبية او صور شخصية او قاعات امكان للافراح لاي مشروع يخدم الجهات او برنامج لك ويكون شخصي ===================================( Video ) نسخة من البرنامج للتجربة واضافة لمشروعكم ☕ ❤️🌹اتمنى ان ينال على اعجابكم Submitter hanan_ms Submitted 08/01/2024 Category قسم الأكسيس  

View File (v1 Ms.Access ) برنامج اكسس للرسم والتوقيع 🎁 Up_Date_ActivX_Full_Control_INKPicture DrawingAttributes( سمك الخط و...., تحكم الكامل ,تغير الون الخط, مسح وتراجع ,تحديد الخطوط) 🎁 :مميزات التحديث تحكم الكامل بالرسم 1-سمك الخط 2-شفافية الخط 3-تحديد الخطود مع التحريك 4- تغير لون الخط 5- التراجع والمسح خط الاخير 6- مسح كامل الخطوط ========================= مع تعديل عند تحريك المؤشر الماوس الى المكان المطلوب للرسم اضغط من مفاتيح الكيبورد [ F2 ] ثم ضغط كليك بزر الماوس فقط وعند تكرار اضغط مرتين على مفتاح F1 ثم ضغط كليك بزر الماوس فقط ============================= 8- عرض واجهة بالنافذة اعتقد مميزة مع القائمة LOGO_Viedo (.avi ) مخصص للعرض الخلفية او الشعار ولا يمكن للمستخدم التحكم في الفيدوا 💯 9- حفظ الرسم مع عرض التقرير 📐 ====================== تحكم بتحجيم النافذ بالازرار اما حجم نافذه او حجم كامل الشاشة مع البار او حجم الكامل لكل الشاشة-10 11-تحكم بالتقرير وبحجم التقرير وتخصيص ============================== 12-توفير شرح بيداخل البرنامج مع طريقة تحجيم مربع الرسم ☕ =========================================( App Video INFO ) =========================================( Video Report window with Control ) ❤️🌹اتمنى ان ينال على اعجابكم Submitter hanan_ms Submitted 08/01/2024 Category قسم الأكسيس  

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

السلام عليكم مرحباً بك أخي حازم حاولت العمل على القاعدة الخاصة بك وتوصلت الى مرحلة جيدة ولو أردت استخدام قاعدة مشابهة لقاعدتك كنت قد قمت بتطويرها منذ مدة وهي فعالة وتعمل بكفاءة تقبل تحياتي وهذا رابط القاعدة الجديدة https://www.raed.net/file?id=919535 New folder.rar

Dim db As Database تعطى نفس الخطأ أيضاً ؟ عموماً تغيير رؤوس الجدول لا تأثر على المخرجات المطلوبة ( التقارير ) إذن سأكتفى مؤقتاً بالكود الصحيح ، وشكراً جزيلاً لكم

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

السلام عليكم ورحمة الله مرحباً بك أخي بلال تفضل التعديل كلمة المرور: 123 ومن هنا طريقة تغييىر كلمة المرور test (1).rar

تفضل جرب المرفق التالي واختار ما يناسبك Private Sub UserForm_Initialize() Me.ScrollHeight = Me.Height * 2 End Sub 'OR Private Sub UserForm_Initialize() Me.ScrollHeight = Me.Height Me.Height = Me.Height / 2 End Sub 'OR Private Sub UserForm_Activate() With Me .ScrollBars = fmScrollBarsHorizontal .ScrollWidth = .InsideWidth * 1.5 End With End Sub test (1).xlsm

اخي @ابو جودي تحية طيبة جزاك الله كل خير ولكن التقريب يتم مع الارقام الموجبة فقط اما الارقام السالبة يتم التقريب بشكل خاطئ تم الوصول للحل و الحمدلله و الشكر للجميع Public Function MyRound(ByVal MainVal As Double, ByVal RoundVal As Double) As Double Dim Oldrnd As Double, X2 As Double, Newrnd As Double, Var1 As Double On Error GoTo ErrSub Var1 = RoundVal \ 2 X2 = Application.WorksheetFunction.RoundDown(MainVal / RoundVal, 0) Newrnd = X2 * RoundVal Oldrnd = MainVal - Newrnd Select Case Oldrnd Case Is >= 0 Select Case Oldrnd Case Is >= Var1 MyRound = Newrnd + RoundVal Case Is < Var1 MyRound = Newrnd End Select Case Is < 0 Var1 = Var1 * -1 Select Case Oldrnd Case Is <= Var1 MyRound = Newrnd - RoundVal Case Is > Var1 MyRound = Newrnd End Select End Select ErrSub: If Err.number <> 0 Then 'MsgBox Err.number & vbCrLf & Err.Description, vbCritical + vbMsgBoxRight MyRound = 0 Exit Function End If End Function

مبسوط كده يا عم @Foksh الباسورد : 1510 علشان متزعلش بس وعلشان فرحتك تتم كلمة المرور تظهر وتختفى زى الحلاوة والقايمة بتختفى يا عم وبردو مافيهاش ترميش ومن الكلام ده على الله بس تكون مبسوط معلش بئه يا @M.Abd Allah عدلت حبة حجات ثغننه ع السريع كده بس علشان @Foksh أفندى ينبسط

جرب هذا Private Sub TextBox1_change() Dim n As Range, J As Long, f As Long Set WS = Worksheets("Sheet1") clé = Me.TextBox1 f = WS.Cells(WS.Rows.Count, 2).End(xlUp).Row With WS Set n = .Range("A2:A" & f).Find(What:=clé, LookIn:=xlValues, LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False) If Not n Is Nothing Then J = n.Row Me.TextBox2 = .Range("B" & J) Else Me.TextBox2 = "" End If End With End Sub بطريقة مختلفة Public Property Get WS() As Worksheet: Set WS = Worksheets("Sheet1") End Property Private Sub UserForm_Initialize() Set J = CreateObject("Scripting.Dictionary") a = WS.Range("A2:A" & WS.[A65000].End(xlUp).Row) For i = LBound(a) To UBound(a) If a(i, 1) <> "" Then J(a(i, 1)) = "" Next i n = J.keys Me.ComboBox1.List = n End Sub '================== Private Sub ComboBox1_Change() Me.TextBox2 = Evaluate("=vlookup(" & """" & Me.ComboBox1.Value & """" & _ ",A2:B" & Split(WS.[a2].CurrentRegion.Address, "$")(4) & ",2)") End Sub test.xlsm

وعليكم السلام ورحمة الله تعالى وبركاته جرب هدا Private Sub addbtn_Click() Dim n As Long Dim src As Worksheet: Set src = Sheets("Data") n = Application.WorksheetFunction.CountA(src.Range("B:B")) + 1 If Me.studname = "" Then: Exit Sub src.Cells(n, 2) = Me.cod.Value src.Cells(n, 3) = Me.studname.Value src.Cells(n, 4) = Me.row.Value src.Cells(n, 5) = Me.class.Value src.Cells(n, 6) = Me.group.Value src.Cells(n, 7) = Me.studcase.Value src.Cells(n, 8) = Me.birthdate.Value src.Cells(n, 9) = Me.mother.Value src.Cells(n, 10) = Me.gender.Value src.Cells(n, 11) = Me.mobile.Value src.Cells(n, 12) = Me.subcase.Value src.Cells(n, 13) = Me.adress.Value src.Cells(n, 14) = Me.datenow.Value src.Cells(n, 15) = Me.employ.Value src.Cells(n, 16) = Me.notes.Value With src.Range("A2:A" & src.Cells(src.Rows.Count, "B").End(xlUp).row) .Value = Evaluate("ROW(" & .Address & ")") End With arr = Array("studname", "cod", "row", "birthdate", "class", "studcase", "mobile", _ "notes", "group", "mother", "gender", "subcase", "adress") For i = 0 To UBound(arr): Me.Controls(arr(i)).Value = Empty: Next i MsgBox "تمت عملية التسجيل بنجاح" 'ActiveWorkbook.Save End Sub دوبل كليك على الصف الاول من ورقة Data لاظهار اليوزرفورم Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("A1:P1")) Is Nothing Then Cancel = True ADD.Show End If End Sub school data 2025x V2.xlsm

آمين يارب .. ربنا يستجيب دعواتكم ويحقق أمنياتنا وأمنياتكم 😊🤲🏻🌷🌹 :: والآن مع التشويقة الثانية 😎✌ :: :: تحكم كامل بعدد الأزرار والأزرار الفرعية والتسميات والأوامر مع إضافة أيقونات للأزرار بواجهة سهلة الاستخدام وبدون الحاجة للدخول لوضع التصميم ::

عزيزى الفاضل شكرا

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