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

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

نظام إدارة المستخدمين لبرامج أكسس قمت بتعريب أغلبه وبقيت بعض الرسائل البسيطة كلمة المرور 123 Sign In.rar

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

@ابو جودي الحمد لله على السلامة ، وعودة طيبة بعد الغياب الطويل ، وأسأل الله ان تكون في تمام الصحة والعافية .

إذا عليك بفكرة الأستاذ @Barna 🙂

Access Export.accdb

تفضل أخي مرفق من أعمال استاذي ومعلمي @ابو جودي فيه طلبك . Access Import_ up 2.rar

معلومة جميلة من المعلم @Moosak ، جزاك الله خيراً

أشكرك من الأعماق أخي Moosak على سرعة الرد ماقصرت والله

وعليكم السلام ورحمة الله وبركاته .. 🙂 في النموذج المستمر من الصعب عمل أوامر برمجية بشكل مباشر من هذا النوع .. والحل هو أن يتم إخراج الصور من البرنامج كملفات خارجية ويتم الإشارة إليها كرابط .. وهذه النتيجة 🙂 : ويمكنك إخفاء المربع الذي في اليسار (Image Source) عند الانتهاء .. لاحظ يجب أن يكون ملف الصور بجانب البرنامج وعدم تغيير موقعه حتى لايتم فقد الرابط بينهما : Change Image.zip

DbSearch.accdb بعد إذن أستاذنا ومعلمي @ابوخليل تفضل أخي @مالك درويش ابو تيمور ، هذا طلبك بدون استعلامات , البحث الأول في الجدول عن طريق الرقم والبحث الثاني يبحث في النتائج عن الصف والبحث الثالث يبحث في نتائج الفلترة الثانية عن الاسم DbSearch.accdb

بارك الله فيك

تفضل هذه حسب حقولك تم ايقاف الأسطر التي لا يوجد لها مقابل في النموذج DbSearch.rar

كنت متوقع ، على العموم تفضلي , ومرفق فيديو للتوضيح Private Sub reference_LostFocus() If Not IsEmpty(Me.reference.Value) Then Dim inputText As String Dim i As Integer Dim currentChar As String Dim currentNumber As String Dim isNumberStarted As Boolean Dim numbersFound As Integer Dim hasDecimal As Boolean inputText = Me.reference.Value currentNumber = "" isNumberStarted = False numbersFound = 0 hasDecimal = False For i = 1 To Len(inputText) currentChar = Mid(inputText, i, 1) If IsNumeric(currentChar) Or currentChar = "." Then If currentChar = "." Then If hasDecimal Then MsgBox "Error: Invalid numeric format" Exit Sub Else hasDecimal = True End If End If currentNumber = currentNumber & currentChar isNumberStarted = True ElseIf isNumberStarted Then numbersFound = numbersFound + 1 If numbersFound = 1 Then Me.low.Value = currentNumber ElseIf numbersFound = 2 Then Me.high.Value = currentNumber Exit For End If currentNumber = "" isNumberStarted = False hasDecimal = False End If Next i If Len(Me.low.Value) = 0 Or Len(Me.high.Value) = 0 Then MsgBox "Error: No valid numeric values found" End If End If End Sub 2023_12_12_210437.zip

مشاركة بطلبك . DD437.rar

قد يختلف المسار عند البعض ، فمثلاً عندي ويندوز 10 و أوفيس 2016 Folder Pathe :- C:\Program Files\Microsoft Office\root\Office16 GRAPH File Path :- "C:\Program Files\Microsoft Office\root\Office16\GRAPH.EXE"

تفضل أخي الكريم ،، Function ConvertCurrencyToArabic(ByVal MyNumber) Dim Temp Dim AED, Cents Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " ألف " Place(3) = " مليون " Place(4) = " مليار " Place(5) = " تريليون " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, ".") If DecimalPlace > 0 Then Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2) Cents = ConvertTens(Temp) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = ConvertHundreds(Right(MyNumber, 3)) If Temp <> "" Then AED = Temp & Place(Count) & AED End If If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case AED Case "" AED = "لا يوجد درهم" Case "One" AED = "درهم واحد" Case Else AED = AED & " درهم" End Select Select Case Cents Case "" Cents = "" Case "One" Cents = " " Case Else Cents = " و" & Cents & " " End Select ConvertCurrencyToArabic = AED & Cents End Function Private Function ConvertDigit(ByVal MyDigit) Select Case Val(MyDigit) Case 1: ConvertDigit = "واحد" Case 2: ConvertDigit = "اثنان" Case 3: ConvertDigit = "ثلاثة" Case 4: ConvertDigit = "أربعة" Case 5: ConvertDigit = "خمسة" Case 6: ConvertDigit = "ستة" Case 7: ConvertDigit = "سبعة" Case 8: ConvertDigit = "ثمانية" Case 9: ConvertDigit = "تسعة" Case Else: ConvertDigit = "" End Select End Function Private Function ConvertHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) If Left(MyNumber, 1) <> "0" Then Result = ConvertDigit(Left(MyNumber, 1)) & " مئة " End If If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & ConvertTens(Mid(MyNumber, 2)) Else Result = Result & ConvertDigit(Mid(MyNumber, 3)) End If ConvertHundreds = Trim(Result) End Function Private Function ConvertTens(ByVal MyTens) Dim Result As String If Val(Left(MyTens, 1)) = 1 Then Select Case Val(MyTens) Case 10: Result = "عشرة" Case 11: Result = "أحد عشر" Case 12: Result = "اثنا عشر" Case 13: Result = "ثلاثة عشر" Case 14: Result = "أربعة عشر" Case 15: Result = "خمسة عشر" Case 16: Result = "ستة عشر" Case 17: Result = "سبعة عشر" Case 18: Result = "ثمانية عشر" Case 19: Result = "تسعة عشر" Case Else End Select Else Select Case Val(Left(MyTens, 1)) Case 2: Result = "عشرون " Case 3: Result = "ثلاثون " Case 4: Result = "أربعون " Case 5: Result = "خمسون " Case 6: Result = "ستون " Case 7: Result = "سبعون " Case 8: Result = "ثمانون " Case 9: Result = "تسعون " Case Else End Select Result = Result & ConvertDigit(Right(MyTens, 1)) End If ConvertTens = Result End Function وهذا مرفق لكود آخر للتفقيط بالعربي تفقيط الارقام فى الاكسس.accdb

السلام عليكم الاخ الكريم مرفق ملف اقتباس من اعمال الاخ ياسر والاخ مختار المسار محدد سابقا فى الكود \D يتم حفظ الملف باسم الموجود فى الخليه a1 لعله المطلوب PDF1.rar

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