البحث في الموقع

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

نسخة مختصرة لعرض التقارير فقط بسيط والكود بسيط ودالة مبسطة 1- من خلال المكرو تفتح قائمة مخترة من فورم ولكن خليته فاضي 2- لا يحمل جدول اعدادة الا مقاس الشاشة وتقرير هل يوجد مقترح بتعديل على عرض التقرير او التصميم او طريقة افضل منها ☕ ====================================( Video ) show_report_withcontrol.rar

كوجهة نظري يمكن تشغيل من غير دالة المرفق بدالة آخرى تضبط قياسات الى دعم شاشة HD اما فوق القياس حسب طلب العملاء HDR 4k وتختلف بختلاف التصميم كل ما صغرة الشاشة ستعتمد على اسلوب مختلف لتلائم مع استخدامات المستخدمين تباعد وتناسق التصفيف والحقول يعني 20 حقل بنافذة بتصغرهم نفس الوضع ؟! !!!!!! والبعض مهتم بشاشة الصغيرة عند التكبير يندم صمم بالوسط عند تكبير تصميم آخر وعند تصغيرة تصميم آخر النموذج الصغير يتم تقسيمة بالازرار ليتناسب النموذج الكبير توسيط احجام الحقول ويمكن التغير من بار علوي الى جانبي وخصائص ورئيه ممتازة تم ارفقاق في سابق جزء بما سبق ذكره وانت كيفك صحيح يمكن غرضه بسيط او مشروع اصغر 😂 فورم حدث عند التحميل حدث عند الفتح حدث عند تغير الاحجام ☕

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

فورم اكسل لحساب المصاريف بالذكاء الاصطناعى موقع sider صورة من الموقع للاكواد فورم لحساب المصاريف المدرسية.xlsm

عمل فورم من خلال موقع chatgptبحث واضافة وحذف وحفظ ومسح فورم بحث واضافة وحذف بيانات بالذكاء الاصطناعي.xlsm

وداعا للاكواد بالاكسل وتنفيذ فورم بالاستعانة بموقع chatgpt الفيديو والملف في الاسفل وضع المعادلات فى الاكسل من خلال الذكاء الاصطناعي.xlsm

لو انا عندى جدول تسجيل الملاحظات كل سجل فيه حقل الكود وحقل الملاحظه اسمه note_tbl وعندى فورم لتسجيل الملاحظات اسمه note_frm عندى كمان فورم اخر اسمه empoly_frm من ضمن حقوله حقل ملاحظه مصدره جدولempoly_tbl عند الضغط بداخل حقل الملاحظه يفتح فورمnote_frm لاختيار احد الملاحظات ولكن اريد عند كتابة ملاحظه جديده فى حقل الملاحظه فى فورم empoly_frm يقوم بالبحث عن الملاحظه فى جدول note_frm اذا كانت موجوده قبل ذلك يعطى رساله خطا واذا لم تكن موجوده يتم اضافة الملاحظه الى جدول note_tbl

قصدك استخراج جدول اكسس الى ملف اكســـل مكتوب فيه الدول اكســــل يمكن اما استخدام مع قواعد الجدوال اكسس الي تسمونها قواعد خلفية يمكن اما العكس اكســــل قاصر بنية اساسية جداول باوراق عمل والاساس برمجي محدود خلاف اكسس ============================== VBA 6 ?! Excel And back db Ms Access = (Ms.Access 1 To Link File Excel ) ☕ ودي اقتنع انك تبي فورم اكســـــل امامي

انا حابب اوضح نقطه انا تقريبا فهمت اللى انت عايز تعمله بص من كلامك انت عايز تخلى المستخدم يكتب المعادله بنفسه بدل ما يتم حفظها داخل اكواد vba بالتالى هيكون صعب يقدر يعدلها دا اولا.. وبعدين المعادله دى انت محتاج تحولها لداله دولوك اب عشان تستخدمها فى فورم ادخال النتائج ..علشان فى لحظة ادخال نتيجه الحقل المحسوب هتقوله انه بيساوى الحقل اللى فيه الداله فى الجدول الحل وانت فى فورم تسجيل المعادله بعد اختيار اسم التست يكون فى كود يحول اسم التست للكودالخاص بيه واى رموز تانيه زى العمليات الحسابيه تفضل زى ماهى فى الكود يعنى مثلا دا تحليل محسوب اسمه homair ودى المعادله بتاعته اللى هيتم تكوينها فى الفورم (FBG*Fasting Insulin)/405 انت محتاج تحول المعادله لداله زى كدا (DLookup("result","test_order_tbl","[tcode] = 4 And [ID] = [Forms]![visit_frm]![ID]")*DLookup("result","test_order_tbl","[tcode] = 651 And [ID] = [Forms]![visit_frm]![ID]"))/405 انا فاهم صح كدا

