qhoqnose
یک شنبه 03 آذر 1392, 07:21 صبح
سلام استادان گرامی
بنده یه دیتابیس تو اکسس دارم درست می کنم که چند تا فرم داره، تو هر فرم یه دکمه گذاشتم تا یک رکورد جدید ایجاد کنه و همچین تو بعضی از فرمها چند تکس باکس دارم که اطلاعاتشون رو باید تو یه جدول دیگه ذخیره کنه.اما موقع اجرا خطا 2105 رو میده، نمی دونم دلیل این خطا چیه یا کجای این کد اشکال دار. البته اینم بگم که من 5 فرم برای جمع اوری داده ها دارم که فقط فرم اولی که این کد را براش نوشتم کار کرد و مابقی عین پیغام خطا را میده:ناراحت:
برای ایجاد رکورد جدید و انتقال داده ها از این کد استفاده کردم
Private Sub SAV_Click()
Dim db As Database
Dim rs As Recordset
Dim id As Integer
id = Me.ECID.Value
Set db = CurrentDb
Set rs = db.OpenRecordset("ECD41")
For n = 1 To 2
rs.AddNew
rs![PrN] = id
rs![TYP] = n
Select Case n
Case 1
rs![P3M] = Me.MP13
rs![P3F] = Me.FP13
rs![P2M] = Me.MP12
rs![P2F] = Me.FP12
rs![P1M] = Me.MP11
rs![P1F] = Me.FP11
Case 2
rs![P3M] = Me.MP23
rs![P3F] = Me.FP23
rs![P2M] = Me.MP22
rs![P2F] = Me.FP22
rs![P1M] = Me.MP21
rs![P1F] = Me.FP21
End Select
rs.Update
Next
rs.Close
'On Error GoTo Cansel
DoCmd.GoToRecord acDataForm, "ECD", acNewRec
'Cansel:
'MsgBox "The Record Didn't Save!", vbOKOnly
'End
End Sub
بنده یه دیتابیس تو اکسس دارم درست می کنم که چند تا فرم داره، تو هر فرم یه دکمه گذاشتم تا یک رکورد جدید ایجاد کنه و همچین تو بعضی از فرمها چند تکس باکس دارم که اطلاعاتشون رو باید تو یه جدول دیگه ذخیره کنه.اما موقع اجرا خطا 2105 رو میده، نمی دونم دلیل این خطا چیه یا کجای این کد اشکال دار. البته اینم بگم که من 5 فرم برای جمع اوری داده ها دارم که فقط فرم اولی که این کد را براش نوشتم کار کرد و مابقی عین پیغام خطا را میده:ناراحت:
برای ایجاد رکورد جدید و انتقال داده ها از این کد استفاده کردم
Private Sub SAV_Click()
Dim db As Database
Dim rs As Recordset
Dim id As Integer
id = Me.ECID.Value
Set db = CurrentDb
Set rs = db.OpenRecordset("ECD41")
For n = 1 To 2
rs.AddNew
rs![PrN] = id
rs![TYP] = n
Select Case n
Case 1
rs![P3M] = Me.MP13
rs![P3F] = Me.FP13
rs![P2M] = Me.MP12
rs![P2F] = Me.FP12
rs![P1M] = Me.MP11
rs![P1F] = Me.FP11
Case 2
rs![P3M] = Me.MP23
rs![P3F] = Me.FP23
rs![P2M] = Me.MP22
rs![P2F] = Me.FP22
rs![P1M] = Me.MP21
rs![P1F] = Me.FP21
End Select
rs.Update
Next
rs.Close
'On Error GoTo Cansel
DoCmd.GoToRecord acDataForm, "ECD", acNewRec
'Cansel:
'MsgBox "The Record Didn't Save!", vbOKOnly
'End
End Sub