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

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

يوجد شرح مفصل لاستاذنا @صالح حمادي لاداة WebBrowser انصحك بالاطلاع عليه تحياتي

وعليكم السلام ورحمة الله وبركاته من الاستعلام استخدم B : Text1 & "" & Text2 & "" & Text3 & "" & Text4 & "" & Text5 & "" & Text6 عن طريق الكود ضع هذا الكود في وحدة نمطية Public Function All_Text(ID As Long) As String On Error GoTo err_All_Text Dim rst As dao.Recordset Set rst = CurrentDb.OpenRecordset("Select * From tbl1 Where ID=" & ID) All_Text = rst!Text1 & "" & rst!Text2 & "" & rst!Text3 & "" & rst!Text4 & "" & rst!Text5 & "" & rst!Text6 Exit_All_Text: rst.Close: Set rst = Nothing Exit Function err_All_Text: If Err.Number = 3265 Then All_Text = "" Resume Exit_All_Text Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function ثم استدعي الكود في الاستعلام بالشكل التالي A: All_Text([id]) مرفق مثال ارجو ان يفيدك D55.zip تحياتي

وعليكم السلام ورحمة الله وبركاته يمكنك استخدام الكود التالي لزر الامر بدلاً عن الماكرو Private Sub أمر207_Click() Call NoEmptyTexts If ii = 1 Then Exit Sub DoCmd.CancelEvent Else DoCmd.OpenReport "جذاذت اناث", acViewPreview End If End Sub قاعدة بيانات (220000).rar تحياتي

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

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

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم لطرح الايام بين تاريخين نستخدم الكود التالي DateDiff("d",[StartDate];[EndDate])+1 اما اذا كان الكود في الاستعلام يكون البشكل النالي X1 : DateDiff("d";[StartDate];[EndDate])+1 تحياتي

انت قمت باستخدام مربع تحرير وسرد كما انه مربع نص ( بغض النظر ان هذه ليست وظيفته ) هل جربت نتيجة البحث سؤال : انت لديك كتابن يحملان الرقم 150 . كيف ستصل بالحث الى الكتاب الذي يحمل رقم 150 الثاني في كل الاحوال ارجو من الله للجميع دوام التوفيق تحياتي

اسأل الله العظيم رب العرش العظيم ان يشفيه اسأل الله العظيم رب العرش العظيم ان يشفيه اسأل الله العظيم رب العرش العظيم ان يشفيه اسأل الله العظيم رب العرش العظيم ان يشفيه اسأل الله العظيم رب العرش العظيم ان يشفيه اسأل الله العظيم رب العرش العظيم ان يشفيه اسأل الله العظيم رب العرش العظيم ان يشفيه

ضع مصدر الحقل الكود التالي =DLookup("[balance]";"[Query1]"; "[id] =" & TX) Data_2.rar تحياتي

الحل ان تجعل البحث يغتمد على حقل فريد لا يمكن تكراره مثالك يحتوي على حقل فريد فعلا باسم = المعرف ثم يتم تعديل مربع تحرير وسرد ليكون عمودين ثم يتم تعديل الكود كالتالي Dim Rs As Object Set Rs = Me.Recordset.Clone Rs.FindFirst "[المعرف] = " & Str(Me![CmboStud1]) If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark End If مثال_5.rar تحياتي

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

اكيد الكود الاول افضل DoCmd.RunSQL "insert into table1 (nem,nnumber,tele,amount) values (nem,nnumber,tele,amount)" وشخصيا استخدم الكود الذي وضعته لك لاني اعتقد ان تقسيم الكود افضل لمعرفة مكان الخطأ بسهولة تحياتي

وتفضل هذه طريقة اخرى لاضافة البيانات من النموذج mySQL = "Select * From table1" Set rst = CurrentDb.OpenRecordset(mySQL) rst.AddNew rst!nem = nem rst!nnumber = nnumber rst!Tele = Tele rst!Amount = Amount rst.Update MsgBox "Done" تحياتي

وعليكم السلام ورحمة الله وبركاته يوجد كود واحد فقط DoCmd.SetWarnings False DoCmd.RunSQL "insert into table1 (nem,nnumber,tele,amount) values (nem,nnumber,tele,amount)" DoCmd.SetWarnings True اين الكود الثاني ليتم مراجعته تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم test1.rar تحياتي ولمعرفة ما تم تعديله تم اضافة استعلام الحاق Query1 تم اضافة حقل في جدول اجمالي الاجرائات باسم معرف_الاجراء تم اضافة استعلام تحديث Query1 تم اضافة حدث للقائمة عند النقر المزدوج للانتقال الى السجل المطلوب تحياتي

نفضل اخي الكريم بعض المواضيع في المنتدى https://www.officena.net/ib/topic/71690-ترجمة-وكتابة-الاسماء-من-العربية-الى-الانجليزية-تلقائيا https://www.officena.net/ib/topic/87360-%D8%AA%D8%B1%D8%AC%D9%85%D8%A9-%D8%AC%D9%88%D8%AC%D9%84-google-translate/ تحياتي

وعليكم السلام ورحمة الله وبركاته غير السطر If TabCtl0.Value = 1 Then الى If TabCtl0.Value = 1 Or TabCtl0.Value = 2 Then او الى التالي اذا اردت جميع التبويبات بما في ذلك الصفحة الرئيسية If TabCtl0.Value = 0 Or TabCtl0.Value = 1 Or TabCtl0.Value = 2 Then تحياتي

انظر اخي الكريم الصور تحياتي

عذرا الخطأ من عندي ارفقت مرفق خطأ تفضل اخي الكريم Library_5.rar تحياتي

تفضل اخي الكريم Library_5.rar تحياتي

السلام عليكم انظر اخي الكريم الاستعلام Query1 Library_5.rar تحياتي

برجاء وضع السءال في موضوع جديد مراعاة لقواعد المنتدى ولك الشكر تحياتي

تفضل اخي الكريم تحياتي

ادحل على مصدر بيانات مربع التحرير وسرد / RowSource ثم من اسفل حقل Teacher اختار تنازلي / Ascending Library - نسخة (2).rar تحياتي