an error message

[dokhtare baba]

این پیغام حطا یعنی چی؟ چیکار باید کرد؟ کجای کار مشکل داره؟
Field not uptodatable, Bound property Name:text , Field name :gh
این خطا رو موقعی میده که این دستور رو می نویسم
adodc1.recordset.update

[shahpari]

احتمال داره به دلیل خالی بودن مقدار یکی از فیلدهای بانکت باشه

توی بانک برای همه فیلدها خاصیت allow zero lenght رو true کن ببین مشکلت حل نمیشه

پیشنهاد میدم که اون فرم رو اینجا بزارید تا راحت تر بشه کمک کرد.

[dokhtare baba]

نه فیلدها هیچکدوم خالی نیستن
دیگه چه مشکلی میتونه داشته باشه؟

[hamed_arfaee]

با سلام
برای بقیه موارد هم همینطور هست ؟
یا فقط در همین فیلد ؟
ممکن است ارتباط شما فقط خواندنی باشد ؟

[فاطمه وطن دوست]

سلام
بهترین کاری که شما میتونید انجام بدید تا به جواب برسید اینه که برنامتونو بزارید.

[shahpari]

فکر نمی کنم کسی بتونه این متنی رو که نوشتید بخونه

اگه متنتون زیاده و میخوایید قبلا تایپش کنید و اینجا paste کنید لطفا یا داخل برنامه notepad

تایپ کنید یا قبل از ارسال مطلبتون روی قسمت پاک کردن قالب بندی نوشته( قسمت
بالای پنجره ارسال پاسخ) کلیک کنید همچنین کدها رو داخل تگ کد قرار بدید

ممنون

[vbhamed]

سلام
خب بچه ها من زحمت کشیدم این کار رو براشون انجام دادم (اینقدر سخت بود :چشمک:)
حالا شما جوابش رو بدین


اول یه فرم midi لود میشه بعد form3 لود میشه که تو این فرم 3 تا command button وجود داره که اولین دکمه form2 را لود میکنه و دکمه ی بعدی form 1 رو این خطا وقتی ظاهر میشه که دکمه ی دوم رو میزنم
اینم کداهای برنامه
( البته همه ی فیلد ها از نوع text و allow zero length هم فعاله براشون)
فرم 1 (error تو این صفحه است)



Private Sub Command1_Click()

If Len(T22) = 7 Then

b = Right(T22, 3)
T22 = Val(T22) - Val(b)

ElseIf Len(T22) = 6 Then

b = Right(T22, 2)
T22 = Val(T22) - Val(b)

ElseIf Len(T22) = 8 Then

b = Right(T22, 3)
T22 = Val(T22) - Val(b)

End If

Adodc1.Recordset.Update

End Sub

Private Sub Command3_Click()

Adodc1.Recordset.Delete

End Sub

Private Sub Command4_Click()

Adodc1.Recordset.Update

End Sub

Private Sub itm1_Click()

DataReport1.Show

End Sub

Private Sub itmV_Click()

Form2.Show
Form1.Hide

End Sub

Private Sub Form_Load()

Me.Width = 11145
Me.Height = 7230

End Sub

Private Sub Form_Resize()

Call Form_Load

End Sub

Private Sub Form_Unload(Cancel As Integer)

Form3.Show

End Sub

Private Sub T1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

T2.SetFocus

End If

End Sub

Private Sub T2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

T3.SetFocus

End If

End Sub

Private Sub T20_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

T22 = Val(T22) - Val(T20)
T22.SetFocus

End If

End Sub

Private Sub T22_Change()

T5 = T22

End Sub

Private Sub T19_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

T20.SetFocus

End If

End Sub

Private Sub T3_Change()

T10 = T3

End Sub

Private Sub T3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

T4.SetFocus

End If

End Sub

Private Sub T4_Change()

T11 = T4

End Sub

Private Sub T4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

T6.SetFocus

End If

End Sub

Private Sub T6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

T7.SetFocus

End If

End Sub

Private Sub T7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

T8.SetFocus

End If

End Sub

Private Sub T12_Change()

T16 = (Val(T12) + Val(T13) + Val(T14) + Val(T15)) * (7 / 100)
T17 = ((Val(T12) + Val(T13) + Val(T14) + Val(T15)) - 216000) * (10 / 100)
T26 = Val(T12) + Val(T13) + Val(T14) + Val(T15) + Val(T23) + Val(T24) + Val(T25)

End Sub

Private Sub T13_Change()

T16 = (Val(T12) + Val(T13) + Val(T14) + Val(T15)) * (7 / 100)
T17 = ((Val(T12) + Val(T13) + Val(T14) + Val(T15)) - 216000) * (10 / 100)
T26 = Val(T12) + Val(T13) + Val(T14) + Val(T15) + Val(T23) + Val(T24) + Val(T25)

End Sub

Private Sub T14_Change()

T16 = (Val(T12) + Val(T13) + Val(T14) + Val(T15)) * (7 / 100)
T17 = ((Val(T12) + Val(T13) + Val(T14) + Val(T15)) - 216000) * (10 / 100)
T26 = Val(T12) + Val(T13) + Val(T14) + Val(T15) + Val(T23) + Val(T24) + Val(T25)

End Sub

Private Sub T15_Change()

T16 = (Val(T12) + Val(T13) + Val(T14) + Val(T15)) * (7 / 100)
T17 = ((Val(T12) + Val(T13) + Val(T14) + Val(T15)) - 216000) * (10 / 100)
T26 = Val(T12) + Val(T13) + Val(T14) + Val(T15) + Val(T23) + Val(T24) + Val(T25)

End Sub

Private Sub T16_Change()

T21 = Val(T16) + Val(T17) + Val(T18)

End Sub

Private Sub T17_Change()

T21 = Val(T16) + Val(T17) + Val(T18)

End Sub

Private Sub T18_Change()

T21 = Val(T16) + Val(T17) + Val(T18)

End Sub

Private Sub T23_Change()

T26 = Val(T12) + Val(T13) + Val(T14) + Val(T15) + Val(T23) + Val(T24) + Val(T25)

End Sub

Private Sub T24_Change()

T26 = Val(T12) + Val(T13) + Val(T14) + Val(T15) + Val(T23) + Val(T24) + Val(T25)

End Sub

Private Sub T25_Change()

T26 = Val(T12) + Val(T13) + Val(T14) + Val(T15) + Val(T23) + Val(T24) + Val(T25)

End Sub

Private Sub T26_Change()

T22 = Val(T26) - Val(T21) - Val(T20)

End Sub

Private Sub T6_Change()

T12 = Val(T6) * 6819
T13 = Val(T6) * 458

End Sub

Private Sub T7_Change()

T14 = Val(T7) * 9546

End Sub

Private Sub T8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

T8.SetFocus

End If

End Sub

'فرم 2

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

End Sub

Private Sub Command3_Click()

Adodc1.Recordset.Update

End Sub

Private Sub Form_Load()

Me.Height = 4905
Me.Width = 3750

End Sub

Private Sub Form_Resize()

Call Form_Load

End Sub

Private Sub Form_Unload(Cancel As Integer)

Form3.Show

End Sub

[مهران رسا]

شما که زحمت کشیدین . لا اقل جوابشو هم بدین که کارتون کامل بشه .

[dokhtare baba]

از همتون ممنونم مشکلم حل شد!