نمونه های کاربردی و آموزشی VBA

نقل قول:

---

نوشته شده توسط Power_User

جناب biotechsoft سلام ،
با تشکر از جنابعالی ، فایل فوق از سایت 4Shared قابل دانلود نیست . لطفاکنترل فرمائید . در صورت امکان در خود سایت آن را ضمیمه نمائید تا همه بتوانند از این مجموعه استفاده نمایند .
با تشکر

---

با سلام
بنده هم امتحان كردم متأسفانه نمونه ها قابل دانلود نيستند

برنامه ای که دوست عزیزمون برای صندوق قرض الحسنه فامیلی(به قول خودشون رایگان) نوشتن بعد از مدتی کار کردن کد فعالسازی می خواد که باید برای اون 95000توامن ناقابل بپردازین
در غیر این صورت تمام اطلاعاتتون رو هواست..من قبلا از این نرم افزار استفاده کردم چوبشو خورم
Biotechsoft عزیز این کاراتو نکن تو این سایت یک عده بی ریا به هم کمک میکنن از برنامه های کاربردی که برای دانلود گذاشتی فهمیدم خودت هم همه چیز رو از این سایت باحال یاد گرفتی
در ضمن عیدت مبارک:تشویق:

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

به نظر من اکسس فوق العادست.
من نه ماهه دارم برنامه ایی با اکسس می نویسم.حدود 130 فورم و 32 تا تیبل و کلی ریپورت و کوئری داره.اصلا هم کسی که باهاش کار می کنه نمی تونه تشخصی بده این اکسس هست یا یه نرم افزار دیگه.حتی منوی تنظیمات داره که میشه خیلی از قسمت های برنامه رو تنظیم کرد و در صورت نیاز تغیرر داد و یا 500 عمل آخری که توی برنامه کاربر انجام میده رو توی لوگ خودش ذخیره می کنه. تا الان هم سر جمع توی کل تیبل هاش حدود 7500 تا تا الان رکورد ذخیره شده.همه تکس هابکس ها و فرم ها هم به صورت unbound هستن
واقعا اکسس حرف نداره

جناب Profesorjd عزیز
خیلی از این حرکت دوستمون ناراحت شدید . البته مشخصه که هدف ایشون تیلبغات و فروش برنامه حسابداری خودشونه البته اگر درست کار کنه
مطمئنا همون طور که شما هم فرمودید برنامه های خیلی بهتر و کاربردی تر و رایگان نیز در دسترس میباشد که هر کس مایل است از اونها استفاده کنه
من یک نمونه را در این قسمت قرار میدم که البته کار من نیست و من یک تغییرات جزئی توش دادم
ضمنا کاملا باز هستش و صاحبش هم اجازه انجام تغییرات رو داده رمز برنامه هم 123 است
http://www.up.98ia.com/images/m51i7m4fxlut88ybimxh.rar

یا از اینجا
http://uploadkon.ir/uploads/bfeec15f...4dd0a8e0ec.rar

با سلام
آقای قربانی این غیر فعال و فعال کردن کلید شیفت رو من اصلا نفهمیدم . شما می تونید توی این زمینه قدم به قدم من راهنمایی بکنید؟
با تشکر

سلام دوستان.
در اینجا:
https://barnamenevis.org/showthread.p...86#post1509986
یه سوالی راجع به همین موضوع دارم لطفا جواب بدید. خسته شدم

در این فایل عملیات مختلف و جالبی مربوط به صادر و وارد کردن فایل اکسس را گنجاندم.
منبع کدها از سایت های مختلف داخلی و خارجی هست. برای یک پروژه نیاز داشتم و پس از جستجوی فراوان هر کدوم از اونها را پیدا کرده و اصلاح کردم. امیدوارم برای دوستان عزیز مفید باشد.
از اساتید محترم هم خواهشمندم به کاملتر شدن اون کمک کنند.
1- صادر کردن جداول با فرمت های متن و Html و اکسل
2- خواندن گزارش ها فرم ها و ... از فایل دیگر
3- وارد کردن گزارش ها، فرم ها و ... از فایل دیگر
4- بازیابی جداول از طریق فایل اکسلی که در مورد 1 صادر شده است.

به نام خدا
با سلام و تشكر ازفايل تان. در ضمن يك جوابكي هم به آن مطلب تان داده ام. نگاهي بفرماييد.

سلام بر مهندسین عزیز

