MS Access 데이터베이스 관리 : 사용자에게 새 테이블 이름을 묻습니다.

Question

테이블을 만든 후 테이블의 이름을 바꾸는 이름 바꾸기 매크로와 테이블 만들기 쿼리를 만들었습니다. 새 테이블 이름을 묻는 대화 상자를 만들려고합니다. 이게 가능하고 어떻게 할 수 있습니까?

Public Sub MakeTable() 

Dim strNewTableName As String 
Dim Qdef As QueryDef 

    strNewTableName = InputBox("Please enter the table name") 

    If strNewTableName & "" = "" Then Exit Sub 'No table name has been given 

    Set Qdef = CurrentDb.QueryDefs("MakeTableQueryName") 

    Qdef.SQL = "SELECT bla, bla INTO " & strNewTableName & " WHERE etc" 

    CurrentDb.Execute "MakeTableQueryName" 

    Set Qdef = Nothing 

End Sub 

더 지금있다 : 즉이 예를 실행하기 전에 메이크업 테이블 SQL 문에서 TABLENAME 변경에

Answer 1

당신은 아마, 편집 쿼리 데프의 SQL 속성의 VB에서 서브를 사용하는 것이 좋을 것이다 이후에 별도의 매크로를 실행해야합니다.