السلام عليكم ورحمة الله وبركاتة
كل عام وانتم بخير
ابي كود ضروري الله يحفظكم عند اختياري رقم من الارقام داخل الكمبو بكس يعطيه اللون الاحمر أي(مشغول) وتكون بقية الارقام متاحه باللون الاخظر داخل الكمبو
دمتم بود مبرمجينا المحترفين والمبتدئين امثالي
تنويه بسيط للبرنامج المرفق صورتة أعلاه .... لم تذكر فى قاعدة البيانات ان الشقة خالية او مسكنة ..!!!!! لذا يجب ادخال هذه المعلومة فى الداتا ، وعلى كلٍ سواء استخدمت كومبو بوكس او استخدمت اى شىء للبحث يجب ادراج هذه النقطة ..
ثانياً : مرفق مشروع صغير للبحث (ليس بالكومبو بوكس) بحث بواسطة تكست بوكس وعند البحث بكلمة خالية او مسكنة تحصل على تلوين مختلف لنتيجة البحث... هذا مع امكانية حصر عدد الشقق الملونة ، وايضا ترتيبهم حسب التسلسل من خلال الكومبو بوكس ..
مرفق مثال للبحث وهو منقول من النت ومعدل علشان عيونك ...
Private Sub Form_Load() Dim DB_Path As String DB_Path = App.Path & "\ qser.mdb" Me.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DB_Path & ";Persist Security Info=False" Me.Adodc1.Refresh Me.Adodc1.CommandType = adCmdUnknown Me.Adodc1.RecordSource = "select * from Last Name " Me.Adodc1.Refresh End Sub
تسلم يا king2512010
نفس المشكلة عموما هذا الجدول بالمرفق ونفس الفورم يا ليت تضبطها بنفس الامتدادات لانها الامتدات الاصلية
ولا هنت البحث بين تاريخين ما زبط معي بكلف عليك يا عمي