ali_khaluzadeh
سه شنبه 17 شهریور 1388, 11:56 صبح
باسلام خدمت دوستان گرامی.
در برنامه زیر من 2 تا table دارم که یکی مشخصات پرسنلی و دیگری مرخصی روزانه است.
یک form دارم که در textbox0 کد پرسنلی وارد میکنم و در textbox2 تاریخ شروع مرخصی را وارد میکنم، در رویداد onexit تکست باکس2 کد زیر نوشتم:
Private Sub Text2_Exit(Cancel As Integer)
If IsNull(Text0) = False Then
Set db = CurrentDb
Set rst = db.OpenRecordset("select * from Morakhasi_Roozaneh where ((Code_Personeli=" & Text0 & ") AND (az_tarikh=" & Text2.Value & "))")
If rst.EOF Then
MsgBox "Çíä јæÑÏ æÌæÏ äÏÇÑÏ"
Text2 = Null
Text4 = Null
Else
Me.Text4 = rst.Fields(3)
' Me.Del.Enabled = True
End If
rst.Close
End If
End Subمیخوام وقتی که کاربر کد پرسنلی و تاریخ شروع مرخصی وارد کرد بقیه اطلاعات از جمله تاریخ خاتمه مرخصی در textbox4 نمایش داده شود و کاربر بتواند اطلاعات را ویرایش کند و با زدن دکمه ویرایش اطلاعات ویرایش گردد.ولی تاریخ مشکل دارد.
دوستان من تازه کارم اگه کسی میتونه کمکم کنه. ممنون.
برنامه نمونه:
در برنامه زیر من 2 تا table دارم که یکی مشخصات پرسنلی و دیگری مرخصی روزانه است.
یک form دارم که در textbox0 کد پرسنلی وارد میکنم و در textbox2 تاریخ شروع مرخصی را وارد میکنم، در رویداد onexit تکست باکس2 کد زیر نوشتم:
Private Sub Text2_Exit(Cancel As Integer)
If IsNull(Text0) = False Then
Set db = CurrentDb
Set rst = db.OpenRecordset("select * from Morakhasi_Roozaneh where ((Code_Personeli=" & Text0 & ") AND (az_tarikh=" & Text2.Value & "))")
If rst.EOF Then
MsgBox "Çíä јæÑÏ æÌæÏ äÏÇÑÏ"
Text2 = Null
Text4 = Null
Else
Me.Text4 = rst.Fields(3)
' Me.Del.Enabled = True
End If
rst.Close
End If
End Subمیخوام وقتی که کاربر کد پرسنلی و تاریخ شروع مرخصی وارد کرد بقیه اطلاعات از جمله تاریخ خاتمه مرخصی در textbox4 نمایش داده شود و کاربر بتواند اطلاعات را ویرایش کند و با زدن دکمه ویرایش اطلاعات ویرایش گردد.ولی تاریخ مشکل دارد.
دوستان من تازه کارم اگه کسی میتونه کمکم کنه. ممنون.
برنامه نمونه: