elder
2014/01/26, 16:25
سلام مجدد
یک بانک اطلاعاتی با نام bank.xlsx ایجاد کردم . حالا می خوام کاربران از کامپیوترهای مختلف با وارد کردن اطلاعات در فرم مربوطه در فایلهای متفاوت کل اطلاعات منتقل بشه به این بانک اطلاعاتی .
کد زیر رو ببینید
Private Sub CommandButton1_Click()
Dim c As Range
Sheets("[Bank.xlsx]Sheet1").Activate
For Each c In Range("A1:a1000")
If c = TextBox1.Text And c <> "" Then
MsgBox "خطا" 'پيغام بده
Exit Sub
End If 'پايان شرط
Next
در قسمت قرمز شده خطا وجود دارد لطفا راهنمایی بفرمایید .
یک بانک اطلاعاتی با نام bank.xlsx ایجاد کردم . حالا می خوام کاربران از کامپیوترهای مختلف با وارد کردن اطلاعات در فرم مربوطه در فایلهای متفاوت کل اطلاعات منتقل بشه به این بانک اطلاعاتی .
کد زیر رو ببینید
Private Sub CommandButton1_Click()
Dim c As Range
Sheets("[Bank.xlsx]Sheet1").Activate
For Each c In Range("A1:a1000")
If c = TextBox1.Text And c <> "" Then
MsgBox "خطا" 'پيغام بده
Exit Sub
End If 'پايان شرط
Next
در قسمت قرمز شده خطا وجود دارد لطفا راهنمایی بفرمایید .