نحوه نمایش

[m.alizadeh]

سلام بر همه اساتید
در این برنامه من از یک تابع تاریخ شمسی استفاده نموده ام چگونه می توانم در Form1 این تاریخ را با فیلد مناسبت و یادداشت در تیبل tbl1 لینک نمایم به طوری که وقتی تاریخ روز عوض می شود مناسبت و یادداشت همان روز نیز تغییر یابد.

[HAMRAHSOFT.IR]

دوست خوب اين يك مثال ساده در اين رابط
اميدوارم بدرد بخوره

[m.alizadeh]

دوست عزیز (دلشکست) با سلام و تشکر
بایستی به اطلاع برسانم که در این فرم تیکس باکسText10 از تابع شمسی استفاده می نماید و بنده به دنبال راهی برای لینک کردن این تابع با تیبل tbl1 می گردم که در مثال وقتی امروز 1387/04/14 برنامه را باز نمودم تیکس باکس Text10 تاریخ امروز رانمایش می دهد و تکس باکس های مناسبت و یادداشت با همان تاریخ با فیلد تاریخ tbl1 لینک شود.

[مهدی قربانی]

سلام
دوست گرامي بهتر بود عنوان تاپيك رو مرتبط با موضوع سئوال ذكر مي كرديد مثلاً مرتبط كردن اطلاعات TextBox با اطلاعات موجود در جدول يا جستجوي اطلاعات TextBox‌در جدول و ... بگذريم درمورد موضوع مد نظر شما عرض كنم كه بهترين گزينه به نظر حقير استفاده از تابع Dlookup هست كه عيناً در نمونه خودتون پياده سازي شده .


Private Sub Form_Load()
Dim StrMonasebat
Dim StrYaddasht

StrMonasebat = DLookup("Monasebat", "tbl1", "Date=" & Me.Text20)
StrYaddasht = DLookup("Yaddasht", "tbl1", "Date =" & Me.Text20)

If IsNull(StrMonasebat) And IsNull(StrYaddasht) Then

MsgBox "ãäÇÓÈÊ æ íÇÏÏÇÔÊí ãÑÊÈØ ÈÇ ÊÇÑíÎ ÇãÑæÒ íÇÝÊ äÔÏ", vbExclamation + vbMsgBoxRight, "ÊæÌå"

Else

Me.Text16 = StrMonasebat
Me.Text18 = StrYaddasht

End If
End Sub

[m.alizadeh]

تشکر می کنم جناب mehdi-gh
مشکل با جواب خوب شما حل شد از اینکه بنده حقیر را به این خوبی راهنمایی فرمودید بسیار ممنون و متشکرم و نامناسب مطرح نمودن سوال را به حساب بی سوادی بنده بگذارید .
باز هم تشکر.

[مهدی قربانی]

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


نامناسب مطرح نمودن سوال را به حساب بی سوادی بنده بگذاری

اختيار داريد دوست عزيز ، هدف اينه كه بازيابي اين تاپيكها براي كاربراني كه در آينده سئوال يا سئوالات مشابه براشون پيش بياد بتونن براحتي با جستجو به اون دست پيدا كنن
2 تا خواهش
1 همين الان هم مي تونيد عنوان تاپيك رو اصلاح كنيد
2 از طريق منوي ابزارهاي تاپيك ( بالاي صفحه ) گزينه تائيد پاسخهاي ارسالي به عنوان راه حل رو به منظور تائيد گفتگو انتخاب كنيد
موفق باشيد