Printable View
با سلام خدمت دوست عزیز و گرامی:نقل قول:
در قدم اول
1- یک چک باکس بنام my_Check ایجاد کن.
2- یک تکست باکس بنام my_textbox ایجاد کن.
در قدم دوم
1- چک باکس بنام my_Check را انتخاب کن. راست کلیک کن و properties این چک باکس را انتخاب کن.
2- گزینه on click انتخاب کن.
3- بر قسمت event procure کلیک کن.
4- کد زیر بر این قسمت paste کن.
If my_textbox.Enabled = True Then
my_textbox.Enabled = False
Else
my_textbox.Enabled = True
End If
نقل قول:دوست عزیز و گرامی من خودم در برنامه ام از تابع (کدی) که در زیر ملاحظه می کنی برای تبدیل تاریخ میلادی به شمسی استفاده می کنم فقط کافی هر جا اجتیاج داری از این تابع(کد) استفاده کنی.
در این کد تابع تاریخ روز امروز را تبدیل به تاریخ شمسی می کند و به شما تحویل می دهد.دقت کنید که این تاریخ در متغییر today_date بصورت از جنس عدد پشت سر هم ایجاد می شود که شما می توانید با کمی تغییر در خط آخر خط final_date = Trim(Str(ssyears)) + ssmonths + ssdays برنامه هر جور فورمتی که بخواهی خروجی شمسی داشته باشی.
اگر خواستی می توانی با کمی تغییر این تابع را به فانکشن تبدیل کنی تا هر روز دلخواه که شما به کد می دهی همان را به تاریخ شمسی تبدیل کند.
نکته:اگه کمی دقت کنید متوجه می شوید که تابع(کد) بعد از بررسی اینکه در چه ما میلادی شما هستید و چه روز میلادی هستید با طابق تقویم هر سال اختلاف روز ها را پیدا می کند و به روز/ماه/سال شمسی می رسد.ضمنا برایش مهم که شما در کدام نیمه از سال هستید و این موضوع را هم مورد توجه قرار می دهد.
امیدوارم از این کد در برنامه ات استفاده کنی و خوشحال باشی
()Private Sub mm_to_ss
'======================================
mmyears = DatePart("yyyy", Date)
mmdays = DatePart("d", Date)
mmmonths = DatePart("m", Date)
'======================================
'======================================
Select Case mmmonths
Case 1
'==================================
If mmdays >= 1 Or mmdays <= 20 Then
ssdays = mmdays + 10
ssmonths = 10
End If
If mmdays >= 21 Then
ssdays = mmdays - 20
ssmonths = 11
End If
ssyears = mmyears - 622
'==================================
Case 2
'==================================
If mmdays >= 1 Or mmdays <= 19 Then
ssdays = mmdays + 11
ssmonths = 11
End If
If mmdays >= 20 Then
ssdays = mmdays - 19
ssmonths = 12
End If
ssyears = mmyears - 622
'==================================
Case 3
'==================================
If mmdays >= 1 Or mmdays <= 20 Then
'+++ ssdays = mmdays + 10
ssdays = mmdays + 9
ssmonths = 12
ssyears = mmyears - 622
End If
If mmdays >= 21 Then
ssdays = mmdays - 20
ssmonths = 1
ssyears = mmyears - 621
End If
'==================================
Case 4
'==================================
If mmdays >= 1 Or mmdays <= 20 Then
ssdays = mmdays + 11
ssmonths = 1
End If
If mmdays >= 21 Then
ssdays = mmdays - 20
ssmonths = 2
End If
ssyears = mmyears - 621
'==================================
Case 5
'==================================
If mmdays >= 1 Or mmdays <= 21 Then
ssdays = mmdays + 10
ssmonths = 2
End If
If mmdays >= 22 Then
ssdays = mmdays - 21
ssmonths = 3
End If
ssyears = mmyears - 621
'==================================
Case 6
'==================================
If mmdays >= 1 Or mmdays <= 21 Then
ssdays = mmdays + 10
ssmonths = 3
End If
If mmdays >= 22 Then
ssdays = mmdays - 21
ssmonths = 4
End If
ssyears = mmyears - 621
'==================================
Case 7
'==================================
If mmdays >= 1 Or mmdays <= 22 Then
ssdays = mmdays + 9
ssmonths = 4
End If
If mmdays >= 23 Then
ssdays = mmdays - 22
ssmonths = 5
End If
ssyears = mmyears - 621
'==================================
Case 8
'==================================
If mmdays >= 1 Or mmdays <= 22 Then
ssdays = mmdays + 9
ssmonths = 5
End If
If mmdays >= 23 Then
ssdays = mmdays - 22
ssmonths = 6
End If
ssyears = mmyears - 621
'==================================
Case 9
'==================================
If mmdays >= 1 Or mmdays <= 22 Then
ssdays = mmdays + 9
ssmonths = 6
End If
If mmdays >= 23 Then
ssdays = mmdays - 22
ssmonths = 7
End If
ssyears = mmyears - 621
'==================================
Case 10
'==================================
If mmdays >= 1 Or mmdays <= 22 Then
ssdays = mmdays + 8
ssmonths = 7
End If
If mmdays >= 23 Then
ssdays = mmdays - 22
ssmonths = 8
End If
ssyears = mmyears - 621
'==================================
Case 11
'==================================
If mmdays >= 1 Or mmdays <= 21 Then
ssdays = mmdays + 9
ssmonths = 8
End If
If mmdays >= 22 Then
ssdays = mmdays - 21
ssmonths = 9
End If
ssyears = mmyears - 621
'==================================
Case 12
'==================================
If mmdays >= 1 Or mmdays <= 21 Then
ssdays = mmdays + 9
ssmonths = 9
End If
If mmdays >= 22 Then
ssdays = mmdays - 21
ssmonths = 10
End If
ssyears = mmyears - 621
'==================================
End Select
If Len(Trim(Str(ssmonths))) = 1 Then
ssmonths = "0" + Trim(Str(ssmonths))
Else
ssmonths = Trim(Str(ssmonths))
End If
If Len(Trim(Str(ssdays))) = 1 Then
ssdays = "0" + Trim(Str(ssdays))
Else
ssdays = Trim(Str(ssdays))
End If
final_date = Trim(Str(ssyears)) + ssmonths + ssdays
today_date = Val(final_date)
End Sub
با عرض سلام خدمت دوستان قدیمی و صمیمینقل قول:
اگر می خواهید یک عکس به عنوان بک گراند فرم استفاده کنید فقط کافی این تنظیم در قسمت form_load فرم تان تایپ کنید:
"آدرس فایل jpg تان در هاردیسک تان"=form.pictureو نکته بعدی آنکه حجم فایل عکستان کم باشد مثلا" حداکثر در حدود 20 الی 22 kb .
================================================== ============================
آقای ادمین سایت من نمی توانم آدرس ای میل شما را پیدا کنم و پیغام خودم را به شما بگوییم ولی چرا اعضا این سایت نسبت به من کم لطف شده اند دو تا سوال طولانی شما را پاسخ دادم انتظار جواب سوال های خودم را داشتم .چرا به سوال من جواب نمی دهید؟
اخرین سوال که کردم و جواب نشدیم مربوط به تاریخ 17-02-2011, 11:05 AM است.
جوان مردی خوب چیزی برای انسانها.
================================================== ============================
سلام خدمت اساتید گرامی
بنده برای راس گیری چک مجبورم دو تا تاریخ فارسی رو از هم کم کنم تا اختلاف روزها به دست بیاد
به طور مثال 1390/01/20 و تاریخ 1390/01/25 که اختلافشون میشه 5 روز
حالا من تو فرم سه تا textbox دارم که یکی تاریخ اول یکی تاریخ دوم و یکی هم مقدار اختلاف این دو تاریخ مینویسه
سوال اصلی من اینه که با چه تابعی میتونم اختلاف این دو رو در بیارم و تو تکست سوم بنویسم
براتون مقدوره فایل رو بذارید تا از نزدیک بشه باهاش سر و کله زد؟نقل قول:
سلام
من اينو تو on error كه ميذارم وقتي فيلد خالي هست هيچي اروور نميده
چه كنم؟!!
If DataErr = 3314 Then
Response = acDataErrContinue 'Don't display the default message
MsgBox "Enter data in all required fields."
End If
سلام،نقل قول:
مشخصه Required فیلد مورد نظرت توی جدول مربوطه، yes هست ؟ بعد این کد توی On Error خود فرم نوشته شده دیگه؟ من امتحان کردم و جواب داد. اگه حالتهای بالا که گفتم برای شما صادقه و وقتی مثلا فرم رو ذخیره میکنی و اتفاقی نمیوفته، لطفا فایلت رو بذار تا از نزدیک بشه بهش نگا انداخت.
[QUOTE=mohammad96;5853923]سلام،
خسته نباشین عزیز
محمدجان من متوجه نمیشم.....ببینید من یه فرم دارم که یه چک باکسم میخوام براش بزارم که هردفعه که تیک رو میزارم اطلاعات اون بیمار غیرفعال بشه و قتی خودم تیک رو برمی دارم اطلاعاتش رو بتونم ویرایش کنم.....اگه بشه کدش رو برام بزارین واقعا ممنونتون میشم:41:
دمت گرم محمد جان
خيلي حال دادي نميدوني چند روزه دنبالشم
مشكل از فيلد Required بود كه no بيد :دي
فدات:8:
محمد جان فرم من اطلاعاتش مستقیم به جدول میره و هر دفعه اطلاعات جدید وارد میکنم.....میخوام کاربرا به اطلاعاتی که من در جدول برای آن رکورد تیک گذاشتم دسترسی نداشته باشه....ببینه ولی تغییر نده.....ممنون میشم اگه کدش رو برای بزارین......