▓ Microsoft Access سوالات، مشكلات و مباحث در اینجا ▓

[k.attarzadeh]

میشه استپ بای استپ برام بگین که توابعی که برای تبدیل تاریخ میلادی به شمسی باید به کارببرم چی هست؟

دوست عزیز و گرامی من خودم در برنامه ام از تابع (کدی) که در زیر ملاحظه می کنی برای تبدیل تاریخ میلادی به شمسی استفاده می کنم فقط کافی هر جا اجتیاج داری از این تابع(کد) استفاده کنی.

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

[k.attarzadeh]

ضمن عرض تشكر
غرض من اين نيست كه آن را در يك فيلد نشان بدهم
بلكه هدف من اين است كه مثلا به عنوان بك گراند فرم استفاده كنم
يا اين كه درگزارشها به عنوان مثلا آرم شركت بياورم
لطفا راه سخت تر ولي امكان پذير تر رو ارائه فرماييد
با تشكر فراوان

با عرض سلام خدمت دوستان قدیمی و صمیمی
اگر می خواهید یک عکس به عنوان بک گراند فرم استفاده کنید فقط کافی این تنظیم در قسمت form_load فرم تان تایپ کنید:

"آدرس فایل jpg تان در هاردیسک تان"=form.picture

و نکته بعدی آنکه حجم فایل عکستان کم باشد مثلا" حداکثر در حدود 20 الی 22 kb .

================================================== ============================
آقای ادمین سایت من نمی توانم آدرس ای میل شما را پیدا کنم و پیغام خودم را به شما بگوییم ولی چرا اعضا این سایت نسبت به من کم لطف شده اند دو تا سوال طولانی شما را پاسخ دادم انتظار جواب سوال های خودم را داشتم .چرا به سوال من جواب نمی دهید؟

اخرین سوال که کردم و جواب نشدیم مربوط به تاریخ 17-02-2011, 11:05 AM است.

جوان مردی خوب چیزی برای انسانها.

================================================== ============================

[vmoghiti]

سلام خدمت اساتید گرامی
بنده برای راس گیری چک مجبورم دو تا تاریخ فارسی رو از هم کم کنم تا اختلاف روزها به دست بیاد
به طور مثال 1390/01/20 و تاریخ 1390/01/25 که اختلافشون میشه 5 روز
حالا من تو فرم سه تا textbox دارم که یکی تاریخ اول یکی تاریخ دوم و یکی هم مقدار اختلاف این دو تاریخ مینویسه
سوال اصلی من اینه که با چه تابعی میتونم اختلاف این دو رو در بیارم و تو تکست سوم بنویسم

[mohammad96]

بنی آدم اعضاء یک دیگرند که در آفرینش از یک گوهرند .
چو عضوی بدرد آور نباشد اعضاء دیگر قرار.
تو که از محنت دیگران بی غمی نشاید نامت نهند آدمی.

با سلام خدمت دوستان صمیمی و قدیمی.سال نو مبارک.ببخشید اگر من شعر بالا را درست نوشتم چون زیاد از شعر شاعری چیزی متوجه نمی شوم و به مفهوم آن اهمیت می دهم!!!!!!

من یک جایی در متن برنامه ام در درون یک Private Sub با دستور "نام جدول"=me.recordsource جدول فعال فرمم (Form) را تغییر دادم و با خطایی زیر مواجه می شوم:

run -time error 2115

the macro or functionset to the BeforeUpdate or ValidationRule properety for this field ispreventing 'bank cd' from saving the data in the field

کی میدونه من چگونه باید از این خطا جلوگیری کنم؟؟؟

1- نمی خواهم با دستور on error مهارش کنم راه دیگه ایی داره.
2- من هیج دستور BeforeUpdate یا ValidationRule در متن این private sub مذکور استفاده نکردم.

براتون مقدوره فایل رو بذارید تا از نزدیک بشه باهاش سر و کله زد؟

[cho0bin]

سلام
من اينو تو on error كه ميذارم وقتي فيلد خالي هست هيچي اروور نميده
چه كنم؟!!
If DataErr = 3314 Then
Response = acDataErrContinue 'Don't display the default message
MsgBox "Enter data in all required fields."
End If

[mohammad96]

سلام
من اينو تو 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 خود فرم نوشته شده دیگه؟ من امتحان کردم و جواب داد. اگه حالتهای بالا که گفتم برای شما صادقه و وقتی مثلا فرم رو ذخیره میکنی و اتفاقی نمیوفته، لطفا فایلت رو بذار تا از نزدیک بشه بهش نگا انداخت.

[kimiyajo0o0on]

[QUOTE=mohammad96;5853923]سلام،
خسته نباشین عزیز
محمدجان من متوجه نمیشم.....ببینید من یه فرم دارم که یه چک باکسم میخوام براش بزارم که هردفعه که تیک رو میزارم اطلاعات اون بیمار غیرفعال بشه و قتی خودم تیک رو برمی دارم اطلاعاتش رو بتونم ویرایش کنم.....اگه بشه کدش رو برام بزارین واقعا ممنونتون میشم

[cho0bin]

دمت گرم محمد جان
خيلي حال دادي نميدوني چند روزه دنبالشم
مشكل از فيلد Required بود كه no بيد :دي
فدات

[kimiyajo0o0on]

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

[cho0bin]

يه سوال ديگه
من واسه گزارش گيري ميخوام شماره پروژه بدم فقط اطلاعات مربوط به همون شماره پروژه رو نشونم بده
اگه ميشه كامل و صريح توضيح بدين

با سلام مجدد!
برای سوال اول یه راه دیگه که هم ساده تره هم بهتر به نظرم رسیده:
برای باز کردن گزارش از یه فرم استفاده میکنیم. فرم شامل یک تکست باکس(text1) و یک کامند باتن (cmb1) می باشد. کلمه ای که محدود کننده رکوردهاست در تکست باکس باید وارد بشه ، مثلا نام کشور و ... . حالا توی ماکروی مربوط به cmb1 ، دستور Open report رو انتخاب، بعد هم نام گزارشمون در قسمت مربوطه و در قسمت Where Condition هم می نویسیم (فرض میکنیم که کلمه های مورد جستجوی ما در فیلد address و فرم ما هم fm1 باشه.):
کد:

[address] Like "*" & [Forms]![fm1]![text1] & "*"

گزارش هم مبتنی بر جدول یا کوئریی هست که فیلد address در اونها وجود داره.
والسلام.

اين هم جواب نداد