• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

البحث في المنتدى

Showing results for tags 'البحثwhere'.

  • البحث بالتاقات

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • البحث بكاتب الموضوع

تم إيجاد 1 نتيجة

  1. السلام عليكم من فضلكم، أعمل على برنامج صغير يساعدني في العمل، قمت بتصميم نموذج للاضافة ونموذج آخر للبحث واخر للتعديل في نموذج البحث يشتغل عادي لكن عندما قمت بتغيير أدوات التكست الى أدوات اخرى تساعدني اكثر في هذا البرنامج اختلطت الامور، هذه الأدوات تتمثل اساسا في أداة MaskEdTool و أداة Checkbox وأداة combo. هل من الاحسن أن اضع في الخاصية NAME كل باسمه MaskDBirth ، ChkChild، ComboServ أم الافضل أن اعتبرها على اساس انها تكست: TxtDBirth لأهل الخبرة ومن له معرفة ودراية بكتابة كود البحث أرجو المساعدة في التعديل في هذا الكود باضافة الادوات الثلاثة في الكود. خاصة أن الامر متعلق بالاشارات '، "، & التي لا ازال لم أفرق في استعمالها Private Sub TxtDBirth_Change() If TxtIDEmp = "" And TxtName = "" And TxtDBirth = "__/__/____" And Check1.Value = False And Combo1 = "" Then SQLs = "Select * From Emp" Adodc1.RecordSource = SQLs Adodc1.Refresh LblCount.Caption = " Nomber of records:" & " " & Adodc1.Recordset.RecordCount & " " & "Record" Exit Sub End If SQLs = "Select * From Emp Where IDEmp Like '" & TxtIDEmp & "%'AND Name Like '" & TxtName & "%'" Adodc1.RecordSource = SQLs Adodc1.Refresh LblCount.Caption = "Nomber of records:" & " " & Adodc1.Recordset.RecordCount & " " & "Record" DataGrid1.Columns.Item(0).Button = True SQLs = "Select * From Emp Where IDEmp Like '" & TxtIDEmp & "%'AND Name Like '" & TxtName & "%'" Adodc1.RecordSource = SQLs Adodc1.Refresh LblCount.Caption = "Nomber of records:" & " " & Adodc1.Recordset.RecordCount & " " & "Record" DataGrid1.Columns.Item(0).Button = True End Sub