sandanet

لااعتقد

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

وهذا مثال.. MsgBox "سوف يتم الخروج من البرنامج" & vbCrLf & "هل تريد الاستمرار؟", vbYesNo Or vbQuestion

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

تفضل هذه طريقة جميلة ان شاء الله تنفعك .. مع ان السؤال موجود قبلاً في المنتدى لكن لابأس من التكرار https://www.youtube.com/watch?v=gPzuhQo3iqY

اعتقد انه بالرغم من تشابه الصيغ aacdb في اوفس 2007 فما فوق لكن لايمكن فتح قاعدة محفوظة على اكسس 2010 من اكسس 2007 وهذا ماحصل معي في القاعدة الاولى تحياتي

اقصد حليت مشكلتين في ردك الاخير .. تحياتي

هاذي اجابة 2 × 1 مرفقك الاخير اشتغل تمام

لا اعتقد انه يمكن عمل ذلك .. لان الفورم الذي في يكون اول يصبح التركيز عليه فقط

ضع مكان الامر docmd.close ضع docmd.cancelevent اخي @ابا جودى هنالك ماكروات مضمنة ارجو الانتباه لها عند التحويل .. انظر الصورة

تمام يالغالي الله يبارك فيك .. فتحت لكن فيها مشكلة يقولي تعذر فتح الماكرو تسجيل الدخول كما في المرفق صيغة الملف accdb الاولى التي لم تفتح معي !! هل النسخة كانت معمولة على اوفيس 2010 ام 2007؟

استاذي العزيز ممكن تعطينا نسخة تفتح على 2007 ؟

تسلم ايدك استاذي الغالي جعفر تم حل المشكلة بنجاح مع بعض التعديل على الكود الذي وضعته كالتالي Forms!formS1!SubFrm.Form.FldText.Text حيث ان fromS1 هو النموذج الرئيسي و SubFrm هو النموذج الفرعي و FldText هو اسم الحقل في النموذج الفرعي بالمناسبة قمت باستعمال طريقتك الموضحة في الرابط "هدية: البحث عن اي جزء من الكلمة ، في اي عدد من الحقول" مع بعض التعديلات الطفيفة والحمد لله الامور ماشية تمام .. اشكرك جزيل الشكر على ماتقدمه تحياتي هذه التعديلات في الملف المرفق test.zip

عزيزي استاذ محمد لكن مربع النص هو للبحث اي يجب ادخال جزء من الاسم وما ان يظهر لك الاسم في القائمة تستطيع اختياره .. هذه هي الفكرة لكن اذا جعلت مصدر مربع النص النموذج الفرعي فلن تستطيع اجراء البحث

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

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

استاذ كوماندير ممكن ترفق مثال يكون افضل واسهل لعمل التعديل

طيب هذا الكود يحتاج الى تعديل ممكن تطلع عليه 1- كود الوحدة النمطية Option Compare Database Option Explicit Public conn As New ADODB.Connection Public rs As New Recordset Dim bExit As Boolean Public Sub Egy(sTextBox As TextBox, sTable As String, sField As String, Optional sDBPass As String) On Error Resume Next Dim lLen As Long, strSQL As String If bExit = True Or sTextBox = "" Then Exit Sub lLen = Len(sTextBox) strSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data.mdb;Persist Security Info=False" If conn.State <> 1 Then conn.Open strSQL strSQL = "SELECT * FROM " & sTable & " WHERE " & sField & " LIKE '" & sTextBox & "%'" If rs.State = 1 Then rs.Close rs.Open strSQL, conn, adOpenKeyset, adLockReadOnly If rs.EOF And rs.BOF Then Exit Sub sTextBox.Text = rs(sField) If sTextBox.SelText = "" Then sTextBox.SelStart = lLen Else sTextBox.SelStart = InStr(sTextBox.Text, sTextBox.SelText) End If sTextBox.SelLength = Len(sTextBox.Text) End Sub ومن ثم هذا الكود في النموذج Private Sub text76_Change() Egy Text1, "IETEM_NEM", "ITEM_NEM" End Sub Egy اسم الوظيفية في الوحدة النمطية Text1 هو اسم مربع النص IETEM_NEM اسم الجدول والاخيرة اسم الحقل

@jjafferr نعم استاذ جعفر كيف نعملها في مربع النص

السلام عليكم اخواني واساتذتي الكرام تحية طيبة وبعد .. سؤالي هو كيف يمكنني استعمال هذا الامر في مربع النص text2.AutoCompleteMode = AutoCompleteMode.SuggestAppend كما تجدوه عندما تبحثون في مربع نص google وجدت فيديو يوضح الطريقة لكنه بلغة ال Csharp وهذا هو رابط الفيديو .. بصراحة شرح جميل وتطبيق ممتاز لكني لم استطع تطبيقه https://www.youtube.com/watch?v=Jnye77emTbo وشكراً

استاذي الفاضل عندما راسلتك على الخاص وبعثت لي البرنامج ومن ثم طلبت منك تحويله لصيغة mdb لانه لايفتح لماذا لم ترد؟؟ ..

على اي اصدار تشتغل حضرتك؟ بصراحة تصاميمك روعة

استاذي الكبير ولا يهمك .. حتى اخطائك فيهن دروس لنا تحياتي

هههههههههههههههههه

اعتقد انها بالفيجوال استوديو مع قواعد بيانات mdb