ايران ويج

[/align]شلام من می خوام کاربر جدید اضافه کنم کد هم گذاشتم ولی وقتی ذخیره رو میزنم کاری انجام نمیده خواهش میکنم کمکم کنید

2)می خوام این کاربر به جند تا جدول همزمان اضافه بشه با اکسس کار میکنم چیکار کنم


[align=left]Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False
If Adodc1.Recordset.Fields("UserName") = Trim(Text2.Text) Then
MsgBox "پرسنلي بااين نام کاربري موجود است دوباره سعي کنيد ", vbYesNo, "پرسنل جديد"
Text2.Text = Empty
Text2.SetFocus
Exit Sub
End If
Adodc1.Recordset.MoveNext
Loop
'----------------
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("UserName") = Trim(Text2.Text)
Adodc1.Recordset.Fields("Password") = Val(Text5.Text)
Adodc1.Recordset.Update
'--------
Text2.Text = ""
Text3.Text = ""
Text5.Text = ""
Text6.Text = ""

End Sub

نقل قول: می خوام این کاربر به جند تا جدول همزمان اضافه بشه با اکسس کار میکنم

فکر نکنم کار سختی باشه فقط کافیه برنامه رو آپلود کنی تا یه نگاهی بهش بندازیم چون از پست اولت چیز زیادی دستگیرم نشد!!!