من Vba اکسس رو تقریبا میدونم چیه ولی اخیرا سر یک موضوع کوچیک گیر کردم و اوون اینه که در دیتا بیس اکسس فیلد از نوع attachment دارم که عکس آپلود کردم ولی با vba نمیتونم مقادیر رکوردهارو در image control نشون بدم.
کسی میدونه راه کارش چی هست؟

سلام
با توجه به تايپيك شماره 22 مي خواستم در صورتي كه ركوردهاي سابفورمم صفر بود (سابفرم نتيجه يك كوئري ميباشد) مقدار يك تكس باكس در فرم را صفر كند در غير اينصورت مقدار تكس باكس برابر كانت سابفرم شود مثلا اگر 10 ركورد داشت تكس باكس عدد 10 را نشان دهد و اگر خالي بود عدد صفر را نشان دهد
با تشكر

نقل قول:

---

نوشته شده توسط mahdytaherian

سلام
با توجه به تايپيك شماره 22 مي خواستم در صورتي كه ركوردهاي سابفورمم صفر بود (سابفرم نتيجه يك كوئري ميباشد) مقدار يك تكس باكس در فرم را صفر كند در غير اينصورت مقدار تكس باكس برابر كانت سابفرم شود مثلا اگر 10 ركورد داشت تكس باكس عدد 10 را نشان دهد و اگر خالي بود عدد صفر را نشان دهد
با تشكر

---

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

Private Sub Form_Load()

    Me.ocxWebBrowser.Object.Navigate CurrentProject.Path & "\NamePicture.gif"

End Sub

Private Sub ocxWebBrowser_NavigateComplete2(ByVal pDisp As Object, URL As Variant)

    Me.ocxWebBrowser.Object.Document.Body.Scroll = "no"

 End Sub

 

تذکر:
بجایNamePictureنام تصویر متحرک خود را وارد نمائید.
تصویر متحرک هم باید در کنار برنامه باشد.
موفق باشید

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

http://www.fardanesh.ir

سلام کسی میتونه اینو انجام بده
سلام
یک نمونه برنامه انبارداری از آقای عطا امینی کابر همین سایت رو دراینجا گذاشتم با اجازه آقای امینی چندتا سوال داشتم اگه از عزیزان کسی میتونه تغییراتو روش انجام بده . رمز برای کاربر عطا امینـﮮ ™ : 7086
دوستانی که از 2007 و بالاتر استفاده می کنند منوهای برنامه در Add-Ins قابل دستیابی می باشد. بازدن کلید f11
1- در تب انبارداری-تعریف کالا دو فیلد (تکست باکس) دیگر اضافه شود یکی عمرانباری(مدت زمان نگهداری در انبار) و دیگری عمر خدمتی(مدت زمانی که یک جنس می تواند کار کند) که این دو فیلد وقتی کالای جدید تعریف می شود توسط کاربر وارد شود.به ماه باشد مثلا عمر انباری یک پیچ 120 ماه و عمر خدمتیش 80 ماه
2- در تب تولید/ورود کالا یک تکس باکس اضافه شود که تاریخ تولید کالا را بتوان وارد کرد (تاریخی که روی جنس نوشته میشود توسط کارخانه)
3- در تب گزارشات یه لیست تنظیم شود که تاریخ انقضا کالا را نشون دهد بدین صورت که تاریخ تولید را به عمر انباری اضافه کند و به صورت شمسی تاریخ انقضا را نشان بدهد.
4- اگر در تب ورود کالا یک جنس به تعداد ده عدد خواستیم وارد کنیم به طوری که این ده جنس ده سریال مختلف دارن اگر بخواهیم ده سریال را وارد کنیم چگونه وارد کنیم باید یک فیلد ساخته شود؟بعد ده تا را چگونه وارد کنیم.
عزیزان هرکسی میتونه تغییراتو انجام بده اصلاح شده رو بزاره تو سایت واسه استفاده همه ، خودم زیاد وارد نیستم لطفا خودتون کاملش کنید
با تشکر از تمامی دوستان
لینک دانلود برنامه اینجا گذاشتم
https://barnamenevis.org/attachment.p...8&d=1421185291
https://barnamenevis.org/attachment.p...9&d=1421185303

کسی نمیتونه کمک کنه
من خودم ابتدا تو جدول کالاها دوتا فیلد ساختم با نام عمر انباری و عمر خدمتی ..و بعد در فرم معرفی کالا این دو فیلد رو اضافه کردم اما مشکلی وجود داره که اطلاعاتی که وارد میکنم در اخر میخوام فرمو ببندم پیام میده که the primarycode cannot null در صورتی که این دو فیلد پریمری نیستند و نام کالا پریمری می باشد و در ضمن هرچی تو تین دو فیلد وارد کردم در فرم داخل جدول نیومده چرا؟؟؟

