전체 글303 [Access] Excel 파일에 값 쓰기 Access에서 Visual Basic을 통해 Excel Macro를 실행하는 예제입니다. Dim xlApp As Excel.Application Dim xlbook As Excel.Workbook Dim xlsheet As Excel.Worksheet Dim filename As String filename = CurrentProject.Path & "\test.xlsm" Set xlApp = CreateObject("Excel.Application") Set xlbook = xlApp.Workbooks.Open(filename) Set xlsheet = xlbook.Worksheets(1) xlsheet.cells(1, 1).Value = "Access 에서 삽입한 값은 " & 삽입텍스트 & " 입니.. 2023. 5. 18. [Access] access Tip 1. 현재날짜 구하기 A. Now() 2. 하위폼 클릭된 레코드셋 구하기 Dim rst As DAO.Recordset Dim strSearchName As String Set rst = 봉투출력_하위폼.Form.Recordset MsgBox rst.Fields(1) 3. 하위폼 쿼리 봉투출력_하위폼.Form.RecordSource = "SELECT 지출.봉투인쇄, 지출.적요, 지출.금액, 지출.받을사람 FROM 지출 WHERE (NOT 기타='환입' AND NOT 기타='자동이체') AND 날짜=#" & 날짜 & "#" 봉투출력_하위폼.Form.Requery 4. 쿼리 검색 Function 특별회계_일지출(Report As Variant, 목 As String) As Double Dim rs As Rec.. 2023. 5. 18. [Access] BETWEEN에서 날짜사용시 문제점 SQL 문에서 BETWEEN을 통해 특정기간 동안의 데이터를 검색시 마지막 날짜만 검색이 안되는 문제점이 있습니다. 이는 마지막 날짜가 2/14/2012 이라고 할때 실제로 2/14/2012/00:00:00 이라는 시간으로 설정이 됩니다. 그러나 데이터는 같은 날짜지만 시간적으로 뒤에 있기 때문에 BETWEEN에 포함되지 않습니다. 이런 경우는 마지막 날짜를 2/14/2012/23:59:59 로 설정을 해야 합니다. 그러나 날짜를 입력 받는 경우는 이렇게 설정하기가 불편합니다. Visual Basic에서는 DateValue 라는 함수가 있습니다. MS쪽에만 있는 함수 같네요 이함수는 날짜를 숫자로 변환을 하는데 시간은 무시하고 날짜만 숫자로 변환을 합니다. DateValue(InputTime) Betwe.. 2023. 5. 4. [Excel] 제어판 통화설정 및 소수점 자리수 읽기 Option Compare Database Option Explicit Private Declare Function GetLocaleInfo Lib "kernel32" _ Alias "GetLocaleInfoA" (ByVal locale As Long, _ ByVal LCType As Long, ByVal lpLCData As String, _ ByVal cchData As Long) As Long Private Declare Function GetUserDefaultLCID% Lib "kernel32" () Private Const LOCALE_SNATIVELANGNAME = &H4 ' native name of language Private Const LOCALE_SNATIVECTRYNAME = &H.. 2023. 5. 4. 이전 1 ··· 60 61 62 63 64 65 66 ··· 76 다음