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

نقل قول:

---

نوشته شده توسط k.attarzadeh [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

با سلام خدمت استاد عزیز
من قبلا با access 2003 کار می کردم ولی به تازگی فایل خود را بصورت save as به office 2007 تبدیل کردم ولی مشکلی که دارم این است که زیر برنامه ای که مربوط به پیدا کردن یک فایل در روی هاردیسک بود کار نمی کند و پیغام :

You entered an expression that has an invalid reference to property FilesSearch.

البته طبق دستور help برنامه access پیشنهاد داده که reference بنام Mircosoft office object library را فعال کنم این کار را کردم البته در انتهای لیست reference قرارش دادم.ولی property ایی بنام FileSearch مربوط به دستور Application اضافه نشد در صورتی که من در نرم افزار ورژن 2003 خود این property را داشتم؟؟؟

متن زیر برنامه: office 2003

Private Function path_checking(THEpath As String, THEfilename As String) As Boolean
Set fs = Application.FileSearch
With fs
.LookIn = THEpath
.FileName = THEfilename
If .Execute > 0 Then
path_checking = True
Else
MsgBox "The file named (" + THEfilename + ") is not in the path (" + THEpath + ")", vbCritical, "Message"
path_checking = False
End If
End With
End Function

---

با سلام،

اینو پیدا کردم :

کد:

---

SYMPTOMS

When you try to run the FileSearch  function in Microsoft Office Access 2007, you receive the following error  message: You entered an expression that has an invalid reference  to the property FileSearch.
This problem occurs if the FileSearch  function was created in an earlier version of Access.
  CAUSE

The File Search task pane and the  FileSearch object have been removed from the 2007  Microsoft Office programs.
  RESOLUTION

To programmatically search for a file in Access 2007, you can  use either the Dir function or the  FileSystemObject class.

---

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

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

کد:

---

A

---

با تشکر

نقل قول:

---

نوشته شده توسط k.attarzadeh [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

---

با سلام،

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

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

کد:

---

Private Function path_checking(THEpath As String, THEfilename As String) As Boolean
 Dim fs
 Set fs = CreateObject("Scripting.FileSystemObject")
 path_checking = fs.FileExists(THEpath & "\" & THEfilename)
 If Not path_checking Then
    MsgBox "The file named " & "'" & THEfilename & "'" & Chr(13) & "is not in the path " & Chr(13) & "'" & THEpath & "'", vbCritical, "Message"
 End If
End Function

---

با سپاس!

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

فايل ها موجود در '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

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

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

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

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

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

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

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

نقل قول:

---

نوشته شده توسط ila [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

---

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

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