در قسمت انبارداری- تعریف کالا یک کالای جدید که اضافه میکنم و مدت زمان نگهداریش رو هم وارد میکنم موقع بستن فرم این ارور میده idex or primry key cannot contain a null value
در صورتی که اگر مدت زمان نگهداری رو وارد نکنم یعنی خالی بمونه موقع بستن هیچ اروری نمیده

http://s6.picofile.com/file/8266945500/anbar1.rar.html

بخشید نتونستم بفرستمش اینجا لینک دانلودشو گذاشتم
ممنون

نمونه هایی از جدول را میتونین توی لینک زیر ببینید

سه راهی گازی

سلام دستور ایجاد رکورد جدید در vb می خواستم
لطفا راهنمایی نمایید

سلام
کدی هست که اگه کاربر رکوردی رو تغییر داد یا حذف کرد توی یک تیبل دیگه تغییرات را ثبت کنه
(در واقع تمامی فعالیت های کاربر رو ثبت کنه)

کدی برای قفل نمودن سلول های حاوی فرمول در اکسل
منبع :https://softpluse.ir/

With ActiveSheet

خارج کردن شیت جاری از حالتprotect ‘
.Unprotect
غیر فعال کردن قفل تمام سلول ها ‘
.Cells.Locked = False
تنظیم قفل سلول های دارای فرمول’ .Cells.SpecialCells(xlCellTypeFormulas).Locked = True.Protect AllowDeletingRows:=True

سلام
ار بخواهیم بعد از ذخیره فرم بسته بشه،docmd.close را در کدام خط باید بنویسیم؟

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

https://officebaz.ir/unicode/

سلام
وقت دوستان بخیر
سوال مهمی دارم اگر امکانش هست راهنماییم کنید:
کدی دارم که به وسیله آن در اکسس و از طریق وب سرویس امکان ارسال پیامک دارم.
شخصا در بخش vba توانمند نیستم، اما تونستم این کد رو برای یک دکمه تنظیم کنم و از مقدار فیلد "تلفن همراه" در فرم جهت ارسال پیامک استفاده کنم. مشکلم در بخش متن این پیامک هست که باید در کدنویسی تغییر بدم. یعنی باید متن ثابتی باشه و از فیلد "نام" فرم در متن استفاده بشه. بطور مثال: مشترک گرامی "نام"
با سلام....
چند هفته ای هست که امکان استفاده از وب سرویس پیامک در اکسس رو دنبال می کردم و دیگه ناامید شده بودم و میخواستم برم سراغ برنامه های روز، اما با این پیشرفتی که داشتم خیلی امیدوار به اکسس شدم و سعی دارم این تجربه رو هم انتقال بدم.
اگر در این مورد راهنمایی کنید ممنون میشم.
با سپاس از متخصصین این حوزه

سلام
وقت دوستان بخیر
سوال مهمی دارم اگر امکانش هست راهنماییم کنید:
کدی دارم که به وسیله آن در اکسس و از طریق وب سرویس امکان ارسال پیامک دارم.
شخصا در بخش vba توانمند نیستم، اما تونستم این کد رو برای یک دکمه تنظیم کنم و از مقدار فیلد "تلفن همراه" در فرم جهت ارسال پیامک استفاده کنم. مشکلم در بخش متن این پیامک هست که باید در کدنویسی تغییر بدم. یعنی باید متن ثابتی باشه و از فیلد "نام" فرم در متن استفاده بشه. بطور مثال: مشترک گرامی "نام"
با سلام....
چند هفته ای هست که امکان استفاده از وب سرویس پیامک در اکسس رو دنبال می کردم و دیگه ناامید شده بودم و میخواستم برم سراغ برنامه های روز، اما با این پیشرفتی که داشتم خیلی امیدوار به اکسس شدم و سعی دارم این تجربه رو هم انتقال بدم.
اگر در این مورد راهنمایی کنید ممنون میشم.
با سپاس

نقل قول:

---

نوشته شده توسط مهدی قربانی

با این کد ساده شما قادر هستید بدون استفاده از Navigation Bar خود اکسس یک شمارشگر رکورد رو در فرمتون به نمایش بگذارید .
یک Text Box در فرم مورد نظر ایجاد کنید و نام اونرو txtRecordCounter بگذارید و کد زیر رو در رویه On Current فرم کپی کنید :

