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

هذه هي المعادلة الموجودة في الملف الاصلي =Sum(IIf([iPage]=1 Or [iPage]=0 Or [iPage]=0 Or [iPage]=0;0;[iAmount])) المعيار iPage = 0 او iPage =1 ولو لاحظت لا يحتوي هذا الا على هذا المبلغ = 200 DATA1041-5.rar تحياتي

تفصل اخي الكريم Dim X As String Dim X1() As String Dim i As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.RecordsetClone.RecordCount X = Nz(DLookup("[سعر الوحدة] & '|' & [الوحدة] & '|' & [الصنف] & '|'", "اكواد", "[كود الصنف]='" & Me.كود_الصنف & "'"), "||||") X1 = Split(X, "|") Me.وحدة = X1(1) Me.السعر = X1(0) Me.اسم_صنف = X1(2) Call كود_صنف_AfterUpdate DoCmd.GoToRecord , , acNext Next 2استعلام.rar تحياتي

بداية عوداً حميداً اخي @محسن سرحان هذه محاولة ارجو ان تفيدك باذن الله 1 - حولت حقل الصورة الى مربع نص / Long Text 2 - اضفت كود للحصول على امتداد الملف وهو كالتالي Function File_Type(filename) Dim File_Folder As String File_Path = CurrentProject.Path & "\" & "\Img\" File_Folder = Dir(File_Path & filename & "*") File_Type = Right$(File_Folder, Len(File_Folder) - InStrRev(File_Folder, ".")) End Function 3 - وضعت كود لتحديث حقل الصورة باسم الصورة الذي هو ID مع امتداد الملف ( وهذه لجميع الصور ) ان وجد Dim rs As DAO.Recordset Dim i As Integer Set rs = CurrentDb.OpenRecordset("SELECT * FROM Table1") File_Path = CurrentProject.Path & "\" & "\Img\" If Not rs.BOF Then rs.MoveFirst While (Not rs.EOF) rs.Edit If Len(File_Type(rs.Fields(0))) > 0 Then rs.Fields(2) = File_Path & rs.Fields(0) & "." & File_Type(rs.Fields(0)) rs.Update Else rs.MoveNext End If rs.MoveNext Wend End If rs.Close Set rs = Nothing 4 - غيرت في التقرير الحقل ليكون حقل صورة جرب واعلمني بالنتيجة بارك الله فيك القاعدة.rar تحياتي

ولا تترك عنصر تحكم او نموذج او تقرير ولا تكتب شىء في vba باي لغة غير اللاتينية / الانجليزية تحياتي

جرب الكود التالي مع تغيير اسم النموذج وحقل المعيار DoCmd.OpenForm "frm!", , ,"LastName =" & Id تحياتي

تفضل اخي الكريم Dim X As String Dim X1() As String Dim i As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.RecordsetClone.RecordCount X = Nz(DLookup("[سعر الوحدة] & '|' & [الوحدة] & '|'", "اكواد", "[كود الصنف]='" & Me.كود_الصنف & "'"), "|||") X1 = Split(X, "|") Me.وحدة = X1(1) Me.السعر = X1(0) DoCmd.GoToRecord , , acNext Next استعلام.rar تحياتي

وعليكم السلام ورحمة االله وبركاته دهنا نحاول تتبع الخطأ خطوة خطوة 1 - عندما تقوم بتحويل الملف الى Accde على جهازك ونقله الى جهاز العميل هل يعمل بشكل جيد مع وجوج النسخة الكاملة اذا كانت الاجابة لا ؟ اعقتد ان المشكلة متعلقة باللغة وهي وجود اسماء لعتاصر التحكم باللغة العربية تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تم الاستغناء عن كتابة الكود في مصدر تحكم Text20 وكتابته بعد البحث Me.Text20 = DSum("iAmount", "tbl_Items", "iPage <=1 " & " And [iBill_Number] = '" & Me.txtsearch & "'") DATA1041-5.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم If DCount("*", "t2", "itemname='" & Me.itemname & "'" & " and masterid ='" & Me.masterid & "'") > 0 Then MsgBox "صنف مكرر", vbInformation, "تحذير" DoCmd.CancelEvent End If test7.rar اخونا يسأل عن عدم تكرار الصنف في الفاتورة تحياتي

