تقييم الموضوع :
  • 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 كتب :
وجدت لك مثال في أحد المواقع أفضل مما أشرت له سابقا


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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية نسخ قاعدة بيانات جديدة وباسم في هذا المثال khezzani 5 66 أمس, 10:55 PM
آخر رد: سعداء
  مشكلة عندي مشكلة في فتح قاعدة بيانات اكسس 2000 بيتم التعامل مع اكسس 97 fathyfarag122 3 57 03-10-18, 02:54 AM
آخر رد: عبدالله الصافي
  سؤال عن كيفية ربط برنامج فجوال بيسي6 بقاعدة بيانات على النت amrou 4 174 19-09-18, 08:37 PM
آخر رد: amrou
  احبابى فى الله ارجو المساعدة تغير ربط قاعدة البينات من (.accdb) الى mbp mhareek 6 131 14-09-18, 11:18 PM
آخر رد: mhareek
  [vb6.0] حل مشكلة حفظ الصورة في ملف وليس على قاعدة البياناتDataBase عبدالقادرعواد 2 144 11-09-18, 02:45 PM
آخر رد: عبدالقادرعواد
Question [vb6.0] كيف يتم إضهار الترقيم تلقائي المجود في قاعدة البيانات عند النقر على امر جديد ؟ Microformt 7 392 07-09-18, 06:04 PM
آخر رد: Microformt
  استيراد بيانات من اكسس إلى إكسل والعكس مصمم هاوي 9 321 22-08-18, 07:49 PM
آخر رد: Ahmed_Mansoor
  احتاج كود ليعرض معلومات من قاعدة بيانات اكسس لتاريخ معين حسن الغزي 7 219 18-08-18, 03:42 AM
آخر رد: عبدالله الصافي
  البحث في عدة قواعد بيانات في نفس الوقت gonm64 2 132 10-08-18, 01:32 PM
آخر رد: gonm64
  كود فتح ملف اكسس من خلال الفيجول 6 abosara 6 219 28-07-18, 04:59 PM
آخر رد: abosara

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


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