جستجو از چند جدول

[arman2000]

با سلام
در بانك جدولي دارم كه براي استفاده از آن، كوئري و فرم و گزارش براش در نظر گرفتم (جدول 88) ايندكس هم شماره گذاري خودكار هست
براي هر سال من دقيقا جدولي مثل جدول 88 لازم دارم كه فقط در فيلد تاريخ ثبت فرق دارند
اين جدول هم بصورت خودكار شماره گذاري مي كنه (ايندكس) و هر سال بايد از ركورد عدد يك شروع بشه (پس نمي تونم ادامه جدول قبلي وارد كنم)
چطور مي تونم همون كوئري و فرم و ... براي اين جدول جديد (جدول 89) هم استفاه كنم يعني جستجو از طريق فرم يا گزارش، شامل دو جدول بشه با وجود اينكه نام دو جدول فرق داره ولي همگي فيلدهاشون يكي‌اند

[dadsara]

سلام
فیلدی که در آن شماره (از عدد یک شروع می شود) موجود است را به گونه ای طراحی کنید که رکوردهای هر سال در یک جدول ذخیره شود
پیشنهاد :
1- اعداد را از ترکیب سال / عدد ایجاد کنید در اینصورت اعداد تکراری نمی شوند
2- یک فیلد برای سال درنظر بگیرید و ترکیب این دو را کلید کنید

[arman2000]

سلام
بزرگوار اين فيلد حتما بايد اتونامبر باشه و امكان اينكه از تركيب عدد/سال استفاده كنم نيست چون از اين فيلد در گزارش چاپي استفاده مي كنم و كار به هم مي ريزه ضمن اينكه فكر مي كنم تنظيم اين كار براي هر سال هم مشكلاتي رو ايجاد كنه و همچنين راحت نباشه

[dadsara]

سلام
ضمن احترام به نظر جنابعالی، بنده مخالف نظر شما هستم
1- برای چاپ گرفتن لزومی به فیلد از نوع اتونامبر نیست
2- اگر یکبار زحمت درست کردن این مشکل را به خود بدهید در عوض جاهای دیگر از آن می توانید بهره برداری کنید
3- ایجاد شماره ردیف برای هر سال چندان هم که تصور می کنید مشکل نیست

[arman2000]

سلام
ممنون از راهنمايي كامل شما
امكان اين كه اتونامبر رو بشه از عددي غير از 1 شروع كنيم هست؟
اتونامبر، عدد با فرمت خاصي باشه چي؟

[dadsara]

سلام
1- بله ، می شود اتونامبر را از عدد دلخواه شروع کرد (جستجو کنید حتما یافت می شود)
2- عدد با فرمت خاص باشد منظور چیست ؟

[arman2000]

مثلا
122/88
88-100
ب-200

[arman2000]

سلام
ممنون مي شم راهنمايي بفرمائيد

[amirzazadeh]

سلام
ممنون مي شم راهنمايي بفرمائيد

يك نمونه ساده براتون اپلود كردم اميدوارم به دردتون بخوره.

[arman2000]

ممنونم لطف كرديد تشكر
بزرگوار با توجه به اينكه من مي خوام اول هر سال فيلد شماره، از عدد يك شروع بشه (در همون جدول) چطور مي تونم اين فيلد رو اتونامبر كنم؟

[amirzazadeh]

ممنونم لطف كرديد تشكر
بزرگوار با توجه به اينكه من مي خوام اول هر سال فيلد شماره، از عدد يك شروع بشه (در همون جدول) چطور مي تونم اين فيلد رو اتونامبر كنم؟

سلام
فكر نميكنم با استفاده از Auto Number اينكار عملي باشه.بهتره فيلد مورد نظر رو از نوع عددي ( Number ) انتخاب كنيد.
..................
موفق باشيد

[arman2000]