Dim rst As DAO.Recordset

    Dim lngCount As Long



    Set rst = Me.RecordsetClone



    With rst

        .MoveFirst

        .MoveLast

        lngCount = .RecordCount

    End With

    

    Me.txtRecordCounter = "رکورد" & Me.CurrentRecord & " از " & lngCount

ضمناً فراموش نکنید اگر در References وی بی ای ، گزینه Microsoft DAO 3.6 Object Library چک نخورده حتماً فعالش کنید .

---

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

https://barnamenevis.org/image/png;b...AAAElFTkSuQmCC




https://barnamenevis.org/image/png;b...AAAElFTkSuQmCC

ضمیمه 155068 سلام لطفا راهنمایی فرمائید

با سلام : در تصویر بالا می خواهم هر وقت frmsearch را اجرا می کنم در قسمت جستجوی آن مقدار عددی داخل Tbl_search و رکورد shenase قرار بگیرد.

تابعی که مقدار یک کلید دیکشنری در قالب استرینگ رو بر میگردون

Public Function get_value_by_keydic(ByVal strKeyValues As String, ByVal key As String) As String

Dim strArgument() As String

strArgument = Split(strKeyValues, ",")

Dim i As Integer



    For i = 0 To UBound(strArgument)

        If InStr(strArgument(i), key) And InStr(strArgument(i), ":") > 0 Then

            If Left(strArgument(i), InStr(strArgument(i), ":") - 1) = key Then

                get_value_by_keydic = Mid$(strArgument(i), InStr(strArgument(i), ":") + 1)

                Exit Function

            End If

        End If

    Next

    get_value_by_keydic = ""

End Function

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

Private Sub Command89_Click()

Dim strdic1 As String



strdic1 = "reza:20,ali:19,asghar:18,amir:17"

MsgBox "reza :" & get_value_by_keydic(strdic1, "reza")

MsgBox get_value_by_keydic(strdic1, "ali")

MsgBox get_value_by_keydic(strdic1, "asghar")

MsgBox get_value_by_keydic(strdic1, "amir")



End Sub

نقل قول:

---

نوشته شده توسط hosseinwww

سلام کسی میتونه اینو انجام بده
سلام
یک نمونه برنامه انبارداری از آقای عطا امینی کابر همین سایت رو دراینجا گذاشتم با اجازه آقای امینی چندتا سوال داشتم اگه از عزیزان کسی میتونه تغییراتو روش انجام بده . رمز برای کاربر عطا امینـﮮ ™ : 7086
دوستانی که از 2007 و بالاتر استفاده می کنند منوهای برنامه در Add-Ins قابل دستیابی می باشد. بازدن کلید f11
1- در تب انبارداری-تعریف کالا دو فیلد (تکست باکس) دیگر اضافه شود یکی عمرانباری(مدت زمان نگهداری در انبار) و دیگری عمر خدمتی(مدت زمانی که یک جنس می تواند کار کند) که این دو فیلد وقتی کالای جدید تعریف می شود توسط کاربر وارد شود.به ماه باشد مثلا عمر انباری یک پیچ 120 ماه و عمر خدمتیش 80 ماه
2- در تب تولید/ورود کالا یک تکس باکس اضافه شود که تاریخ تولید کالا را بتوان وارد کرد (تاریخی که روی جنس نوشته میشود توسط کارخانه)
3- در تب گزارشات یه لیست تنظیم شود که تاریخ انقضا کالا را نشون دهد بدین صورت که تاریخ تولید را به عمر انباری اضافه کند و به صورت شمسی تاریخ انقضا را نشان بدهد.
4- اگر در تب ورود کالا یک جنس به تعداد ده عدد خواستیم وارد کنیم به طوری که این ده جنس ده سریال مختلف دارن اگر بخواهیم ده سریال را وارد کنیم چگونه وارد کنیم باید یک فیلد ساخته شود؟بعد ده تا را چگونه وارد کنیم.
عزیزان هرکسی میتونه تغییراتو انجام بده اصلاح شده رو بزاره تو سایت واسه استفاده همه ، خودم زیاد وارد نیستم لطفا خودتون کاملش کنید
با تشکر از تمامی دوستان
لینک دانلود برنامه اینجا گذاشتم
https://barnamenevis.org/attachment....8&d=1421185291
https://barnamenevis.org/attachment....9&d=1421185303

---

سلام دوستان

من تاپیک مربوط به این برنامه رو پیدا نکردم
دوستان میتونن کمک کنند؟