کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی

موجودی انبارهای کالا در حین فروش


1;موجودی ;2;خرید;3; فروش ;4;برگشت از خرید;5; برگشت از فروش


تخصیص متریال به قطعه ی تولیدی با توجه به درخواست مشتری و نمایش کسری متریال قطعه



ساخت جدول مشخصات مشتری  با نام Customer_info 


 CustomerID 

CustomerCD

CustomerTel

CustomerAddress


ساخت جدول متریال یا متریال های مورد نیاز قطعه  ی تولیدی  با نام Pro_Requirement 


Pro_Itm_CD  کد قطعه فرضا 120

Pro_Itm_Mat متریال قطعه فرضا کد 120 از ترکیب یا اسمبلی چهار متریال A-D حاصل میشود.



ساخت جدول قطعه شامل کد و شرح آن فرضا 


Pro_Itm_CD   کد آیتم قطعه ی تولیدی  فرضا کد 120

Pro_Itm_Desc شرح قطعه 





ساخت جدول شامل کد مشتری کد قطعه تعداد قطعه ی موردنیاز مشتری تعداد قابل تولید ( کامل )  کسری تاریخ با نام  Customer_Requirement


Pro_CustomerID

Pro_Itm_CD

Pro_Itm_Qty

Supplied  چک باکس برای زمانیکه اگر حتی یک قطعه را می شد تامین کرد تیک بخورد ( فرضا در کانتینیوس فرم باتنی دارید که از طریق آن و لوپ در تعداد موردنیاز مشتری اپند انجام می گیرد )

Suppplied_Doc

Supplied_Qty 



ساخت جدول شامل ثبت مواد ورودی و مواد مصرف شده برای ساخت قطعاتی که مواد اولیه ی آن کسری ندارد با نام Pro_Entry 

(زمانیکه در فرم شما کار تخصیص متریال به قطعه را انجام می دهید بعد از تایید نهایی توسط کارفرما به این جدول با داکیومنت نامبری که خودتان تشخیص می دهید اپند میشود)



Pro_Itm_Mat

Pro_Itm_Type کمبو باکس شامل لیست Entry و Exit

Pro_Itm_Doc

Pro_Itm_Dt

Pro_Itm_Qty




ساخت جدول موقت یا Temp برای اضافه شدن متریال یا متریالهای قطعه  کد موردنظر از جدول Pro_Requirement از آیدی ۱ تا عدد درخواست مشتری یا نام Pro_Allocative  ( محتویات این جدول در هر بار تخصیص دادن باید با کوئری دیلیت  حذف شوند . )


Pro_Customer_ID

Pro_Itm_ID

Pro_Itm_CD

Pro_Itm_Mat

Pro_Itm_Qty

Pro_Itm_Pos

Pro_Itm_Inventory برای این فیلد اگر نال بود ( در اولین اپند ) از کوئری Inventory بازیابی می کند و در  اپند های بعدی  مقدار فیلد Pro_Itm_Inventory میشود حاصل تفریق این فیلد و Pro_Itm_Qty در همین جدول موقت در صورتیکه Pro_Itm_ID برابر Dmax آیدی در همین جدول موقت باشد.

Pro_Itm_Pos اگر تفریق Inventory و Qty مثبت بود True در غیر اینصورت False در نظر می گیرد . 



ساخت کوئری Inventory و کسر سام تعداد ثبت شده ی تایپ Entry و سام تعداد تخصیص یافته ی قطعه ی کامل شده با تایپ Exit از جدول Pro_Entry 

اگر طبق جدول Pro_Entry  عمل کنید به موجودی زیر خواهید رسید



ساخت کوئری اپند با نام  Append_To_Allocative که محتویات داخل جدول Pro_Requirement را با توجه به کدقطعه و  موجودی متریال مورد نیاز قطعه از کوئری Inventory به جدول موقت Pro_Allocative اضافه می کند مضاف بر اینکه به جدول موقت Id میدهد ( Pro_Itm_ID ) که از یک شروع ( Dmax در جدول موقت و با Nz اگر Null بود صفر اگر Null نبود یک شماره اضافه کند ) و به تعداد موردنیاز مشتری ختم می شود البته باید در لوپ و در فرم اجرا شود که بیشتر اضافه نکند.چیزی که باید در نظر گرفت این است که در فرم چک باکسی تعبیه گردد که در صورت تخصیص دادن حتی یک قطعه تیک خورده و از زدن باتن دوباره ی اپند جلوگیری شود  .



زمانیکه اپند به تعداد قطعه ی موردنیاز مشتری به جدول موقت Pro_Allocative انجام شد میشود از این جدول کوئری نوشت که  با توجه به Pro_Itm_ID کانت تعداد True ها در فیلد Pro_Itm_Pos  را بدست آورد و در شرط کانت هم  با Dcount تعداد متریال های ساخت یک قطعه را با توجه به کد قطعه از جدول Pro_Requirement بدست آورد ... فرض کنید تعداد متریال مورد نیاز کد قطعه ای 4 آیتم باشد ( از جدول Pro_Requirement با توجه به فیلد Pro_Itm_CD استخراج می شود ) در جدول موقت اگر تعداد هر آیدی قطعه برابر 4 بود با توجه به شرط True بعنوان یک قطعه ی کامل در نظر گرفته میشود و می توانید با Dcount در همین Pro_Itm_ID تعداد آیدی ها را بدست آورد و در نتیجه خواهید فهمید چند قطعه ی کامل برای مشتری قابل ساخت است از تعداد چیزی که سفارش داده . بعدا میتوانید با کوئری دیگری کسری های متریال در Id قطعاتی که کانت آنها با توجه به شرط True مخالف کانت متریال در جدول Pro_Requiremenr است را بدست آورید.



قدم اول در هنگام اجرای باتن  پاک کردن :

  ("db.Execute ("Delete from Pro_Allocative

قدم دوم لوپ به تعداد فیلد Pro_Itm_Qty  که 15 هست :

For i = 1 To15

("db.Execute ("Append_To_Allocative

Next











طبق کوئری 3 تعداد 8 قطعه آماده ی ساخت و تحویل به مشتریست   Expr2  حاصلضرب Pro_Itm_qty متریال قطعه در تعداد تحویلی که 8 است Expr1 







زمانیکه از Allocate متریال یا متریال هایی برای قطعه کد  موردنظر مشتری اطمینان حاصل کردید حتی اگر  یک قطعه ی کامل  باشد و کارفرما هم در صورت عدم تامین سایر تعداد این قطعه کد رضایت داشته باشد در اینجا شما باید با داکیومنت نامبری خروج مواد را صادر و به جدول Pro_Entry ( محل  ثبت ورود متریال و خروج متریال مورد نیاز قطعه کد مشتری ) بفرستید با یک کوئری اپند دیگر که شماره داکیومنت فرضا میشود آخرین شماره ی ثبت شده در تیپ Exit در همین جدول باضافه ی یک ،  برای اینکار هم از تعداد آیدی کد قطعاتی که متریال آنها کامل شده در تعداد موردنیاز متریال آن قطعه کد در جدول Pro_Requirement استفاده می کنید.




طبق جدول Pro_Allocative در بالاتر قطعه کد 120 تعداد 7 قطعه کامل و آماده ی ساخت است و قطعه کد 8 تا 15 درمتریال D کسرس دارند که جمع کل کسری 50 قطعه است