امكان اينكه بتونم يه كاري مثل اكسل كه به سل فرمول مي داديم كه به عدد سل قبلي يك عدد اضافه بشه چي؟
يعني ورودي "فيلد شماره" ركورد قبلي، +1 براي ركورد جديد بشه. بعد هر موقع كه لازم شد از عدد يك شروع كنيم، يك ركورد رو برابر صفر قرار بديم (ركورد تغيير سال) ركورد بعدي مي شه يك.

[amirzazadeh]

امكان اينكه بتونم يه كاري مثل اكسل كه به سل فرمول مي داديم كه به عدد سل قبلي يك عدد اضافه بشه چي؟
يعني ورودي "فيلد شماره" ركورد قبلي، +1 براي ركورد جديد بشه. بعد هر موقع كه لازم شد از عدد يك شروع كنيم، يك ركورد رو برابر صفر قرار بديم (ركورد تغيير سال) ركورد بعدي مي شه يك.

سلام
اينكار ممكنه هست شما ميتونين با استفاده از تابع Dmax اينكارو انجام بديد فكر ميكنم قبلا دوستان نمونه اي در اين مورد اپلود كرده بودند.

DMax (  نام جدول ;  نام فيلد) 

.......................
موفق باشيد.

[dadsara]

سلام
در نمونه ضمیمه به ازاء تاریخ ثبت آخرین شماره از آن سال استخراج +1 و ذخیره می گردد
اگر در سال مورد نظر قبلا هیچ رکوردی درج نشده باشد آنرا =1 قرار می دهد
همچنین اگر شماره مورد نظر قبلا وجود داشته باشد آنرا اصلاح می کند

[arman2000]

دوست عزيز ممنونم از نمونه اي كه پيشنهاد داديد عالي بود

بزگوار امكان داره كه فيلد ID بصورت تك عددي باشه (مثلا 12 باشه، نه 12/88)

[dadsara]

سلام
باتوجه به اینکه تمام سالها در یک جدول وجود دارد و قراره هر سال از یک شروع بشه خوب طبیعی است که باید یک وجه تمایز بین سال 88 و مثلاً 87 وجود داشته باشد
پس در این حالت ناچار من از ترکیب سال + /+ شماره استفاده کردم

[arman2000]

