برنمه اماده اگسس . ورژن 64 بیتی

[rostamani68]

برنامه مدیریت فروشگاه و صدور فاکتور ورژن V.3
http://s9.picofile.com/file/8364997826/Setup_psoft_V3.zip.html
نکت مهم : برنامه با ورژن افیس 64 بیتی نوشته شده و اجرا میشود
برای ورود به برنامه
نام کاربری : payam
رمز ورود : 123

http://s9.picofile.com/file/8364997826/Setup_psoft_V3.zip.html


دوستان سوالی در باره برنامه دارن تماس بگیرن : 09358999671
واتساپ و تلگرام هم دارم با همین خط

[hassan amirir]

سلام ممنون بابت برنامه خوبتون که در اختیار همه گذاشتید خیلی خوش سلیقه و زیبا طراحی شده

اگر امکانش رو دارید قمست پیامهاش رو توضیح بدید چطور شخصی سازی کردید که بجای پیامهای خود اکسس این فرمهای زیبای پیام باز میشه
و اگر امکانش رو دارید این قسمت رو نمونه کد باز بگذارید خیلی لطف می کنید

[rostamani68]

خواهش دوست عزیز .اگر از محیط و کارایی برنامه خوشت اومد ورژن 4 برنامه رو دارم مینویسم با امکانات و محیط کاربری قوی و زیباتر که در سایت قرار میدم برای دانلود

و درباره سوالتون اینکه چطور فرمی باز میشه به عنوان هشدار یا پیامرسانی
به زبان ساده این میشه که ارور یا الارم خود اکسس رو پنهان میکنیم
و به جاش یه فرمی که خودمون طراحی کردیم رو فراخانی میکنیم
نمونه کد و آموزش تصویری شو برات اماده میکنم ومیفرستم

[hassan amirir]

سلام ممنون از لطفت
بیصبرانه منتظر ورژن جدید هستیم و با اجازتون برنامه رو به دوستم دادم و الان داره برا استفاده مغازه اطلاعات رو وارد میکنه

[rostamani68]

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

[hassan amirir]

ممنون
انشالا

[rostamani68]

اینم از اموزشی که قولش رو داده بودم

اموزش ساخت پیغام شخصی در اکسس
https://www.aparat.com/v/bRPkn

[hassan amirir]

سلام
خیلی خیلی ممنون
یه سوال یه نمونه کامل از حطاهای اکسس که بفارسی باشن وجود نداره؟ تو همین سایت یه نمونه دیدم که یه جدول ارور درست کرده بودن از همه خطاهای اکسس و یه کد تو قسمت ارور فرم وجود داشت که هر خطایی بوجود می اومد پیغام رو فارسی و انگلیس میداد ولی پنجرش همون پیشفرض اکسس بود یه ماژول هم هست که اگر تو اون نمونه استفاده کنیم کلیدهای پنجره پیام رو فارسی نشون میداد که اگر این دو باهم استفاده میشدن یه نمونه خوب و کامل بود ولی مشکلی که داشت اون ماژول تو آفیس 64 بیتی کار نمیکرد سوالم اینه آیا میشه این فرم شما رو تو طراحی کرد که برای همه خطاها و پیامها باشه و نه فقط پیامهای حذف و یا پیامهای که خوودمون میذاریم پیامهای غیر منتطره که پیش میاد رو هم به همین گرافیکی که شما استفاده کردی نشون بده

ببخشید طولانی شد
شما برا خودتون همچین کاری کردید تو برنامه هاتون و اصلا شدنیه ؟

[rostamani68]

بله میشه.هم میشه ماژول رو مخصوص 64 بیتی نوشت. هم اینکه میتونیم همین فرمی که طراحی کردم رو در تمامی ارور ها یا الارم ها فراخانی کنیم.
ولی بهتره که ارورهای خود اکسس رو مخفی کنیم
یه مثال ساده تو بخش پیگیری تغییرات در فرمها اگر الارم خود اکسس باز باشه به مشکل میخوریم. چون تو قسمت الارمش از کاربر سوال میکنه و میگه که تغییرات شما در یه فیلد دیگه ذخیره شود?
اینجاست که پیگیری در برنامه ای که مینویسی کلا منتفی میشه
به نظر من بهترین و مهمترین گزینه در برنامه نویسی فروشگاهی بخش پیگیری اونه
البته بازم نظر خودتون مهمه این یکی از مشکلاتش بود
تو برنامه جدیدم که دارم مینویسم بخش پیگیریش رو هم تو قسمت معرفی برنامه توضیح میدم که ببینید چقدر مهمه .

