فرمتای مختلف فایلها را سرچ کنید
فرمتای مختلف فایلها را سرچ کنید
اینم نمونشو قبلا دوستان گذاشتند
باز یابی پسورد فایلهای MDB(اکسس)توسط خود اکسس
متاسفانه فایلی که در دست من است MDA میباشد اما ارزش نگاه کردنش داره(باید ببخشید)
البته من یه ماژول پیدا کردم.چکش کنیدنوشته شده توسط FazaeliFunction Undo()
Dim db As DAO.Database, strTablename As String
Dim i As Integer, StrSqlString As String
Set db = CurrentDb()
For i = 0 To db.TableDefs.Count - 1
If Left(db.TableDefs(i).Name, 4) = "~tmp" Then
strTablename = db.TableDefs(i).Name
StrSqlString = "SELECT DISTINCTROW [" & strTablename & _
"].* INTO MyUndeletedTable FROM [" & strTablename & "];"
DoCmd.SetWarnings False
DoCmd.RunSQL StrSqlString
DoCmd.SetWarnings True
MsgBox "A table has been restored as MyUndeletedTable", _
vbOKOnly, "Restored"
GoTo Exit_Undo
End If
Next i
MsgBox "No Recoverable Tables Found", vbOKOnly, "Not Found"
Exit_Undo:
Set db = Nothing
Exit Function
Err_Undo:
MsgBox Err.Description
Resume Exit_Undo
End Function
جالبه یه نگاه بهش بندازید
منوی زیر را بررسی کنید نکات جالبی داره
برنامه ای جالب برای Backup گیری از فایلهای MDBبا استفاده از امکانات اکسس
موس را برروی مربع ها حرکت دهید خیلی جالبه
البته کامل نیست اما بعنوان یک ایده می تونه خوب باشه
sarrasid.zip
جهت تکمیل و بررسی این برنامه ، دوستان در ادرس زیر در حال فعالیت می باشند
https://barnamenevis.org/showthread.php?t=53985
اینم ببینید لیست پرینتر ها رو نشون میده و می تونید انتخاب کنید و به عنوان Set Defualt دستگاه بشه
توصیه میکنم حتما ببینید چون برای خودم که خیلی جالب بود
*****************************
سلام دوستان . این برنامه کتابخونه هست که نوشته شده ( البته به کمک بچه های همین تالار)
لطفا نظر خودتون رو هم بگین . ممنون .
موفق باشین ...
خیلی جالب اونو در یه شاخه کپیش کنید بعد در VBبالا میاد کافیه F5رو بزنید تا فرم ایجاد بشه
با تشکر
م.فضائلی
دوست عزیز فایل MDE ارزش علمی برای دوستان نداره چون فقط میشه اونو ویو کرد
(واقعاً ببخشید)
آیا تابحال که این همه برنامه و نرم افزار ایجاد کرده اید به فکر ایجاد یک فایل راهنما برای نرم افزار خود در قالب همان برنامه خود بوده اید ؟
این برنامه را ببینید...
شاید هم قبلاً دیده باشید...
ابتدا این کدها را در یک ماژول کپی کنید
Option Compare Database
Private Const GWL_EXSTYLE = (-20)
Private Const GWL_STYLE = (-16)
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H80000
Private Const HWND_TOP = 0
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) _
As Long
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long
Sub HideAccessCloseButton()
Dim lngStyle As Long
lngStyle = GetWindowLong(hWndAccessApp, GWL_STYLE)
lngStyle = lngStyle And Not WS_SYSMENU
Call SetWindowLong(hWndAccessApp, GWL_STYLE, lngStyle)
Call SetWindowPos(hWndAccessApp, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_DRAWFRAME)
End Sub
در مرحله بعد یک فرم ایجاد کرده و کاماند باتن روی فرم گذاشته و کد زیر را بنویسید
HideAccessCloseButton
ببخشید میشه یک توضیح کوچولو از کد بالا داشته باشید من بعد از اجرا غیر از برداشته شدن علائم مینیمایز و ماکزیمایز و کلوز از پنجره اصلی اکسس چیز دیگه ای ندیدم - با تشکرنوشته شده توسط kamran kamrani
خیلی جالبه حتماً ببینیدش کار با اشیائ اکسس
استفاده ازخاصیتDrag And Drop(کشیدن و انداختن)
لطفاً دو فایل زیپ را در دکستاپ اکسترک کنید بعد like filesرا اجرانمایید
حتماً بررسی نمایید جالبه
با سلام خدمت دوست خوبمنوشته شده توسط mohsenna30ri
همانطور که ملاحظه کردید پنهان کردن دکمه های مینیمایز و ماکزیمایز و کلوز از پنجره اصلی دیتا بیس بود و کار دیگری هم بغیر از این انجام نمیده ...
حالا قبلاً شما میتوانستید این کار را انجام بدهید ؟
ولی حالا ... چرا درسته ؟
متشکرم
یه نگاه به فایل پیوست بکنین خیلی ساده است ولی ارزش یه بار نگاه کردنش داره
http://www.accessforums.net/
و
http://www.accessvba.com/forums
و
http://www.oooforum.org
و
http://www.vb123.com
و
http://forum.avantbrowser.com/
و
http://mdbmakers.com
و
http://www.access-programmers.co.uk/forums/
اکثر منابع مورد استفاده من است البته باز چک میکنم اگر چیزی از قلم افتاده بود100% برای دوستان عزیزم میفرستم
امید است مورد استفاده دوستان قرار گیرد
با عرض شرمندگی
م.فضائلی
اکثر برنامه هایی که آقای فضائلی زحمت کشیده و در اینجا آپلود میکنن مثالهای اکسس هستن و نویشنده اونا اگه بخواد کپی رایتی اعمال کنه مطمئن باشین سورس رو در اختیار قرار نمیده و نهایتا به شرحی از خودش در اون برنامه اکتفا میکنه . خود آقای فضائلی هم فکر نمیکنم ادعایی مبنی بر مالکیت اینگونه نرم افزارها داشته باشن و فقط با آپلود اینگونه نرم افزارها سعی در گسترش توانمندی برنامه نویسان اکسس دارن شرمنده که من از طرف آقای فضائلی این نوشته ها رو نوشتم پس سعی کنیم با سپاسگزاری از این حرکت ایشون مرجعی محکم برای مراجعات سایر برنامه نویسان ایجاد کنیم . یه چند تا پست از دوستان هم بدلیل اینکه سمت و سوی مطلب رو عوض میکرد پاک شد تا بدین طریق یاد بگیریم که فقط کمک کنیم این مرجع . محتوا بیشتری داشته باشه.
با آرزوی موفقیت برای همه دوستان
صارمی
منی که نام شراب از کتاب می شستم
زمانه کاتب دکان می فروشم کرد.
با تشکر از آقای صارمی وعرض پوزش از تمام دوستان
میخوام بگم اگر دنبال منابع و کندوکاو بیشتر هستید لینک زیر را کلیک کنید مطالب خوبی رو پیدا میکنید
کلیک کنید
ممنون
م.فضائلی
ازاسمش معلومه
------------------------------
فرزندهنرباش نه فرزندپدر
فرزندهنرزنده کندنام پدر
------------------------------
فرزندهنرباش نه فرزندپدر
فرزندهنرزنده کندنام پدر
این برنامه را همین الان دانلود کردم... وبه همین صورت آپلود کردم...
utteraccess
به بهانه یکصدمین تایپینگم تقدیم به دوستان برنامه نویس!
--------------------------------------------------
فرزندهنرباش نه فرزندپدر
فرزندهنرزنده کندنام پدر
باتشکر اگه در مورد توابع یا عملگرها نمونه داره لطفا کاتگوریش رو بفرمائید چون نتونستم پیدا کنم یا اینکه نمونه های دیگه درمورد کاربرد توابع توی اکسس اگه سراغ دارید بفرمائید ممنون میشمنوشته شده توسط samaneh_h
سلام
احساس می کنم قسمت اکسس حال و هوای حدوداً یک ماه پیش رو نداره
هی...!