| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 액세스 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
윈98, 엑세스97
안녕하세요 저번의 답글 잘 받았습니다.
감사합니다..
궁금한게 있어서 이렇게 다시 올렸습니다..
Private Sub Append_button_Click()
Dim stDocName As String
Dim filepath As String
Dim fileextension As String
Dim tempstr As String
Dim temp As Integer
If (Text_filename.Value <> "") Then
temp = MsgBox(Chr(34) & Text_filename.Value & Chr(34) & " 화일을 가져옵니까 ?", vbYesNo, "확인 사항")
If (temp = 7) Then
Text_filename.Value = ""
Exit Sub
ElseIf (temp = 6) Then
if 파일명과 같지 않습니다 then ---->여기 부분
MsgBox "파일명과 같지 않습니다"
Else
stDocName = "테이블(누락)_delete" -->삭제질의
DoCmd.OpenQuery stDocName
filepath = "c:\테이블\" -->폴더명(경로)
fileextension = ".xls"
tempstr = filepath & Text_filename.Value & fileextension
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97, "테이블(누락)", tempstr, True
-->테이블(누락)테이블로 데이터 가져오기
Forms.Application.Screen.ActiveForm.Refresh
End If
end if
End Sub
지금 테이블 폴더에 있는 엑셀 화일을 테이블로 불러올려고 합니다.
테이블에 있는 부분을 삭제를 하고 데이터를 불러 올려고 합니다..
그런데 화일명과 비교하는 부분에서요 어떻게 해야지 될지 몰라서 다시 올렸습니다.
버전이 97이라 그런지 몰라도 replace 부분에서 에러 나서여...
제가 잠시 어딜 갔다가 와서 이렇게 답글이 늦었습니다.
저번 조언 감사드립니다.
고수님들 조언 부탁드립니다....
당신은 행복한 사람입니다...
==============[삶의희망님 글에 대한 답변입니다]==============
Private Sub Append_button_Click()
Dim stDocName As String
Dim filepath As String
Dim fileextension As String
Dim tempstr As String
Dim temp As Integer
tempstr = filepath & Text_filename.Value
On Error GoTo err
If (Text_filename.Value <> "") Then
temp = MsgBox(Chr(34) & Text_filename.Value & Chr(34) & " 화일을 가져옵니까 ?", vbYesNo, "확인 사항")
If (temp = 7) Then
Text_filename.Value = ""
Exit Sub
ElseIf (temp = 6) Then
stDocName = "테이블(누락)_delete"
DoCmd.OpenQuery stDocName
filepath = "c:\테이블\"
fileextension = ".xls"
tempstr = filepath & Text_filename.Value & fileextension
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97, "테이블(누락)", tempstr, True
Forms.Application.Screen.ActiveForm.Refresh
End If
End If
Exit Sub
err:
If err.Number = 3011 Then
MsgBox "파일명과 같지 않습니다"
End If
End Sub
다시 코딩을 해봤는데여
삭제질의가 실행이 되더라고요...
삭제질의가 실행이 안되는 경우는 어떻게 해야지 되는지여...
고수님들 조언 부탁드립니다..
당신은 행복한 사람입니다... |
|
액세스에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