[hassan amirir]

سلام دوست عزیز
خیلی خیلی ممنون از پاسخگ.یی و وقتی که برای کمک به دیگران میدارید خدا خیرتون بده

[hassan amirir]

سلام مجدد
این اونم مازول هست تو 32 بیت مشکل نداره ولی 64 بیت مشکل داره اگر لطف کنید یه نگاهی بهش بندازید ممنون میشم


Option Compare Database

Option Explicit


Private Const WH_CBT = 5
Private Const GWL_HINSTANCE = (-6)
Private Const HCBT_ACTIVATE = 5


'UDT for passing data through the hook
Private Type MSGBOX_HOOK_PARAMS
hwndOwner As Long
hHook As Long
End Type


'need this declared at module level as
'it is used in the call and the hook proc
Private MSGHOOK As MSGBOX_HOOK_PARAMS


Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long


Public Declare Function GetDesktopWindow Lib "user32" () As Long


Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long) As Long


Private Declare Function MessageBox Lib "user32" _
Alias "MessageBoxA" _
(ByVal hwnd As Long, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal wType As Long) As Long

Private Declare Function SetDlgItemText Lib "user32" _
Alias "SetDlgItemTextA" _
(ByVal hDlg As Long, _
ByVal nIDDlgItem As Long, _
ByVal lpString As String) As Long

Private Declare Function SetWindowsHookEx Lib "user32" _
Alias "SetWindowsHookExA" _
(ByVal idHook As Long, _
ByVal lpfn As Long, _
ByVal hmod As Long, _
ByVal dwThreadId As Long) As Long

Private Declare Function SetWindowText Lib "user32" _
Alias "SetWindowTextA" _
(ByVal hwnd As Long, _
ByVal lpString As String) As Long


Private Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long

Public Function MsgBoxFa(Prompt, Optional Buttons As VbMsgBoxStyle = vbOKOnly, Optional Tiltle = "", Optional HelpFile, Optional Context) As Long


'Wrapper function for the MessageBox API
Dim hwndThreadOwner As Long
Dim frmCurrentForm As Form
Set frmCurrentForm = Screen.ActiveForm


hwndThreadOwner = frmCurrentForm.hwnd


Dim hInstance As Long

Dim hThreadId As Long
Dim hwndOwner As Long
hwndOwner = GetDesktopWindow()
hInstance = GetWindowLong(hwndThreadOwner, GWL_HINSTANCE)
hThreadId = GetCurrentThreadId()


With MSGHOOK
.hwndOwner = hwndOwner
.hHook = SetWindowsHookEx(WH_CBT, _
AddressOf MsgBoxHookProc, _
hInstance, hThreadId)
End With




MsgBoxFa = MessageBox(hwndThreadOwner, Prompt, Tiltle, Buttons)


End Function




