تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] خاصية تعتمد علي Artificial intelligence عند كتابة في قاعدة بيانات اكسيس من خلال VB6
#1
انا مش عارف الخاصية دي اسمها ايه لكنها تسهل كثيرا من العمل موجودة في الاكسيل يمكن الصورة توضح!

سؤالي بقي هل ممكن اعمل حاجة كده بكود معين في الفيجوال بيسيك 6 تسهل عملية البحث او حتي الكتابة او الحذف؟ Huh


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#2
تسلم اخي الكريم بارك الله فيك ازاي بقي اعمل ده علي  text box هل نفذ الكود؟
الرد }}}
تم الشكر بواسطة:
#3
(01-09-18, 06:40 AM)عابر سبيل 2 كتب :
عدلت قدر الإمكان
على الكود في الموضوع المشار إليه في مشاركتي السابقة

إعمل مشروع جديد
ثم ضع أداة TextBox ثم ضع هذا الكود
PHP كود :
Option Explicit

Dim names
(5) As String

Private Sub Form_Load()
 
   names(0) = "ahmed"
 
   names(1) = "amal"
 
   names(2) = "muhammad"
 
   names(3) = "mahmoud"
 
   names(4) = "saeed"
 
   names(5) = "salah"
End Sub

' الربط مع دالة الإكمال التلقائي
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    AutoSel Text1, KeyCode
End Sub

دالة الإكمال التلقائي
Function AutoSel(tb As TextBoxKeyCode As Integer)
 
   
    On Error Resume Next
    Select 
Case KeyCode
        
'  8 = Backspace, 37=LeftArraw,   38=UpArraw, 39=RightArraw, 40=DownArraw
        ' 
46 Delete   33=PageUp    34=PageDown35=End       36=Home
        Case vbEnter
8373839404633343536
        Exit 
Function
 
   End Select
    
    Dim Text 
As String
    Text 
tb.Text
    
    Dim i 
As Long
    Dim Temp 
As String
    
    For i 
0 To UBound(names)
 
       Temp Left(names(i), Len(Text))
 
       If LCase(Temp) = LCase(TextThen
            tb
.Text names(i)
 
           tb.SelStart Len(Text)
 
           tb.SelLength Len(names(i))
 
       End If
 
   Next

End 
Function 


جزاك الله عني خير الجزاء ولكن اصبح الموضوع صعب اين اكتب ال function وجربت المثال السابق اصبح هناك اخطاء يقرأها compiler
الرد }}}
تم الشكر بواسطة: عابر سبيل 2 , عابر سبيل 2
#4
وجدت لك مثال في أحد المواقع أفضل مما أشرت له سابقا


حمل المرفق الأخير في الموقع
الرد }}}
تم الشكر بواسطة: elgokr , جاسم عبد , جاسم عبد
#5
(01-09-18, 07:41 AM)عابر سبيل 2 كتب :
وجدت لك مثال في أحد المواقع أفضل مما أشرت له سابقا


حمل المرفق الأخير في الموقع

الف الف شكر
الرد }}}
تم الشكر بواسطة: elgokr , جاسم عبد , جاسم عبد
#6
(01-09-18, 07:41 AM)عابر سبيل 2 كتب :
وجدت لك مثال في أحد المواقع أفضل مما أشرت له سابقا


حمل المرفق الأخير في الموقع


المشكلة انه بيظهر الاسم المخزن من قبل ولكن لا يمكن الاكمال عليه
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 0 73 05-03-24, 02:40 PM
آخر رد: مصمم هاوي
  [vb6.0] اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 3 418 24-01-24, 01:51 PM
آخر رد: haitham Muhammed
  [vb6.0] طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf hamada salah90 6 1,479 19-01-24, 07:59 PM
آخر رد: hamada salah90
  اريد طريقة تصدير بيانات الاكتف ريبورت لملف اكسل scsi7000 0 299 03-11-23, 10:41 AM
آخر رد: scsi7000
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 241 23-10-23, 12:11 AM
آخر رد: Taha Okla
  نقل بيانات الجدول الى جدول اخر بعد تجميع البيانات haithamelareny 1 358 10-08-23, 11:54 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟ Microformt 1 455 27-07-23, 08:33 PM
آخر رد: Taha Okla
  [vb6.0] كود ربط قاعدة بيانات اكسيس 2010 بالفيجوال بيسك6 وادي العوضي 4 553 21-07-23, 12:11 AM
آخر رد: وادي العوضي
  [vb6.0] المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة وادي العوضي 6 601 09-07-23, 12:44 AM
آخر رد: وادي العوضي
  [سؤال] كود تشغيل استعلامين معمولين في قاعدة بيانات اكسس من واجهة البرنامج من خلال زر امر وادي العوضي 16 1,450 04-07-23, 03:26 PM
آخر رد: وادي العوضي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم