خاتمه مرخصی در textbox نمایش داده شود

[ali_khaluzadeh]

باسلام خدمت دوستان گرامی.

در برنامه زیر من 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 نمایش داده شود و کاربر بتواند اطلاعات را ویرایش کند و با زدن دکمه ویرایش اطلاعات ویرایش گردد.ولی تاریخ مشکل دارد.

دوستان من تازه کارم اگه کسی میتونه کمکم کنه. ممنون.


برنامه نمونه:

[ali_khaluzadeh]

خواهش میکنم یکی کمکم کنه.

[dadsara]

سلام
دوست عزیز شما تاریخها رابا فرمت date/Time ذخیره می کنید شماخوب می دانید که در این حالت تاریخها بصورت انگلیسی ذخیره می شوند
در این حالت شما مجبورید جهت نمایش به کاربر یک بار آنها را به شمسی تبدیل کنید
من به شما پیشنهاد می کنم تاریخها را فرمت TEXT و شمسی ذخیره کنید و برای محاسبه اختلاف آنها از توابع موجود در همین سایت یا از توابع تاریخ مربوط به آقای آزادی استفاده کنید
باقی کارها خودبخود درست می شود