أريد كود يظهر لي رسالة بجميع الأرقام الموجودين في حقل التكست

Private Sub Command1_Click()
    Dim Arr() As String
    Dim Lop As Long

    Arr = Split(Text1.Text, " ")
    For Lop = 0 To UBound(Arr)
        MsgBox Arr(Lop)
    Next
End Sub

بالتوفيق

الله يوفقك أخي MMA_EG_Cairo دنيا وآخرة

زبط هلا شكراً لك

والله يخليك لأهلك ويحميك من كل شر

والله يرزقك يا رب من حيث لا تلعم

آمين يا رب العالمين

أخي MMA_EG_Cairo إذا حبيت انا اغير امر الـرسالة إلى امر آخر هل يزبط اما لا

يعني إذا انا حبيت اغير هذا MsgBox إلى أمر آخر مثلاً مثل تنفيذ أمر معين أو عمل كليك command1_Click

هل نقدر ام لا

لأني جربت وضعت امر بس ما زبط

ووضعت أمر command1_click

كمان ما زبط

عادي جداً ، تقدر تحط أللي أنت عايزة !!!

أدرج الكود الذي تود كتابتة وسأحاول التعديل علية

منتظرك

مثلاً مثل هذا الكود

Private Sub Command1_Click() 
    Dim Arr() As String 
    Dim Lop As Long 

    Arr = Split(Text1.Text, " ") 
    For Lop = 0 To UBound(Arr) 
        command1_click Arr(Lop) 
    Next 
End Sub

وهذا

Dim Arr() As String
Dim Lop As Long

Arr = Split(Text1.Text, " ")
For Lop = 0 To UBound(Arr)
Timer1.Enabled = True Arr(Lop)
Next

عند وضعه لا يعمل

تظهر لي رسالة بأنه يوجد خطأ

كود التايمر سيصبح هذا طبعاً بعد إذنكم

Dim Arr() As String
Dim Lop As Long

Arr = Split(Text1.Text, " ")
For Lop = 0 To UBound(Arr)
Timer1.Enabled = True  + Arr(Lop)
Next

أما كود الزر سيصبح هكذا ولكن قبل ذلك يجب عليك إضافة command آخر

Private Sub Command1_Click()
    Dim Arr() As String
    Dim Lop As Long
    Arr = Split(Text1.Text, " ")
    For Lop = 0 To UBound(Arr)
          Command2_Click
    Next
End Sub

Private Sub Command2_Click()
        MsgBox "1"
End Sub

هذا تعديل للمثال

Project1.zip

شكراً لك أخي bahbah

جاري تجربته

الله يعطيك العافية وربي يوفقك

طيب أخي إذا حبيت اضيف كود

مثلاً زي هذا

With rs_sat
If .State = adStateOpen Then .Close
.Open "select * from Table1", con, adOpenDynamic, adLockOptimistic
.AddNew
.Fields("User_id").Value = Text1.text
.UPdate
.Close
End With

كيف يصير شكل الكود

اقتباس

With rs_sat 
If .State = adStateOpen Then .Close 
.Open "select * from Table1", con, adOpenDynamic, adLockOptimistic 
.AddNew 
.Fields("User_id").Value = Text1.text 
.UPdate 
.Close 
End With

حبيب قلبي ، لازم تفهم الكود المكتوب لك ، لو فهمتة هتعرف تصنع أي شيء ، فإسمح لي بالشرح !!!

1- قمت بإضافة مصفوفة من نوع نص Dim Arr() As String

2- قمت بأخذ القيمة النصية من مربع النص وحولتها الي مصفوفة Arr بشرط مسطرة مسافة " "

اقتباس

Arr = Split(Text1.Text, " ")

3- بعد ذلك قمت بصناعة جملة Loop بحيث أن يتم عرض جميع عناصر المصفوفة Arr !!!!

بهذا الشكل يمكننا تطبيقة بأي شيء

يمكننا مثلاً عرضه كرسالة كما يلي :

For Lop = 0 To UBound(Arr)
MsgBox Arr(Lop)
Next

أو يمكننا إضافته بملف بيانات كما يلي :

Open "C:\Data.txt" For Output As #1
For Lop = 0 To UBound(Arr)
    Print #1, Arr(Lop)
Next
Close #1

أو حتي يمككنا إضافتها بقاعدة البيانات كما يلي :

Dim rs_sat As New ADODB.Recordset
With rs_sat
    If .State = adStateOpen Then .Close
    .Open "select * from Table1", con, adOpenDynamic, adLockOptimistic
    For Lop = 0 To UBound(Arr)
        .AddNew
        .Fields("User_id").Value = Arr(Lop)
        .Update
    Next
    .Close
End With

أو حتي يمكننا صناعة مصفوفة من عناصر التحكم Controls كما يلي :

Dim Arr() As Object
Dim obj As Object
Dim Lop As Long

''1- تحميل كل العناصر علي مصفوفة.
For Each obj In Me.Controls
    If ((Not Arr) = -1) Then
        ReDim Arr(0)
    Else
        ReDim Preserve Arr(UBound(Arr) + 1)
    End If

    Set Arr(UBound(Arr)) = obj
Next

''2- عرض أسماء كل العناصر.
For Lop = 0 To UBound(Arr)
    MsgBox Arr(Lop).Name
Next

''3- عرض أسماء مربعات النص فقط.
For Lop = 0 To UBound(Arr)
    If (TypeOf Arr(Lop) Is TextBox) Then
        MsgBox Arr(Lop).Name
    End If
Next

فأمنح لنفسك فرصة لفهم المصفوفات وكيفية التعامل معها وبعدها ستقدر علي صناعة أي مصفوفة ترغب فيه ، سواء سهلة أو صعبة !!!

بالتوفيق

.

معلش أخي MMA_EG_Cairo انا لسا مبتدى جداً

كثرت أسئلة عليك لا تأخذنا

الله يقويك وإن شاءالله نصير مثلك بخبرتك

بس أخي في عندي سؤال أخير

كيف نريد أن نربط

الأمر هذا

Arr = Split(Text1.Text, " ")

بالأمر هذا

Dim rs_sat As New ADODB.Recordset 
With rs_sat 
    If .State = adStateOpen Then .Close 
    .Open "select * from Table1", con, adOpenDynamic, adLockOptimistic 
    For Lop = 0 To UBound(Arr) 
        .AddNew 
        .Fields("User_id").Value = Arr(Lop) 
        .Update 
    Next 
    .Close 
End With

لأن عندي مجموعة طلاب في حقل أسمه Text1.text تكست بالشكل هذا

1 2 3 4 5 6 7 8 9 10

مثل ما وضعت انا بالصورة اللي فوق

واريد أن ينضافو في قاعدة البيانات

بالشكل هذا

يضيف مثلاً ما بداخل حقل أسمه Text2.text للطالب اللي رقمه 1

ونفس الشي يضيف ما بداخل حقل Text2.text للطالب الي رقمه 2 وهكذا

وتكرر العملية لأخر رقم

معلش أخي عم عذبك معي

الله يجزيك الخير

Dim Arr() As String
Dim rs_sat As New ADODB.Recordset

Arr = Split(Text1.Text, " ") 

With rs_sat  
    If .State = adStateOpen Then .Close  
    .Open "select * from Table1", con, adOpenDynamic, adLockOptimistic  
    For Lop = 0 To UBound(Arr)  
        .AddNew  
        .Fields("User_id").Value = Arr(Lop)  
        .Update  
    Next  
    .Close  
End With

مافيني قول غير الله يوفقك دنيا وآخرة أخي MMA_EG_Cairo

وألف شكر لك ما قصرت والله