▓ Microsoft Access سوالات، مشكلات و مباحث در اینجا ▓

[k.attarzadeh]

با سلام و تشکر فراوان از محمد عزیز
ممنون از اینکه برای من وقت گذاشتی و من متوجه شدم که دستور filesearch در ورژن 2007 access نیست این موضوع منو از سردرگمی در آورد.من function را تغییر خواهم داد و تلاش می کنم ببینم با دستور dir می توانم زیر برنامه را باز نویسی کنم!!!اگر کسی function با دستور dir باز نویسی کرد متشکر می شوم که کد بگذارد تا من هم استفاده کنم.
استاد شما خیلی حرفه ای هستید و من به شما افتخار می کنم.

[ildirim80]

سلام
نرم افزاری هست که در خروجی فایل اکسس، اطلاعات رو بصورت کد شده ارائه میده مثل نمونه پایین، چطور می شه این اطلاعات رو تفسیر کرد.

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

با تشکر

[mohammad96]

با سلام و تشکر فراوان از محمد عزیز
ممنون از اینکه برای من وقت گذاشتی و من متوجه شدم که دستور filesearch در ورژن 2007 access نیست این موضوع منو از سردرگمی در آورد.من function را تغییر خواهم داد و تلاش می کنم ببینم با دستور dir می توانم زیر برنامه را باز نویسی کنم!!!اگر کسی function با دستور dir باز نویسی کرد متشکر می شوم که کد بگذارد تا من هم استفاده کنم.
استاد شما خیلی حرفه ای هستید و من به شما افتخار می کنم.

با سلام،

از لطف شما ممنونم

یه نمونش میتون این باشه:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

با سپاس!

[k.attarzadeh]

با سلام و تشکر و عرض خسته نباشید.

فايل ها موجود در 'yourfolderName يک پوشه دلخواه را بررسي مي کند و در صورت yourFileName وجود فايل دلخواه پيغام مناسب مي دهد.(در access 2007)

yourfolderName = "c:\"

yourFileName = "1234567890.txt"

Dim yfs, yf, yf1, yfc, ys

Set yfs = CreateObject("Scripting.FileSystemObject")

Set yf = yfs.GetFolder(yourfolderName)

Set yfc = yf.Files

Dim whatnamefile As String

For Each yf1 In yfc

whatnamefile = yf1.name

If whatnamefile = yourFileName Then

isfound = True

Exit For

Else

isfound = False

End If

whatnamefile = ""

Next

If isfound = True Then

MsgBox "I found the file."

Else

MsgBox "I can not found the file."

End If

[k.attarzadeh]

با سلام و تشکر از محبت شما.
پست قبلی من موقع گذاشتن بر اینترنت:
* خطوط 1 و 2 و 19 و 21 جای علامت " در آخر خط به اشتباه در ابتدا خط درج شده.

* خط 4 و 5 جای علامت ") در ابتدا غلط است و باید بصورت (" در آخر خط باشد.

* خط 1 باید بصورت:
":\yourfolderName = "c

* خط 16 باید بصورت:
"" = whatnamefile

که درست نمی باشد.لطفا" در صورت امکان ویرایش بفرمایید تا کاربران دچار اشتباه نشوند!متشکرم.

[ila]

فرق کلید اصلی با کلید اولیه چیه؟

[SajjadKAZ2003]

حذف شووووووووووود.................

[mohammad96]

فرق کلید اصلی با کلید اولیه چیه؟

فک کنم هر دوتاشون یکی باشن.

[k.attarzadeh]

با سلام و تشکر از دوستان عزیز که دفعات قبلی من را یاری کردند بار دیگر از شما دوستان مهربان تقاضا دارم این دوست کوچک خود را یاری دهید.
برای نوشتن یک برنامه احتیاج دارم که جواب این سوال را به تفکیک برای ( access 2003 و access 2007 )
بدانم اگر کسی جواب پیدا کردید کد برنامه را به صورت جداگانه برای هر یک از سوالات بنویسد؟
1) چگونه می توان متوجه شد نام سی دی درایو چیست؟
2) چگونه می توان فقط نام پوشه هایی که در ریشه اصلی (root) سی دی درایو است را لیست کرد؟

[k.attarzadeh]

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

برای نوشتن یک برنامه احتیاج دارم که جواب این سوال را به تفکیک برای ( access 2003 و access 2007 )
بدانم اگر کسی جواب پیدا کرد لطفا" کد برنامه را به صورت جداگانه برای این سوال من بنویسد ممنون می شوم.
چگونه می توان فقط نام پوشه هایی که در ریشه اصلی (root) سی دی درایو است را لیست کرد؟

قبلا از توجهی که خواهید کرد کمال تشکر را دارم.