وعليكم السلام ورحمة الله وبركاته الجداول المؤقتة تستخدم كما ذكرت لتخفيف قاعدة البيانات وذلك بتقليص حجمها يتم انشاء الجداول المؤقتة عن طريق الكود او عن طريق استعلام من الكود CurrentDb.Execute "SELECT tbl1.textname INTO tbl_temp FROM tbl1;" من الاستعلام SELECT tbl1.textname INTO tbl_temp FROM tbl1; في هذه العملية يتم استنساخ جزء او كل الجدول او الاستعلام وتكوين جدول جديد مع وضع معايير او بدون العملية شبيهة باستعلام الالحاق لكن هنا يتم انشاء الجدول اولا ثم الحاق البيانات في المثال السابق يوجد جدول tbl1 وهو الجدول الاصلي وبه خقل textname سيتم انشاء والحاق البيانات في الجدول المؤقت هو tbl_temp يمكن الاستفادة من الجدول في تقرير او نموذج وبعد الانتهاء من العملية نقوم بحذف الجدول الموئقت كالتالي DoCmd.DeleteObject acTable, "tbl_temp" العملية بسيطة وغير معقدة ولا تنسى عمل ضغط واصلاح لقاعدة البيانات عند الاغلاق لتعود مساحة قاعدة البيانات الى ما كانت عليه تحياتي

وما هو حق السماء !!! ؟؟؟ الموضوع تم حله في الرابط التالي تحياتي

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

وهذه محاولة ارجو ان يكون هو المطلوب mySQL = "Select * From tblData ORDER BY ID" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst For i = 1 To Int(rst.RecordCount / 5) Me.List1.AddItem rst!CustCode rst.MoveNext Next For i = (List1.ListCount + 1) To (List1.ListCount + Int(rst.RecordCount / 5)) Me.List2.AddItem rst!CustCode rst.MoveNext Next For i = (List2.ListCount + 1) To (List2.ListCount + Int(rst.RecordCount / 5)) Me.List3.AddItem rst!CustCode rst.MoveNext Next For i = (List3.ListCount + 1) To (List3.ListCount + Int(rst.RecordCount / 5)) Me.List4.AddItem rst!CustCode rst.MoveNext Next For i = (List4.ListCount + 1) To (List4.ListCount + rst.RecordCount / 5) Me.List5.AddItem rst!CustCode rst.MoveNext Next rst.Close Test77.rar تحياتي

وعليكم السلام ورحمة الله وبركاته بالاضافة الى ما تفضل به استاذنا الفاضل @Eng.Qassim وله جزيل الشكر تفضل اخي الكريم DoCmd.OpenForm "Employees", , , "ID=" & Me.Text1.Value Sample.rar تحياتي

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

تفضل اخي الكريم Dim ctl As Control Dim i As Integer For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then i = i + Len(ctl & vbNullString) ctl.Value = Null End If Next ctl If i = 0 Then MsgBox "الحقول فارغة" Else MsgBox "تم تفريغ الحقول" End If تجياتي

تفضل هذا البرنامج الرائع لصنع التقارير تحياتي

وعليكم السلام ورحمة الله وبركاته في الاستعلام نستخدم IIF وليس IF بهذا الشكل Expr1: IIf([Op_Type]="فاتورة مبيع";[amount12];0) وبالنسبة لباقي الاسئلة كيف تعرف الدائن من المدين تحياتي

وعليكم السلام ورحمة الله وبركاته

كلمة السر = 0 تحياتي

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

مرحبا اخي @الحلبي افتح برنامج اكسيس فارع ثم تابع كما بالصور تحياتي

وهذا مثال لاحد الاخوة بالمنتدى سيفيدك باذن الله Auto ReLink.rar تحياتي

تفضل اخي الكريم Dim strDbFile As String Dim strPassword As String Dim strConnect As String ' تحديد اسم قاعدة البيانات strDbFile = CurrentProject.Path & Me.Compox.values ' كلمة مرور قاعدة البيانات strPassword = "123456789" strConnect = "MS Access;PWD=" & strPassword & ";DATABASE=" & strDbFile Dim tdf As dao.TableDef Set db = CurrentDb For Each tdf In db.TableDefs ' ignore system and temp tables If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name Like "exl*") Then tdf.Connect = strConnect tdf.RefreshLink End If Next تحياتي

وعليكم السلام ورحمة الله وبركاته لم يتم عمل شىء في الملف 😒 تفضل اخي الكريم الملف الجديد بعد التعديل مؤشر.rar تحياتي