عدي الزرفي قام بنشر فبراير 28, 2016 مشاركة قام بنشر فبراير 28, 2016 السلام عليكم ارجو منكم اخوتي الاعزاء شرح طريقة عمل نموذج بحث بمجرد كتابة احرف من الاسم ويكون في نفس نموذج البيانات الخاصة في كل موظف وعندما يظهر الاسم المطلوب يتم النقر عليه فتظهر معلوماته كما في الصورة المرفقة 1 رابط هذا التعليق شارك More sharing options...
عدي الزرفي قام بنشر فبراير 29, 2016 الكاتب مشاركة قام بنشر فبراير 29, 2016 اين الابطال رابط هذا التعليق شارك More sharing options...
شامل2 قام بنشر فبراير 29, 2016 مشاركة قام بنشر فبراير 29, 2016 السلام عليكم نضيف مربع نص وليكن text14 ونضيف عنده حدث ( عند التغيير ) Private Sub text14_Change() Dim ct As String * 1 Dim ss As String * 1 ct = """" ss = "*" Me.text14.Tag = Me.text14.Text Me.RecordSource = "SELECT * FROM S_Name WHERE sName LIKE " & ct & ss & (Nz(Me.text14.Tag)) & ss & ct & "" If Me.RecordsetClone.RecordCount = 0 Then Me.RecordSource = "" End If Me.text14 = Me.text14.Tag Me.text14.SetFocus SendKeys "{f2}" Me.Refresh End Sub حيث ان S_Name هو مصدر بيانات النموذج و sName حقل الاسم الموجود في النموذج الذي نبحث عنه 1 رابط هذا التعليق شارك More sharing options...
عدي الزرفي قام بنشر فبراير 29, 2016 الكاتب مشاركة قام بنشر فبراير 29, 2016 شكرا على الاجابة جاري التجربه رابط هذا التعليق شارك More sharing options...
عدي الزرفي قام بنشر فبراير 29, 2016 الكاتب مشاركة قام بنشر فبراير 29, 2016 السلام عليكم ارفق لك البرنامج اخي العزيز ارجو منك عمل طريقة البحث كما في الصورة الرجاء المساعدة اريد ان يبحث بمجرد كتابه الحروف ومن ثم اختيار الاسم المطلوب والنقر عليه ليتم عرض معلوماته كما في الصورة المرفقة odai.rarodai.rar رابط هذا التعليق شارك More sharing options...
عدي الزرفي قام بنشر فبراير 29, 2016 الكاتب مشاركة قام بنشر فبراير 29, 2016 ارجو المساعدة رابط هذا التعليق شارك More sharing options...
شامل2 قام بنشر مارس 1, 2016 مشاركة قام بنشر مارس 1, 2016 السلام عليكم الاخ عدي شاهد المرفق تحت التصميم2.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.