محمد أبوعبدالله

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Me.m1 = DLookUp("Almwka","Alsnaf","[ID_Sanf]=" & Me.ID_Sanf & " AND [Criteria2]='" & Me.Text2 & "'") مع تغيير ما يلزم تحياتي

تاكد من اعدادت اللغة كما هو موضح بالصور

ما شاء الله لا قوة الا بالله جزاك الله خيرا على هذه الهدية القيمة دمتم بالخيرات تحياتي

الف مليون مبروك لاخواننا الافاضل والى مزيد من التقدم وبالنوفيق للجميع تحياتي

اضف هذا الامر Me.صفحة1.SetFocus DoCmd.GoToRecord , , acNewRec تحياتي

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم اكمل باقي الحقول المراد الـاكد منها في السطر الاول على النحو التالي If IsNull(Me.صفحة1.Form!اللقب) Or IsNull(Me.صفحة1.Form!الاسم) Then MsgBox "بيانات غير مكتملة" Else Call NoEmptyTexts If ii = 1 Then Exit Sub DoCmd.CancelEvent Else Me.Refresh MsgBox " تمت عمليةاضافة موظف جديد ( " & صفحة1.Form.اللقب1 & ") بنجاح ", vbInformation + vbOKOnly, "تنبيه" End If DoCmd.GoToRecord , الموظف, acNewRec DoCmd.CancelEvent End If تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم هذا الكود سيعمل معك على نسخة 32 & 64 بدون مشاكل ان شاء الله Dim XPicFile As Variant Dim XPicFilez As Variant With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Clear .Filters.Add "All Files", "*.*" .Filters.Add "jpg image", "*.jpg" .Filters.Add "jpeg image", "*.jpeg" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then XPicFilez = .SelectedItems(1) [PackDesign subform].[Form]![PicFile] = XPicFilez [imgPicture].Picture = [PackDesign subform].[Form]![PicFile] End If End With تحياتي

تفضل اخي الكريم Dim mySQL As String mySQL = "SELECT TOP 4 * FROM Table1" mySQL = mySQL & " ORDER BY num DESC;" Me.RecordSource = mySQL Me.Requery test(2)(1).accdb تحياتي

بالتوفيق اخي الكريم

وعليكم السلام ورحمة الله وبركاته جرب هذه الطريقة test(2).accdb الشرح بالصورة تحياتي

وعليكم السلام ورحمة الله وبركاته يتم هذا في الاستعلام او في النموذج بضرب الحقل في النسبة الذي تريدها مثال 'غير اسم الحقل TextBox1 حسب برنامج ' في النموذج Discount = (Nz(TextBox1)) * 0.1 ' يتم الضرب في 10% Discount = (Nz(TextBox1)) * 0.01 ' يتم الضرب في 1% ' في الاستعلام Discount : (Nz(TextBox1)) * 0.1 Discount : (Nz(TextBox1)) * 0.01 تحياتي

افلح وجهك يا غالي الخطأ من عندي انا الحمد لله تم الحل وجزاك الله خيرا اخي الحبيب تحياتي

تحمل معي اخي الحبيب

السلام عليكم استاذنا جعفر ظهرت هذه الرسالة دمتم بالخيرات

بالتوفيق استاذنا الفاضل @sandanet

السلام عليكم ورحمة الله وبركاته برجاء المساعدة في تصحيح جملة MySQL يوجد خطأ في جملة الاستعلام التالية في السطر الثاني mySQL = "Select * From Query2" mySQL = mySQL & " WHERE IDStu Between [Forms]![X1]![A1] And [Forms]![X1]![A2] & """ Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst الذي اريده ان يتم حصر الارقام حسب مدخلات النموذج X1بين A1 And A2 ولكم وافر التحية

رائع استاذنا الفاضل ربنا يزيدك من علمه وفضله وكرمه

حضرتك جعلت مصدر الحقول من الجدول تم الغاء مصدر الحقول من الجدول New Microsoft Office Access Application.rar تحياتي

السلام عليكم ورحمة الله وبركاته تفضل اخي الكريم New Microsoft Office Access Application.rar تحياتي

احل ان تكتب اسماء العناصر في النماذج والتقرير انجليزي مثال : في نموذج test حقل باسم : السؤال الافضل ان يكون الحقل باسم انجليزي مثلاً Question غير جميع اسماء العناصر الى انجليزي وستنتهي المشكلة ان شاء الله تحياتي

وجزاك الله خيرا اخي بالتوفيق يا رب

تفضل اخي الكريم كما بالصورة تحياتي

وعليكم السلام ورحمة الله وبركاته برجاء مراجعة المرفق colmn.accdb تحياتي

https://www.officena.net/Tips/Questions.htm للرفع

اخ سراج الله يهديك اين هو حقل ho مربع النص الموجود باسم vv ومصدر البيانات له ho وقد تم جمعه كالتالي =Sum(Nz([ho])) واذا اردت جمع اي حقل يكون بنفس الطريقة =Sum(Nz([اسم مربع النص المراد جمعه])) تحياتي