04-15-2012، 02:55 PM
بالاخره درست شد.
امروز مجبور شدم تا دانشکده برق برم و استاد جون رو پیداش کنم. سئوالم رو پرسیدم و کلی بهم خندید و بعدشم احوال امین تاتو رو پرسید . این کد رو برام نوشت و مشکلم حل شد. خیلی نازه این استاد جون :heart:
اینم کد:
امروز مجبور شدم تا دانشکده برق برم و استاد جون رو پیداش کنم. سئوالم رو پرسیدم و کلی بهم خندید و بعدشم احوال امین تاتو رو پرسید . این کد رو برام نوشت و مشکلم حل شد. خیلی نازه این استاد جون :heart:
اینم کد:
کد:
Private Sub Command1_Click()
On Error GoTo localerr
Data1.Recordset.AddNew
localerr:
If Err.Number = 3426 Then
MsgBox ("kode meli tekrari ast")
Text1.Text = ""
Text1.SetFocus
Resume
End If
End Sub
سرمشق های آب بابا یادمان رفت
رسم نوشتن با قلم ها یادمان رفت
شعر خدای مهربان را حفظ کردیم
اما خدای مهربان را یادمان رفت
----------------------------------------------------------
معرفت درّ گرانی است که به هر کس ندهند.
رسم نوشتن با قلم ها یادمان رفت
شعر خدای مهربان را حفظ کردیم
اما خدای مهربان را یادمان رفت
----------------------------------------------------------
معرفت درّ گرانی است که به هر کس ندهند.