با عرض سلام و عرض ادب به دوستان و اساتید محترم
از دوستان گرامی می خوام در رابطه با کد زیر توضیحاتی بهم بدهند و ضمناً اگه مقدور هست کد ذیل طوری اصلاح بشه که در زمان ثبت در صورت تکراری بودن کد ملی خطا بده ( فایل مربوطه به پیوست می باشد )
خاطرم نیست که فایل و از این سایت دانلود کردم یا از جای دیگر در هر صوت از دوست عزیز که روی این فایل کرده بود کمال تشکر را دارم فایل بسیار عالی بود
Private Sub CommandButton1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim Fname As String, Lname, Address As String
Dim prov As String, str As String
Dim fpath As String
Fname = TextBox1.Value
Lname = TextBox2.Value
Address = TextBox3.Value
fpath = ThisWorkbook.Path & Application.PathSeparator & "bank.xls"
str = "provider=microsoft.ace.oledb.12.0;data source=""" & fpath & """;extended properties=""excel 12.0"";"
cn.Open str
With rs
.Open "Select * from [data$]", cn, adOpenKeyset, adLockOptimistic
.AddNew
!Fname = Fname
!Lname = Lname
!Address = Address
.MoveFirst
.Close
End With
MsgBox "اطلاعات ثبت شد", vbOKOnly + vbDefaultButton1, "ثبت اطلاعات"
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox1.SetFocus
End Sub
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
علاقه مندی ها (Bookmarks)