MS Access 2003 - "SELECT * INTO tblTemp FROM tblMain"문 다음에 테이블을 변경하기위한 VBA

Question

다음과 같은 함수를 사용하여 임시 테이블에서 크로스 탭 쿼리를 제거합니다. 그때 엑셀 임시 테이블을 위해 더 많은 VBA를 사용할 수 있도록

Function SQL_Tester() 
Dim sql As String 

If DCount("*", "MSysObjects", "[Name]='tblTemp'") Then 
    DoCmd.DeleteObject acTable, "tblTemp" 
End If 

sql = "SELECT * INTO tblTemp from TblMain;" 

Debug.Print (sql) 

    Set db = CurrentDb 
    db.Execute (sql) 

End Function 

내가 이렇게 엑셀의 일부 기능 사용 (공식과 같은) 다음 원래 테이블 (tblMain)로 값을 반환합니다. 내가 위로 넘어지고 있어요 간단한 자리를 선택 INTO 문 뒤에 내가 그 임시 테이블에 새로운 추가 열을 추가 할 필요가있다 나는이 작업을 수행하는 방법을 알고하지 않습니다

sql = "Create Table..." 

유일한 방법처럼 내가 이 작업을 수행하는 방법을 알고 있어야합니다. 물론 사실 이후에 이미 생성 된 테이블을 만들 수 없기 때문에 위의 방법과 잘 작동하지 않습니다. SELECT INTO 문 접근 방식이 반환되기 때문에 이전에 만들 수 없습니다. "table already exists"메시지가 표시됩니다.

어떤 도움이 필요합니까? 고마워!

Answer 1

나는 다음

당신은 당신이 필요로하는 모든 열이있는 CREATE TABLE tblTemp을 할 수있는 삽입하거나 작성이

1을 달성 할 수있는 다음과 같은 방법으로 생각할 수 있습니다. 물론 TblMain보다 많은 열이 있으므로 삽입에 열 정의가 포함됩니다.

INSERT INTO tblTemp (Col1, Col2, Col3) SELECT Col1, Col2, Col3 from TblMain

2. 속하고, 그런 다음 여러 가지 방법으로 VBA에서

1. 를 사용하여 열을 추가로 삽입 할 수있는 열

   를 추가 할 수있는 TableDef 객체를 사용 tblTemp를 가리킨 다음 열을 추가하십시오.

2. 실행 DoCmd.RunSQL "ALTER TABLE tblTemp Add Column MyNewColumn (OTTOMH)

Answer 2

고양이는 항상 여러 가지 방법으로 피부를 관리합니다. DAO를 사용할 수 있습니까? 이것은 Access 내에서 사용자 인터페이스를 통해 새로운 필드를 생성 할 때 새로 생성 된 필드의 다양한 속성을 설정할 수 있다는 장점이 있습니다. 그냥 생각 :-)

이 하위 l은 작성 및 테스트되었지만 Access 2007에서는 어떤 버전과도 호환되어야합니다.

Public Sub AddField() 

Dim dbs As DAO.Database 
Dim tdf As DAO.TableDef 
Dim fld As DAO.Field 

Dim strTable As String 

Set dbs = CurrentDb 

strTable = "tblTemp" 

'create the TableDef object that 
'wish to change 
Set tdf = dbs.TableDefs(strTable) 
'create new field 
Set fld = tdf.CreateField("Name", dbText) 
'set property of new created field 
fld.AllowZeroLength = True 
'append the new field to the tabledef 
tdf.Fields.Append fld 

End Sub