السلام عليكم .. محتاج اعرف ازاى انقل قيمة حقل من فورم الى اخر هذا الحقل له الخصائص التاليه ( غير ممكن ومخفى) enabeld no, locked yes مع العلم جربت الكود دا DoCmd.OpenForm "calculated_frm", , , , , , Me!CustomerID بس فى حالة التنقل بين الاكواد فى الفورم الاول بينقل اول كود فقط .

السلام عليكم الاخوة الافاضل كل عام و حضراتكم جميعا بالف خير و صحة و سعادة كنت محتاج تعديل فى كود البحث فى اليوزر فورم الان يبحث فى العمود A فقط و يظهر كل الحقول بناء على رقم البحث فى العمود A المطلوب اضافة كمبوبوكس يكون البحث عن طريق العمود A و العمود B والعمود C يعني اختار قيمة من العمود A وقيمة من العمود B وقيمة من العمود C فيظهر سطر البحث مرفق الملف الف الف شكر لحضراتكم ترحيل مع كمبوبوكس البحث بحقلين).xlsm

عند استخدام فروم البحث الشامل لا يظهر بيانات فورم عند الكتابة وقبل الكتابة نمودج للملف

ربما هدا ما تقصده تعديل فورم V6 -.rar

تم تعديل رقم المسلسل ممكن بعد اذنك لو تكرمت اضافة رؤوس الاعمدة بالليست بوكس .. على ان يتم العمل على يوزرفورم 7 تعديل فورم V5 -.rar

نعم اخي المشكلة في طريقة البحث التي تستخدمها لهدا سنعتمد على طريقة متقدمة نوعا ما لتنفيد طلبك وتحديد الصف بدون الاعتماد على إسم او رقم الملف مع اظافة إمكانية البحث والفلترة بأي عمود Private Sub ListBox1_Click() Dim lastRow As Long: lastRow = f.Rows.Count f.Range("A7:A" & lastRow).Interior.ColorIndex = xlNone For i = 1 To OnRng Me("textbox" & i) = Me.ListBox1.Column(i - 1) Next i Me.N_ligne = Me.ListBox1.Column(i - 1) rng = Me.N_ligne + 6 If rng > 0 Then With f .Range(.Cells(rng, "C"), .Cells(rng, "N")).Select .Cells(rng, "A").Interior.Color = RGB(0, 0, 255) End With End If End Sub تعديل فورم V5 -.rar