سلام
دوست عزيز امكان داره باكس تاريخ رو جوري تنظيم كنم كه تا زماني كه مقدار جديد وارد نكنم، تغيير نكنه و پيش فرض، تاريخ وارد شده قبلي بمونه مگه لازم بشه كه عوضش كنم؟
اگه بخوام اين خاصيت ماندگاري، براي چند تا باكس حفظ بشه چي؟ مثلا فيلد نام هم، براي ركورد جديد، مقدار قبلي رو بصورت پيش فرض داشته باشه؟
يه نمونه (db2) توي صفحه (http://www.barnamenevis.org/sh...A8%D8%B9+Dlast) ديدم ولي نتونستم با اين نمونه (AddRecord+SAL) تركيبش كنم. ممنون مي شم راهنمايي بفرمائيد.

[amirzazadeh]

سلام
دوست عزيز امكان داره باكس تاريخ رو جوري تنظيم كنم كه تا زماني كه مقدار جديد وارد نكنم، تغيير نكنه و پيش فرض، تاريخ وارد شده قبلي بمونه مگه لازم بشه كه عوضش كنم؟
اگه بخوام اين خاصيت ماندگاري، براي چند تا باكس حفظ بشه چي؟ مثلا فيلد نام هم، براي ركورد جديد، مقدار قبلي رو بصورت پيش فرض داشته باشه؟
يه نمونه (db2) توي صفحه (http://www.barnamenevis.org/sh...A8%D8%B9+Dlast) ديدم ولي نتونستم با اين نمونه (AddRecord+SAL) تركيبش كنم. ممنون مي شم راهنمايي بفرمائيد.

سلام
شما ميتونين براي اين منظور در رويداد after update فيلد مربوطه مقدار پيش فرض رو برابر مقدار جاري قرار بدين (بافرض نام text1 براي فيلد مورد نظر)

Private Sub Text1_AfterUpdate()

Me.Text1.DefaultValue = Me.Text1

End Sub

........................
موفق باشيد

[arman2000]

ممنون از راهنمايي شما ولي با كليك دكمه "جديد" در نمونه (AddRecord+SAL)، فيلد، خالي مي شه.

[amirzazadeh]

ممنون از راهنمايي شما ولي با كليك دكمه "جديد" در نمونه (AddRecord+SAL)، فيلد، خالي مي شه.

سلام
با توجه به اينكه شما از فرم unbound استفاده ميكنيد كافيه از كدهاي دكمه "جديد" اين كد رو حذف كنيد:

Me.Text2 = Null

به اين ترنيب ديگه تا شما نخواهين تاريخ رو عوض كنيد نيازي به ورود تاريخ نيست.
.......................
موفق باشيد

[arman2000]

دوست من عالي بود ممنونم

1- چرا در تكست باكس نام (Text4) فقط كاراكتر عددي قبول مي كنه؟ حروف رو خطا مي ده.

2- براي پيدا كردن يك ركورد چطور مي شه از اين نمونه استفاده كرد؟ يعني شماره ركورد روبديم و مشخصات اون ديده بشه. به طور معمول در باكس پايين (زير دكمه "ذخيره") كه شماره ركوردها رو نمايش مي ده و مي شه به جلو يا عقب بريم، ولي در اين نمونه ديگه اين دكمه ها كار نمي كنند و فقط عدد يك ديده مي شه.

3- چطور مي شه بعد از اينكه دكمه "ذخيره" رو كه كليك كرديم و پيغام اون رو OK كرديم، دكمه "جديد" در حال انتخاب باشه؟ در اين نمونه دكمه "ذخيره" Stop‌ مي شه. (از طريق Tab Index موفق نشدم اين كار رو انجام بدم).

[amirzazadeh]

چرا در تكست باكس نام (Text4) فقط كاراكتر عددي قبول مي كنه؟ حروف رو خطا مي ده.

فرمت text 4 رو در نماي طراحي فرم كنترل كنيد.(اگر ازنوع عددي يا تاريخ بود پاكش كنيد به عبارت ديگه فرمت بايد خالي باشه)
.....................
موفق باشيد

[arman2000]

سلام

1- براي پيدا كردن يك ركورد چطور مي شه از اين نمونه استفاده كرد؟ يعني شماره ركورد روبديم و مشخصات اون ديده بشه. به طور معمول در باكس پايين (زير دكمه "ذخيره") كه شماره ركوردها رو نمايش مي ده و مي شه به جلو يا عقب بريم، ولي در اين نمونه ديگه اين دكمه ها كار نمي كنند و فقط عدد يك ديده مي شه.

2- چطور مي شه بعد از اينكه دكمه "ذخيره" رو كه كليك كرديم و پيغام اون رو OK كرديم، دكمه "جديد" در حال انتخاب باشه؟ در اين نمونه دكمه "ذخيره" Stop‌ مي شه. (از طريق Tab Index موفق نشدم اين كار رو انجام بدم).

[arman2000]

ممنون مي شم در مورد دو سوال قبلي، راهنمايي بفرمائيد.

[جعفر88]

سلام
دوست عزيز اين لينك هم نگاه بكنين.
http://www.barnamenevis.org/showthread.php?t=4388

[amirzazadeh]

سلام

1- براي پيدا كردن يك ركورد چطور مي شه از اين نمونه استفاده كرد؟ يعني شماره ركورد روبديم و مشخصات اون ديده بشه. به طور معمول در باكس پايين (زير دكمه "ذخيره") كه شماره ركوردها رو نمايش مي ده و مي شه به جلو يا عقب بريم، ولي در اين نمونه ديگه اين دكمه ها كار نمي كنند و فقط عدد يك ديده مي شه.

2- چطور مي شه بعد از اينكه دكمه "ذخيره" رو كه كليك كرديم و پيغام اون رو OK كرديم، دكمه "جديد" در حال انتخاب باشه؟ در اين نمونه دكمه "ذخيره" Stop‌ مي شه. (از طريق Tab Index موفق نشدم اين كار رو انجام بدم).

براي قسمت دوم سئوالتون كافيه اين كد رو به آخر كدهاي دكمه ذخيره اضافه كنيد:

Me.Command7.SetFocus

براي قسمت اول سئوالتون ميتونين از يك فرم متصل به يك كوئري بهره بگيريديا از ركوردست بهره برداري كنيد.نمونه خودتون رو اصلاح كردم از كومبو انتخاب و دكمه جستجو رو فشار دهيد.
............................
موفق باشيد

[arman2000]

سلام دوست من
جناب آقاي ميرزازاده بسيار سپاسگذارم از راهنمايي هاي سريع و عالي شما
بزرگوار پيشنهاد تون عالي بود در مورد جستجو (در مورد سوال اول) منتها من نياز دارم كه بعد از وارد كردن ركوردها (مثلا 50 ركورد)، دوباره برگردم و ركوردهاي وارد شده رو چك كنم پس بايد بتونم ركوردها رو پيوسته ببينم. در صورتي كه باكس جستجو فقط يك ركورد رو به من نشون مي ده.

در كل چطور مي شه مثلا يك ركورد رو با سرچ پيدا كنم و ركوردهاي بعديش رو هم بتونم با كليك ببينم نه اينكه هر بار توي باكس شماره اون رو تايپ كنم (ناويگيتور پايين منظورم هست)
باز هم تشكر مي كنم از توضيحات كامل و راه حل هاي جالب شما

[amirzazadeh]

سلام دوست من
جناب آقاي ميرزازاده بسيار سپاسگذارم از راهنمايي هاي سريع و عالي شما
بزرگوار پيشنهاد تون عالي بود در مورد جستجو (در مورد سوال اول) منتها من نياز دارم كه بعد از وارد كردن ركوردها (مثلا 50 ركورد)، دوباره برگردم و ركوردهاي وارد شده رو چك كنم پس بايد بتونم ركوردها رو پيوسته ببينم. در صورتي كه باكس جستجو فقط يك ركورد رو به من نشون مي ده.

در كل چطور مي شه مثلا يك ركورد رو با سرچ پيدا كنم و ركوردهاي بعديش رو هم بتونم با كليك ببينم نه اينكه هر بار توي باكس شماره اون رو تايپ كنم (ناويگيتور پايين منظورم هست)
باز هم تشكر مي كنم از توضيحات كامل و راه حل هاي جالب شما

سلام
يك دكمه با عنوان پيمايش و يك فرم باند شده به نمونه شما اضافه كردم بعد از انتخاب id از كومبو دكمه پيمايش رو فشار دهيد :
كدهاي مورد استفاده:

Set db = CurrentDb

Set rst = db.OpenRecordset("select * from table1 ")

 With rst

  Do Until rst.EOF

x = x + 1



If rst.Fields(0) = Me.Combo9 Then

Text0 = rst.Fields(0)

Text2 = rst.Fields(1)

Text4 = rst.Fields(2)

DoCmd.OpenForm "table1"

DoCmd.GoToRecord acDataForm, "table1", acGoTo, x

Exit Sub

 End If

  rst.MoveNext

 Loop

End With

..........................
موفق باشيد

[arman2000]

جناب آقاي ميرزازاده سلام مجدد
راه حلتون مثل هميشه عالي بود ممنونم
امكان داره فيلد تاريخ، بعد از باز شدن فرم، مقدار وارد شده آخرين ركورد رو نشون بده؟ بخاطر اينكه الان اگه اين فرم رو ببندم، با باز شدن مجدد، فيلد تاريخ خالي مي شه.

[amirzazadeh]

جناب آقاي ميرزازاده سلام مجدد
راه حلتون مثل هميشه عالي بود ممنونم
امكان داره فيلد تاريخ، بعد از باز شدن فرم، مقدار وارد شده آخرين ركورد رو نشون بده؟ بخاطر اينكه الان اگه اين فرم رو ببندم، با باز شدن مجدد، فيلد تاريخ خالي مي شه.

سلام
كافيه در رويداد لود فرمتون از تابع DLast كمك بگيريد(اين تابع آخرين مقدار فيلد تاريخ رو پيدا كرده و در فرمتون قرار ميده):

Private Sub Form_Load()

Me.Text0 = ""

Me.Text2 = DLast("Date", "table1")

Me.Text4 = ""

End Sub

.........................
موفق باشيد

[arman2000]

دوست عزيز سلام

با توجه به نمونه AddRecord2.mdb، دارم نمونه خودم رو كامل مي كنم ولي با كليك دكمه "ذخيره" خطا ميده. اون رو پيوست كردم. اگه راهنمايي بفرمائيد ممنون مي‌شم.

http://rapidshare.com/files/385964611/water.rar.html

[amirzazadeh]

دوست عزيز سلام

با توجه به نمونه AddRecord2.mdb، دارم نمونه خودم رو كامل مي كنم ولي با كليك دكمه "ذخيره" خطا ميده. اون رو پيوست كردم. اگه راهنمايي بفرمائيد ممنون مي‌شم.

http://rapidshare.com/files/385964611/water.rar.html

سلام
خطايي كه شما دريافت ميكنيد ناشي از تغيير نام فيلدها هست.مثلا شما ديگه فيلدي با نام id ندارين در صورتيكه در كدها از اون استفاده ميكنيد.ظاهرا نام اين فيلد به number تغيير داده شده.بنابراين كدهاتون رو بايد اصلاح كنيدو يا نام فيلدها رو به حالت قبلي برگردونيد.در ساير قسمتها هم اين تداخل نام ها به چشم ميخوره مثل text0 در فرم مربوطه و ....
............................
موفق باشيد

[arman2000]

سلام
1. در مورد دستورهای زیر، بجای اعداد صفر و یک و دو، چی باید بنویسم (منظورم (Fields(0 هست نه Text0)
If rst.Fields(0) = Me.Combo9 Then
Text0 = rst.Fields(0)
Text2 = rst.Fields(1)
Text4 = rst.Fields(2)

2. در مورد دستور زیر، اگر دو فرم داشته باشم که دیتا رو در یک جدول ذخیره می کنند و هر کدام یک تعداد از فیلدها رو شامل می شند، اول هم دیتا در فرمی وارد می شه که دستور زیر در اون نیست در واقع اطلاعات در فرم اول وارد می شه و بعد اطلاعات تکمیلی در فرم دوم که نیاز هست دیتاهای تکراری وارد کنیم، این دستور جواب نمی ده. یعنی رکوردها در فرم یک اضافه می شن ولی وقتی به فرم دو می رم اون دستور عمل نکرده. (به خاطر این نیست که در همون فرم، رکورد اضافه نشده؟)
Private Sub Text1_AfterUpdate()
Me.Text1.DefaultValue = Me.Text1
End Sub

[amirzazadeh]

سلام
1. در مورد دستورهای زیر، بجای اعداد صفر و یک و دو، چی باید بنویسم (منظورم (Fields(0 هست نه Text0)
If rst.Fields(0) = Me.Combo9 Then
Text0 = rst.Fields(0)
Text2 = rst.Fields(1)
Text4 = rst.Fields(2)

2. در مورد دستور زیر، اگر دو فرم داشته باشم که دیتا رو در یک جدول ذخیره می کنند و هر کدام یک تعداد از فیلدها رو شامل می شند، اول هم دیتا در فرمی وارد می شه که دستور زیر در اون نیست در واقع اطلاعات در فرم اول وارد می شه و بعد اطلاعات تکمیلی در فرم دوم که نیاز هست دیتاهای تکراری وارد کنیم، این دستور جواب نمی ده. یعنی رکوردها در فرم یک اضافه می شن ولی وقتی به فرم دو می رم اون دستور عمل نکرده. (به خاطر این نیست که در همون فرم، رکورد اضافه نشده؟)
Private Sub Text1_AfterUpdate()
Me.Text1.DefaultValue = Me.Text1
End Sub

سلام arman2000
در مورد سئوال اول شماره ها در واقع شماره فيلد هاي شما در جدولتون هست كه از صفر شروع ميشه كه ميتونين به جاش از نام فيلد مورد نظر هم استفاده كنيد.

در مورد سئوال دوم وقتي شما اطلاعات اوليه رو در فرم يك ثبت ميكنيد (با استفاده از ركوردست) بايد در ابتداي فرمان از addnew و در انتهاي فرمان از update استفاده كنيد.
در قسمت دوم به منظور تكميل اطلاعات از طريق فرم دوم شما بايد در هنگام باز كردن ركوردست اونرو بر اساس فيلد كليدي مشترك بين دو جدول فيلتر كرده و بعد با استفاده از فرمان edit در ابتدا و فرمان update در انتها داده مورد نظر رو تكميل كنيد.
..........................
موفق باشيد

[arman2000]

سلام

1- يعني براي فيلد number:
number = rst.Fields(number)

2- فرمان زير درست هست؟
Private Sub Text1_AfterUpdate()
addnew
Me.Text1.DefaultValue = Me.Text1
update
End Sub
در ضمن منظورتون رو از "بر اساس فيلد كليدي مشترك بين دو جدول فيلتر كرده و بعد با استفاده از فرمان edit در ابتدا و فرمان update در انتها داده مورد نظر رو تكميل كنيد." متوجه نشدم (از فيلتر كردن). ضمنا يك جدول هست.
پس دستور به چه شكل مي شه در نهايت؟

ممنونم

[amirzazadeh]

سلام

1- يعني براي فيلد number:

number = rst.Fields(number)

2- فرمان زير درست هست؟
Private Sub Text1_AfterUpdate()
addnew
Me.Text1.DefaultValue = Me.Text1
update
End Sub
در ضمن منظورتون رو از "بر اساس فيلد كليدي مشترك بين دو جدول فيلتر كرده و بعد با استفاده از فرمان edit در ابتدا و فرمان update در انتها داده مورد نظر رو تكميل كنيد." متوجه نشدم (از فيلتر كردن). ضمنا يك جدول هست.
پس دستور به چه شكل مي شه در نهايت؟

ممنونم

1-

number = rst.Fields("number")

2-مطلبي كه من خدمتتون عرض كردم در هنگام استفاده از ركوردست صدق ميكنه.بنابراين كد
Me.Text1.DefaultValue = Me.Text1 در اين مورد به تنهايي كفايت ميكنه.
3-با عرض پوزش فيلد كليدي مشترك بين دوفرم مد نظر بود كه به اشتباه جدول ذكر شد.منظور من اين بود وقتي شما يك ركورد از طريق فرم اول ايجاد ميكنيد براي تكميل اطلاعات اون ركورد بايد همون داده رو از طريق ركوردست استخراج كنيد وبراي اين منظور بايد وجه مشتركي بين دو فرم باشه .
.............................
موفق باشيد
...............................

[mahnaz_ozv]

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

[arman2000]

دوست من منظور از yes(Duplicates OK) در Indexed فیلدی که AutoNumber در نظر گرفته شده است چگونه می تواند داده های تکراری وارد کند؟
یعنی می توان شماره گذاری خودکار داشت ولی شماره های تکراری چطور امکان دارد؟ ما هر وقت که نیاز داشتیم تکرار یک شماره را تعیین می کنیم؟

[arman2000]

سلام
دستور Me.Text1.DefaultValue = Me.Text1 فقط برای عدد، جواب داد ولی برای کاراکترها و حروف جواب نمی ده. مشکل کجاست؟

[arman2000]

سلام
ممنون مي شم اگه به سوال قبلي جواب بديد.