انتقال اطلاعات [بایگانی]

sinas1386

پنج شنبه 23 خرداد 1392, 09:44 صبح

با سلام خدمت دوستان عزیز.

قبلا دوستان لطف کرده بودند و تایپیکهایی در خصوص انتقال اطلاعات زده بودند .
میخواستم بدانم راهی هست که اطلاعات از طریق ماژول زیر که قبلا دوستان زحمت ولطف کرده بودند به اکسس یعنی ما به جای اینکه فایل اکسس در مسیر\:A داشته باشیم یک فایل اکسل بجای آن داشته باشیم و از طریق همان ماژول به اطلاعات اضافه شود . من از طریق اکسپورت این عمل نمی خواهم انجام شود .

If fil.FileExists(filename) Then
m = DCount("*", "table1")
DoCmd.TransferDatabase acImport, "Microsoft Access", filename, acTable, "table1", "temp0001"
DoCmd.SetWarnings False
DoCmd.OpenQuery "temp0001Query"
DoCmd.DeleteObject acTable, "temp0001"
DoCmd.SetWarnings True
n = DCount("*", "table1")
k = n - m
If k > 0 Then

MsgBox "ÇäÊÞÇá ÝÇíá ÈÊÚÏÇÏ" & k & "ÑßæÑÏÈÇ ãæÝÞíÊ ÇäÌÇã ÔÏ", vbInformation, ""
Else
MsgBox "ÑßæÑÏí ÇäÊÞÇá ÏÇÏå äÔÏ", vbOKOnly, "ÇØáÇÚÇÊ ÊßÑÇÑí"

End If
Else
If fil.Drives("c").IsReady = False Then
MsgBox "ÏíÓ˜Êí ÏÑæä ÝáÇí ÏíÓ˜ æÌæÏ äÏÇÑÏ", vbExclamation, ""
Else
MsgBox "ÝÇíá ãæÑÏ äÙÑ ÏÑ ÏíÓ˜Ê ãæÌæÏ äãí ÈÇÔÏ", vbCritical, ""
End If
End If

sinas1386

پنج شنبه 30 خرداد 1392, 10:17 صبح