attach كردن با كمك command botten

[behforooz]

چه جوري ميتونم تو يه فرم يه فايل(مثلا پي دي اف ) رو با زدن دكمه كامند باتن به جدول attach كنم؟

[behforooz]

خواهشا جواب من رو زودتر بدين...من عجله دارم:ناراحت: تا 5شنبه وقت دارم.

اينجا سوالم رو پرسيدم.چون كساني اينجا هستن كه خيلي با اكسس سر كار دارن و حرفه اي هستن. فك كردم بتونن جواب من رو زودتر بدن


لطفا كمكم كنيد:ناراحت:

مرسي

[behforooz]

Option Compare Database
Option Explicit
Dim Filename As String, pathname As String
Dim Filename1 As String, pathname1 As String

Private Sub Command20_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Dim x, Y As String
Dim x1, Y1 As String

Set rs = db.OpenRecordset("Tab")
If VarType(txtStockGraph) = vbNull Or VarType(txtStockGraph1) = vbNull Then
Exit Sub
End If
x = txtStockGraph
Y = "c:\1.jpg"
x1 = txtStockGraph1
Y1 = "c:\2.jpg"
If VarType(Text1) = vbNull Then Text1 = " "

If val(Text1) > 1000 Or val(text2) > 1000 Then
MsgBox "ÇäÏÇÒå ÝÇíá ÈíÔ ÇÒ 1000 ßíáæ ÈÇíÊ ãí ÈÇÔÏ", vbInformation + vbOKOnly, "ÇÚáÇä"
Exit Sub
End If
FileCopy x, Y
FileCopy x1, Y1
rs.AddNew
rs![BeforePic] = Y
rs![AfterPic] = Y1
rs.Update

MsgBox "ÊÕÇæíÑ ÇäÊÎÇÈí ÏÑ ÈÇäß ÏÑÌ ÔÏ", vbOKOnly + vbInformation, "ÇÚáÇä"
End Sub
Private Sub Command21_Click()
On Error GoTo Err_2
Dim strFilter As String
Dim lngFlags As Long
strFilter = ahtAddFilterItem(strFilter, "Picture Formats (*.jpg *.jpeg, *.bmp, *.gif)", "*.jpg; *.jpeg; *.bmp; *.gif")
'MsgBox "You selected: " &
Filename1 = ahtCommonFileOpenSave(InitialDir:=pathname1, _
Filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, _
DialogTitle:="Select Picture File")
'display picture
Me.txtStockGraph1 = Filename1
Me.ImgStock1.Picture = Filename1
text2 = Round(FileLen(txtStockGraph1) / 1024, 0)

Err_2:
Exit Sub
End Sub
Private Sub Command25_Click()
Filename1 = ""
Me.txtStockGraph1 = Filename1
Me.ImgStock1.Picture = "\\Netsrv\report\Pic-Dastan\1.jpg (file://\\Netsrv\report\Pic-Dastan\1.jpg)"
text2 = ""
End Sub
Private Sub Command26_Click()
Me.txtStockGraph = ""
Me.ImgStock.Picture = "\\Netsrv\report\Pic-Dastan\1.jpg (file://\\Netsrv\report\Pic-Dastan\1.jpg)"
Text1 = ""
End Sub
Private Sub Command7_Click()
On Error GoTo Err_2
DoCmd.Close
Err_2:
Exit Sub
End Sub
Private Sub Form_Activate()
pathname = CurrentProject.Path
End Sub
Private Sub cmdChooseAFile_Click()
On Error GoTo Err_1
Dim strFilter As String
Dim lngFlags As Long
strFilter = ahtAddFilterItem(strFilter, "Picture Formats (*.jpg *.jpeg, *.bmp, *.gif)", "*.jpg; *.jpeg; *.bmp; *.gif")
'MsgBox "You selected: " &
Filename = ahtCommonFileOpenSave(InitialDir:=pathname, _
Filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, _
DialogTitle:="Select Picture File")
'display picture
Me.txtStockGraph = Filename
Me.ImgStock.Picture = Filename
Text1 = Round(FileLen(txtStockGraph) / 1024, 0)

Err_1:
Exit Sub
End Sub


من اينو از يه برنامه كه عكس اتچ كرده برداشتم..نميدونم چه جوري استفادش كنم:گیج:

[مهدی قربانی]

سلام
اين نمونه رو ببينيد :

[behforooz]

مرسي...ولي نميشه مستقيما از كامپيوتر attach كنه؟ و فايل هاي pdf ,word,exel,powerpoint رو بگيره؟

چه جوري مي تونم اسم فايل رو تو يه تكست باكس كنارش نشون بدم؟