Public Function MsgBoxHookProc(ByVal uMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

If uMsg = HCBT_ACTIVATE Then

SetDlgItemText wParam, vbYes, "Èáå"
SetDlgItemText wParam, vbNo, "뒄"
SetDlgItemText wParam, vbIgnore, "áÛæ"
SetDlgItemText wParam, vbOK, "ÊÇííÏ"

UnhookWindowsHookEx MSGHOOK.hHook

End If

MsgBoxHookProc = False


End Function

[hassan amirir]

تو این قسمت ایراد میگیره


With MSGHOOK .hwndOwner = hwndOwner
.hHook = SetWindowsHookEx(WH_CBT, _
AddressOf MsgBoxHookProc, _
hInstance, hThreadId)
End With

[rostamani68]

بفرما دوست عزیز

اینم ماژول مخصوص 64 بیتی

[hassan amirir]

خیلی مردی ممنون

[hassan amirir]

سلام باز هون مشکل قبل رو داره

150437

[rostamani68]

از with تا endwithرو کلا پاک کن

یه سرم به پست جدیدم بزن


http://barnamenevis.org/showthread.php?556217-%D9%BE%DB%8C%D8%B4-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%85%D8%AF%DB%8C%D8%B1%DB%8C%D8%AA-%D9%81%D8%B1%D9%88%D8%B4%DA%AF%D8%A7%D9%87-%D9%88-%D8%B5%D8%AF%D9%88%D8%B1-%D9%81%D8%A7%DA%A9%D8%AA%D9%88%D8%B1 (http://barnamenevis.org/showthread.php?556217-%D9%BE%DB%8C%D8%B4-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%85%D8%AF%DB%8C%D8%B1%DB%8C%D8%AA-%D9%81%D8%B1%D9%88%D8%B4%DA%AF%D8%A7%D9%87-%D9%88-%D8%B5%D8%AF%D9%88%D8%B1-%D9%81%D8%A7%DA%A9%D8%AA%D9%88%D8%B1)

[hassan amirir]

پاک کردم ولی باز اجرا نمیشع

[rostamani68]

والا چون من خودم تزش استفاده نمیکنم باید عیب یابیش کنم.باید با برنامه انیدسک وصل بشم به سیستمت
بیا واتساپ پی ام بده راهنماییت کنم
09358999671

[sanazfallah]

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

[sanazfallah]

سلام
برنامه خوب و قشنگیه ولی اگر کار خودتون بود بهتر بود شما اومدی این برنامه رو از سایت https://officebaz.ir/
آقای بحری گرفتی یکم رنگ و دوسه تا ایکون رو عوض کردی به اسم خودت زدی حتی سایتت هم کامل برنامه های آقای بحری یا کسای دیگه است که گذاشتی برا فروش نه از لحاط اخلاقی و نه شرعی درست نیست و حرامه اینکارتون درسته شما یه ار پول دادی و خریدی ولی این اجازه رو نداشتی که بنام خودت بزنی و دوباره بفروشی

اینجاهم فقط اومدی برا تبلیغات سایت خودت

مدیران گرامی سایت و ادمین ها هم متاسفانه سرشون شلوغه که بشما اجازه سوعاستفاده از این سایت که اهداف خوب و خیرخواهانه داره رو دادن

خجالت بکش برادر

[rostamani68]

سلام
برنامه خوب و قشنگیه ولی اگر کار خودتون بود بهتر بود شما اومدی این برنامه رو از سایت
https://officebaz.ir/
آقای بحری گرفتی یکم رنگ و دوسه تا ایکون رو عوض کردی به اسم خودت زدی حتی سایتت هم کامل برنامه های آقای بحری یا کسای دیگه است که گذاشتی برا فروش نه از لحاط اخلاقی و نه شرعی درست نیست و حرامه اینکارتون درسته شما یه ار پول دادی و خریدی ولی این اجازه رو نداشتی که بنام خودت بزنی و دوباره بفروشی

اینجاهم فقط اومدی برا تبلیغات سایت خودت

مدیران گرامی سایت و ادمین ها هم متاسفانه سرشون شلوغه که بشما اجازه سوعاستفاده از این سایت که اهداف خوب و خیرخواهانه داره رو دادن

خجالت بکش برادر


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

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

اینم جلسه اول برنامه نویسی که به صورت رایگان از 0 تا 100 برنامه رو عرضه کردم

دانلود بخش اول به صورت رایگان
(https://www.aparat.com/v/4nWsv)
تمامی بخش ها برنامه با صدای خودم و آموش تصویری رو در کانال خودم قرار دادم

توجه: برای همینه از اینجور شخصیتها مثل شما خوشم نمیاد علتش اینه برای همین جلسه اول ساخت همین برناممو به صورت رایگان قرار دادم

که ببینین خودتون از این نتیجه گیری سریح که کردین خجالت بکشین

[rostamani68]

به کسانی میگن کپی میکنی که نسخه متن باز رو خریداری میکنن و به نام خودشون تغییر میدن و میفروشن که این کار حرام و کلا درست نیست

من تمامی بخشهای برنامه رو فیلم گرفتم با صدای خودم

از کد نویسی تا طراحی برنامه .


شما از طرف کی اومدین که منو بد کنین و برین . من تمام دانشم رو تو این سایت به صورت رایگان در اختیار دوستان قرار میدم . به اون شخصی که شمارو فرستاده که فقط اومدی عضو شدین 3 تا پست گذاشتین که فقط درباره منه .درست نیست این کار

از مدیران خواهش دارم که جلوی همیچین ادمایی که زود تصمیم میگیرن ویا اینکه میخوان بگن بلدن بلدن رو بگیرن

منونم