'برای استفاده از کد ها فقط کافی است که آن را در یک ماژول کپی و پیست کنید
'This code was originally written by Ali Najari.
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.
'
'Code courtesy of
'Ali Najari
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
"SHGetPathFromIDListA" (ByVal pidl As Long, _
ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
"SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
As Long
Private Const BIF_RETURNONLYFSDIRS = &H1
Public Function BrowseFolder(szDialogTitle As String) As String
Dim X As Long, bi As BROWSEINFO, dwIList As Long
Dim szPath As String, wPos As Integer
With bi
.hOwner = hWndAccessApp
.lpszTitle = szDialogTitle
.ulFlags = BIF_RETURNONLYFSDIRS
End With
dwIList = SHBrowseForFolder(bi)
szPath = Space$(512)
X = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)
If X Then
wPos = InStr(szPath, Chr(0))
BrowseFolder = Left$(szPath, wPos - 1)
Else
BrowseFolder = vbNullString
End If
End Function
'*********** Code End *****************
ارسال روزانه لوازم و اسباب صفا
شما با عضویت در khafanijat میتوانید هر روز از ایمیلهای بسیار متنوعی که در موضوعات مختلف برای شما ارسال میگردد استفاده کنید ، درkhafanijat سعی شده تا تمام سلیقه ها در نظر گرفته شود و در تمام موضوعات ایمیل های جذاب ارسال گردد تا تمام اعضا راضی نگه داشته شوند .
با عضویت در khafanijat از آخرین اخبار روز ایران و جهان ، اخبار دنیای IT ، اخبار دنیای موسیقی و سینما و .. مطلع میشوید . همچنین برای شما به روزترین و زیباترین SMS ها در زمینه های جوک و مطالب خنده دار و SMS های عاشقانه و زیبا ارسال میگردد که میتوانید آنها را برای آن کسی که دوستش دارید ارسال نمایید .
برای طرفداران دنیای IT قسمتهای ویژه ای را در نظر گرفته ایم ، از معرفی آخرین سخت افزار ها و موبایل های روز دنیا گرفته تا معرفی بهترین نرم افزارهای موبایل و کامپیوتر ، معرفی بازی های رایانه ای ، آموزش ترفندهای ویندوز و .....
معرفی جدید ترین فیلمهای هالیوود ، معرفی و دانلود آخرین آلبوم های موسیقی ، معرفی و دانلود زیباترین موزیک ویدئوهای ایرانی و خارجی و همچنین آخرین مدل های لباس زنانه و مردانه از دیگر موضوعاتی است که برای شما ایمیل میشود .
و از همه مهم تر روزانه برای شما قشنگ ترین و خفن ترین عکس های خوانندگان و بازیگران ایرانی و خارجی ،عکسهای پارتی ها و کلی عکس توپ و دیدنی دیگه که هیچ جای دیگه پیدا نمیکنید ، رو براتون ایمیل میکنیم .
و اما تفاوت های khafanijat با سایر گروه های اینترنتی .
1 - بر خلاف سایر گروه ها که هر روز برای شما تعداد زیادی ایمیل ارسال میکنند و باعث پر شدن و شلوغ شدن فضای Inbox شما میگردند ، khafanijat برای شما روزانه تعداد کمی ایمیل ، ولی بسیار جذاب و مفید ارسال میکند .
2 - در khafanijat ایمیل های تبلیغاتی بسیار اندک ارسال میگردد ، بر خلاف گروه های دیگر که به طور متوسط نیمی از ایمیلهای ارسالی آنها را ایمیلهای تبلیغاتی تشکیل میدهد .
3 - برای khafanijat هیچ چیز مهم تر از کیفیت مطلب ارسالی نمیباشد ، یعنی به عبارتی فقط مطالبی برای شما ارسال میگررد که ارزش ارسال شدن داشته باشد ، اما در بعضی از گروه ها این اصل رعایت نمیشود
و اما مراحل عضویت در محبوب ترین گروه اینترنتی ایران khafanijat با ده ها هزار عضو ار سراسر دنیا :
برای عضویت به وبلاگ مراجعه کنید
سلام وبلاگ جالبی داری
میخواستم بدونم آیا راهی هست که بشه اعداد رو در اکسس ۲۰۰۷ به فارسی تایپ کرد؟
موفق باشی.
بله عزیز راهی هست برای این کار راهی هست
فقط کافی هست به property برید و قسمت format به آخر کار رفته و مقدار Numberal shapes رو national بگذارید
سلام دوست عزیز
عجب سایت خوبی داری من خیلی دلم می خواد اکسس را بهتر یاد بگیرم
از مطالب سایتتون حتما استفاده می کنیم.
سلام . من یه سوال داشتم : چه جوری می شه جدول یا هر عنصر دیگه از یه بانک اطلاعاتی رو به بانک اطلاعاتی دیگه ای فرستاد ُ طوری که هم داده ها انتقال پیدا کنن هم ساختار ؟
اگه جواب بدین ممنون می شم .