السلام عليكم ورحمة الله وبركاتة
كل عام وانتم بخير
ابي كود ضروري الله يحفظكم عند اختياري رقم من الارقام داخل الكمبو بكس يعطيه اللون الاحمر أي(مشغول) وتكون بقية الارقام متاحه باللون الاخظر داخل الكمبو
دمتم بود مبرمجينا المحترفين والمبتدئين امثالي
السلام عليكم
اليك هذا المثال المنقول للتحكم بالوان الكمبو كما تريد
يعطيك العافية
هلابك اخوي abulayth
ومشكور يعطيك العافيه لكن ماعتقد ان هذا اللي ابي لو فيه اخر ؟ اذا امكن
الأخ / rookan
السلام عليكم ورحمة الله وبركاته
تنويه بسيط للبرنامج المرفق صورتة أعلاه .... لم تذكر فى قاعدة البيانات ان الشقة خالية او مسكنة ..!!!!! لذا يجب ادخال هذه المعلومة فى الداتا ، وعلى كلٍ سواء استخدمت كومبو بوكس او استخدمت اى شىء للبحث يجب ادراج هذه النقطة ..
ثانياً : مرفق مشروع صغير للبحث (ليس بالكومبو بوكس) بحث بواسطة تكست بوكس وعند البحث بكلمة خالية او مسكنة تحصل على تلوين مختلف لنتيجة البحث... هذا مع امكانية حصر عدد الشقق الملونة ، وايضا ترتيبهم حسب التسلسل من خلال الكومبو بوكس ..
مرفق مثال للبحث وهو منقول من النت ومعدل علشان عيونك ...
ارجو ان يفيدك ...
تحياتي ..
king2512010 جعل اميمتك وابيك بالجنه ومن يقراء... وبارك الله فيك وفي اخوي abulayth ماقصرتو
اي موضح اللي ذكرت بالقاعدة الان ابجرب هذا زي ما تفضلت
جاري التحميل
اخوي king2512010
عندي المشكلة الرساله هذي بس مادري كيف احلها؟ بعد ماركبت المطلوب
هذا المتداد بالشكل هذا ونفس المشكلة
Connect_AdoControl Adodc1, App.Path & "qser.mdb", "SELECT * FROM index Order By [Last Name]", False, ""
جرب الكود ده
PHP كود :
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
نفس المشكلة عموما هذا الجدول بالمرفق ونفس الفورم يا ليت تضبطها بنفس الامتدادات لانها الامتدات الاصلية
ولا هنت البحث بين تاريخين ما زبط معي بكلف عليك يا عمي