غير طريقة خلهم صور اظهار واخفاء بدوائر مغلقة اقصد حركة الكره الحمرا بمسار اتجاه بشكل مربع تغير اظهار ويتحرك من غير كود اسليب خله بكود الوقت لان كود Movie = Refresh Auto ?! dim icon as intger for icon = 1 to 30 مثال if "Game" & icon = Me ( "Game" & icon ).name then Me ( "Game" & icon ).v=true else Me ( "Game" & icon ).v=flase end if next ========================= )جرب( اذا صغط على الكيبورد بضغط مستمر ممتتالي نفس النتيجة فورم مخفي تضغط بالاسهم يغير تحريك العناصر الفورم بالوقت بشرط الغفل 1 0 ================================= الخلفية بفورم لحاله 😇 وفورم اللعبة تكون باطار مخفي الكل فوق بعض في فورم واحد جرب بعض التغيرات

Private Sub ListBox1_Click() Dim i As Byte, Clé As Variant Dim WS As Worksheet, ColF As Range Dim Colstar As Integer, ColEnd As Integer Set WS = Sheets("البداية") Colstar = 3 ColEnd = 14 For i = 0 To 11 Controls("TextBox" & (i + 1)).Value = IIf(ListBox1.ListIndex <> -1, ListBox1.Column(i), "") Next i Clé = TextBox4.Value Set ColF = WS.Columns("F").Find(What:=Clé, LookIn:=xlValues, LookAt:=xlWhole) If Not ColF Is Nothing Then WS.Activate WS.Range(WS.Cells(ColF.row, Colstar), WS.Cells(ColF.row, ColEnd)).Select End If End Sub With ComboBox1 .Clear .AddItem "رقم الملف": .AddItem "الفاحص": .AddItem "اسم المراجع" End With UserForm_Initialize TextBox13.Value = "": ComboBox1.Value = "" Label15.Caption = "" تعديل فورم.rar

Function irow(ws As Worksheet, tmp As String) As Long Dim lastrow As Long, i As Long lastrow = ws.Cells(ws.Rows.Count, "E").End(xlUp).row For i = 7 To lastrow If ws.Cells(i, 5).Value = tmp Then irow = i Exit Function End If Next i irow = -1 End Function تعديل Private Sub CommandButton2_Click() Dim ws As Worksheet, linge As Long, i As Long Dim ColArr As Variant, arr() As Variant Set ws = ThisWorkbook.Sheets("البداية") Dim tmp As String: tmp = Me.TextBox3.Value If tmp = "" Then: MsgBox "الرجاء إدخال رقم الملف", vbExclamation, "خطأ": Exit Sub linge = irow(ws, tmp) If linge = -1 Then: MsgBox "رقم الملف غير موجود", vbExclamation, "خطأ": TextBox3.SetFocus: Exit Sub If MsgBox("هل أنت متأكد أنك تريد تعديل بيانات " & Me.TextBox4.Value & "؟", vbYesNo + vbQuestion, "تأكيد") = vbYes Then ColArr = Array("C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N") arr = Array(Me.TextBox1.Value, Me.TextBox2.Value, Me.TextBox3.Value, _ Me.TextBox4.Value, Me.TextBox5.Value, Me.TextBox6.Value, _ Me.TextBox7.Value, Me.TextBox8.Value, Me.TextBox9.Value, _ Me.TextBox10.Value, Me.TextBox11.Value, Me.TextBox12.Value) Application.ScreenUpdating = False For i = LBound(arr) To UBound(arr) If i <= UBound(ColArr) Then ws.Cells(linge, ColArr(i)).Value = arr(i) End If Next i UserForm_Initialize Application.ScreenUpdating = True MsgBox "تم تعديل البيانات بنجاح", vbInformation End If End Sub ترحيل Private Sub CommandButton1_Click() Dim ws As Worksheet, lastrow As Long Dim arr() As Variant, ColArr As Variant, tmp As String Set ws = ThisWorkbook.Sheets("البداية") lastrow = ws.Cells(ws.Rows.Count, "E").End(xlUp).row tmp = Me.TextBox3.Value If tmp = "" Then MsgBox "الرجاء إدخال رقم الملف", vbExclamation, "خطأ": Exit Sub If TextBox4.Value = "" Then MsgBox "يرجى ادخال اسم صاحب المعاش", vbExclamation: TextBox4.SetFocus: Exit Sub If TextBox6.Value = "" Then MsgBox "يرجى ادخال اسم الفاحص", vbExclamation: TextBox6.SetFocus: Exit Sub If WorksheetFunction.CountIf(ws.Range("E7:E" & lastrow), tmp) > 0 Then MsgBox "رقم الملف موجود بالفعل", vbExclamation, "تكرار رقم الملف": Exit Sub End If ColArr = Array("C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N") arr = Array(Me.TextBox1.Value, Me.TextBox2.Value, tmp, TextBox4.Value, _ Me.TextBox5.Value, TextBox6.Value, Me.TextBox7.Value, _ Me.TextBox8.Value, Me.TextBox9.Value, Me.TextBox10.Value, _ Me.TextBox11.Value, Me.TextBox12.Value) Application.ScreenUpdating = False For i = LBound(arr) To UBound(arr) ws.Cells(lastrow + 1, ColArr(i)).Value = arr(i) Next i With ws.Range("C7:C" & ws.Cells(ws.Rows.Count, "D").End(xlUp).row) .Value = Evaluate("ROW(" & .Address & ")-6") End With For Each ctrl In Me.Controls If TypeName(ctrl) = "TextBox" Then ctrl.Value = "" Next ctrl UserForm_Initialize Application.ScreenUpdating = True MsgBox "تم إدخال البيانات بنجاح", vbInformation, "نجاح" End Sub تعديل فورم.rar

وعليكم السلام ورحمة الله تعالى وبركاته Option Compare Text Dim f, Rng, wsData() Private Sub UserForm_Initialize() Dim f As Worksheet, Rng As Range Dim wsData As Variant, i As Long Set f = Sheets("البداية") Set Rng = f.Range("C7:N" & f.Cells(f.Rows.Count, "E").End(xlUp).row) wsData = Rng.Value For i = LBound(wsData, 1) To UBound(wsData, 1) Dim j As Long For j = 2 To 11 If IsDate(wsData(i, j)) Then wsData(i, j) = Format(wsData(i, j), "yyyy/mm/dd") Next j Next i With ListBox1 .ColumnWidths = "35;70;65;100;110;65;70;75;70;70;70;100" .ColumnCount = 12: .Font.Size = 9: .Font.Name = "Mudir MT" .List = wsData End With With ComboBox1 .AddItem "رقم الملف": .AddItem "الفاحص": .AddItem "اسم المراجع" End With 'Code............. End Sub Private Sub ListBox1_Click() Dim i As Byte, Rng As Long Dim Colstar As Integer, ColEnd As Integer Dim ws As Worksheet: Set ws = Sheets("البداية") Colstar = 4: ColEnd = 14 If ListBox1.ListIndex = -1 Then MsgBox "يرجى اختيار صف من القائمة", vbExclamation Exit Sub End If For i = 0 To 11 If IsDate(ListBox1.Column(i)) Then Controls("TextBox" & i + 1).Value = Format(ListBox1.Column(i), "yyyy/mm/dd") Else Controls("TextBox" & i + 1).Value = ListBox1.Column(i) End If Next i TextBox15.Value = ListBox1.ListIndex + 1 Rng = ListBox1.ListIndex + 7 With ws .Activate .Range(.Cells(Rng, Colstar), .Cells(Rng, ColEnd)).Select End With End Sub تعديل فورم.rar

وعليكم السلام ورحمة الله وبركاته تفضل مطلوبك وبالتوفيق تعديل فورم.7z

السلام عليكم الملف يحتوى على فورم يقوم بالبحث والاضافة والتعديل والانتقال بين الصفوف حسب اختيارك للبيانات فى الليست بوكس .. المطلوب : هناك مشكلتين : الاولى : بيانات الليست بوكس غير متفقه مع بيانات الشيت ... ولقد اكتشفت السبب وهو ان عمود المسلسل مرتبط بالتاريخ بمعنى ان المسلسل يبدا من 1 مع بداية كل شهر ويوبنتهى بنهاية الشهر ثم يبدا من جديد ببداية شهر جديد وهكذا وبالتالى عندما يتم استدعاء البيانات فى الليست بوكس بيانات مسلسل مثلاً 18 فى شهر 8 للاسف هى بيانات شهر 7 ( بداية التسلسل شهر 7 فى العمود ) وبالتالى عند تحديد اىو بيان فى شهر 8 او 9 او 10 سيتم تحديد نظيره فى شهر 7 الثانية : تنسيق اعمدة التاريخ فى الليست بوكس و وتنسيق بيانات التيكست بوكس الخاصة بالتاريخ مطلوب تنسيقها كالآتى : يوم / شهر / سنة تعديل فورم.rar

السلام عليكم ورحمة الله وبركاتة لقد صممت فورم به اجمالى المبلغ مع قيم العددية فئات يتم توزيعها على مجموعتين نقدية 1 ونقدية 2 ويوجد المجموع الكلى قبل التوزيع فى Textbox10 ويوجد المجموع نقدية 1 فى Textbox11 ويوجد المجموع نقدية 2 فى Textbox12 ولاكن القيم النقدية فى textbox10,11,12 غير مظبوطة مع المجموعات كما هى مدرجة فى الصورة المرفقة مع العلم انى كنت اريد توزيع القيم العددية الى نقدية 1 و2 على حسب مجموع القيم النقدية وليس العددية فى textbox11,12 Private Sub CommandButton24_Click() Dim قيمة1 As Long, قيمة2 As Long, قيمة3 As Long Dim نصف_القيمة1 As Double, نصف_القيمة2 As Double, نصف_القيمة3 As Double Dim إجمالي_نقدية1 As Double, إجمالي_نقدية2 As Double, إجمالي_كلية As Double Dim نسبة_نقدية1 As Double, نسبة_نقدية2 As Double ' التحقق من صحة الإدخال (يمكن إضافة المزيد من التحقيقات حسب الحاجة) If Not IsNumeric(TextBox1.Value) Or Not IsNumeric(TextBox2.Value) Or Not IsNumeric(TextBox3.Value) Then MsgBox "الرجاء إدخال أعداد صحيحة موجبة فقط." Exit Sub End If If Val(TextBox1.Value) <= 0 Or Val(TextBox2.Value) <= 0 Or Val(TextBox3.Value) <= 0 Then MsgBox "الرجاء إدخال أعداد أكبر من الصفر." Exit Sub End If ' قراءة القيم من النصوص قيمة1 = Val(TextBox1.Value) قيمة2 = Val(TextBox2.Value) قيمة3 = Val(TextBox3.Value) ' حساب النصف لكل قيمة نصف_القيمة1 = قيمة1 / 2 نصف_القيمة2 = قيمة2 / 2 نصف_القيمة3 = قيمة3 / 2 ' تحويل الأجزاء العشرية إلى أعداد صحيحة وتوزيع الباقي TextBox4.Value = Int(نصف_القيمة1) TextBox5.Value = Int(نصف_القيمة2) TextBox6.Value = Int(نصف_القيمة3) TextBox7.Value = قيمة1 - TextBox4.Value TextBox8.Value = قيمة2 - TextBox5.Value TextBox9.Value = قيمة3 - TextBox6.Value Me.TextBox13.Value = Val(Me.TextBox1.Value) * 200 Me.TextBox14.Value = Val(Me.TextBox2.Value) * 100 Me.TextBox15.Value = Val(Me.TextBox3.Value) * 50 Me.TextBox16.Value = Val(Me.TextBox4.Value) * 200 Me.TextBox17.Value = Val(Me.TextBox5.Value) * 100 Me.TextBox18.Value = Val(Me.TextBox6.Value) * 50 Me.TextBox19.Value = Val(Me.TextBox7.Value) * 200 Me.TextBox20.Value = Val(Me.TextBox8.Value) * 100 Me.TextBox21.Value = Val(Me.TextBox9.Value) * 50 ' حساب القيم الإجمالية (مع التعديل) إجمالي_نقدية1 = TextBox13.Value * Val(TextBox4.Value) + TextBox14.Value * Val(TextBox5.Value) + TextBox15.Value * Val(TextBox6.Value) إجمالي_نقدية2 = TextBox13.Value * Val(TextBox7.Value) + TextBox14.Value * Val(TextBox8.Value) + TextBox15.Value * Val(TextBox9.Value) إجمالي_كلية = إجمالي_نقدية1 + إجمالي_نقدية2 If إجمالي_كلية <> 0 Then نسبة_نقدية1 = إجمالي_نقدية1 / إجمالي_كلية نسبة_نقدية2 = إجمالي_نقدية2 / إجمالي_كلية Else MsgBox "حدث خطأ: الإجمالي الكلي يساوي صفرًا." Exit Sub End If ' بدلاً من توزيع القيم بناءً على النسبة المئوية، يمكن توزيعها بالتساوي TextBox11.Value = (نصف_القيمة1 + نصف_القيمة2 + نصف_القيمة3) / 2 TextBox12.Value = (نصف_القيمة1 + نصف_القيمة2 + نصف_القيمة3) / 2 TextBox11.Value = Format(إجمالي_نقدية1, "$#,##0.00") TextBox12.Value = Format(إجمالي_نقدية2, "$#,##0.00") TextBox10.Value = Format(إجمالي_كلية, "$#,##0.00") Me.TextBox59 = Val(TextBox4) + Val(TextBox5) + Val(TextBox6) Me.TextBox60 = Val(TextBox7) + Val(TextBox8) + Val(TextBox9) MsgBox "تم التوزيع بنجاح." End Sub توزيع فئات نقدية.xlsm

لو عندي تقرير عايزه اخلي فى اتاحه لتغيير المسافه بين كل سطر والاخر برقم معين هيتحط فى فورم فى الاعدادات New Microsoft Access Database.accdb

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