كيف استطيع عمل الترقيم التلقائي للكتب

هل من حل في المشكلة التي اعجزت الجميع

Private Sub Form_Load()
Call rabet
End Sub
Private Sub Text16_Change()
    Dim X
    X = Left(Text16.Text, 1)
    If Val(X) < 1 Then
        Combo15.ListIndex = 0
    Else
        JustCombo Combo15, X
    End If
End Sub
Sub JustCombo(combo As Control, t)
    Dim i
    For i = 0 To Combo15.ListCount - 1
        If Combo15.ItemData(i) = t Then
            Combo15.ListIndex = i
            Exit For
        End If
    Next i
End Sub
Sub rabet()
    Combo15.AddItem ""
    Combo15.ItemData(0) = 0
    Combo15.ItemData(1) = 1
    Combo15.ItemData(2) = 2
    Combo15.ItemData(3) = 3
    Combo15.ItemData(4) = 4
    Combo15.ItemData(5) = 5
    Combo15.ItemData(6) = 6
    Combo15.ItemData(7) = 7
    Combo15.ItemData(8) = 8
    Combo15.ItemData(9) = 9
    Combo15.ListIndex = 0
End Sub

هل من الممكن تغيير المتغيير x = 0-9 عند تغيير Combo15.ListIndex

بحيث

x=1  =Combo15.ListIndex1
x=2  =Combo15.ListIndex2
x=3  =Combo15.ListIndex3
x=4  =Combo15.ListIndex4
وهكذا في حدث Combo15_Click
اريد عندما تكون Combo15.ListIndex1 
x=1
وهكذا من Combo15.ListIndex0    الى Combo15.ListIndex9

للرفع

نزلت البرنامج ...

لكن ما فهمت إيش تقصد ياخوي المهنا ...

ياريت توضح أكثر وتضع البرنامج مرة أخرى بشكل أوضح من غير تايمر ..

شكرا لك

اريد عند تغيير الكامبو بوكس يتغير الرقم الذي في يسار التكست بوكس فقط فعند اختيار المعارف العامة يعطيني التكست يسار رقم 0

وهكذا

LeftText16.Text, 1

اكتب الرقم الذي تريد في التكست وستفهم الرقم الاول في اليسار فقط يعطيني قيمة في الكامبو

انا اريد الربط بين تغيير الكامبو

للرفع

كيف تقوم بتخزين الأرقام هل تخزن رقمالموضوع ورقم الفئه معا في نفس قاعدة العمود (Record) أو تخزن كل رقم على حده

أعتقد أنك بامكانك أن تضع الرقم كمفتاح أساسي في قاعدة البيانات يمنع المستخدم من ادخال نفس الرقم مرة أخرى .

أعتقد أن منتدى الآكسز سيفيدك أكثر

بامكانك أن تقوم بقراءة الأرقام في قاعدة البيانات وتتأكد من عدم وجود الرقم قبل الاضافه ( لكنه سيبطئ عمل البرنامج كثيرا خصوصا عند كبر حجم قاعدة البيانات.

تصدقون انا تعبت ليس من المعقول ان كل هذا الشرح والتفصيل لم يفهم

اريد عند تغيير الكامبو بوكس يعطيني في حدث Combo15_Click

Left(Text16.Text, 1) =Combo15.ListIndex

القيمة في التكست يسار تساوي قيمة اللست اندكس

قوموا بتجربة المثال قبل الرد ولا لن يكون الرد مفيدا لا لي ولا لزوار الموضوع

للرفع

اخي المهنا أتمنى أن أكون قد فهمت السؤال

في مثالك عند تغيير القيمة في الcombo لاتتغير في الtext

اذا كان هذا ما تريد فهو كالتالي

Private Sub Combo15_Click()
Text1.SelStart = 0
Text1.SelLength = 1
Text1.SelText = Combo15.ListIndex + 1

End Sub

أو وضح السؤال أكثر

ان الصورة تسبق قول كل بليغ

صورة الكامبو

______________________.rar

هذه الصور

moh.rar

يا أخي الحل السابق يعمل ما تريده تماما

فقط لا تجعله يضيف رقم واحد للاندكس

كالتالي :

Private Sub Combo15_Click()
Text16.SelStart = 0
Text16.SelLength = 1
Text16.SelText = Combo15.ListIndex 

End Sub

وياريت تتعب حالك وتنفذه

انا نفذته على برنامجك السابق وعمل معي

انسخ الكود وضعه في الشاشة السابقة واوقف التايمرات وجرب

صحيح أنت طارح موضوع اخر لنفس البرنامج مش هيك

(هذا الكود يحتاج لكثير من الذكاء وقليل من العمل, كود عظيم جدا ولكنةللخبراء وأهل المعرفة)

تعدل على المثال السابق

_____________________________.rar

واخيرا الف مليون شكر هذا هو الحل هو بسيط

التعديل على المرفق هو الحل الاساسي حتي لا تحصل اخطاء