내가 일하는 사람들은 꽤 오래되었고 업데이트를 원하기 때문에 현재 가지고있는 주문 시스템을 변경해달라고 요청했습니다. 그래서 나는 그들이 요청한 것처럼 테이블을 Excel로 옮겼습니다. 그래서 주문 양식에 있지 않고 엑셀 양식에서 "거래 계좌"버튼을 클릭 할 때 Access에서 쿼리가 열리도록하기를 원합니다. 모두 완료 됨) 계정 정보 (회사 이름)를 입력하도록 요청합니다. 이 작업이 완료되면 볼 수 있도록 모든 계정 정보가 표시됩니다. 그들은 손으로 입력하는 데 시간을 할애하지 않아도되도록 엑셀 문서의 거래 계정 필드에 나타나는 정보를 복사하도록 만들었 으면합니다. 여기에서 VBA를 사용한 경험이 없습니다.
더 잘 설명 할 수있는 경우 이미지를 제공 할 수도 있습니다.
다른 해결책으로 다른 질문에 대답했습니다. 쿼리를 사용하여 원하는 작업을 수행하는 또 다른 방법이 있습니다. 이것은 필터처럼 쿼리를 제어하고 해당 개체에서 결과를 가져올 수 있기 때문에 좋습니다.
' Set a reference to DAO 6.0
Sub GetQuery()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim i As Long
Dim wsh As Worksheet
Set dbs = DBEngine.OpenDatabase("C:\your_path\Northwind.mdb")
Set rst = dbs.OpenRecordset("Invoices")
Set wsh = Worksheets("Sheet3")
For i = 0 To rst.Fields.Count - 1
wsh.Cells(1, i + 1).Value = rst.Fields(i).Name
Next
wsh.Range("A1").Resize(ColumnSize:=rst.Fields.Count).Font.Bold = True
wsh.Range("A2").CopyFromRecordset rst
rst.Close
Set rst = Nothing
dbs.Close
Set dbs = Nothing
End Sub
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다