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 Recordset
Dim qdf As QueryDef
Dim query As String
Dim temp As Double
query = _
"SELECT SUM(금액) " & _
"FROM 특별회계 " & _
"WHERE (목 = '" & 목 & "') AND (날짜 = #" & Report & "#) AND (수입지출 = '지출')"
Set qdf = CurrentDb.CreateQueryDef("", query)
Set rs = qdf.OpenRecordset
If Not IsNull(rs.Fields(0)) Then
temp = rs.Fields(0)
Else
temp = 0
End If
rs.Close
특별회계_일지출 = temp
End Function
5. 날자설정
Dim 날짜
날짜 = DateSerial(iYear, iMonth, iDay)
6. 월말 일자 구하기
Private Sub Command2_Click()
Text0 = DateSerial(2007, 3, 0)
End Sub
일자 란에 0을 넣으면 그 전달 말일이 됩니다.
7. 이번달 1일 구하기
Dim 날짜 As String
날짜 = Format(Now(), "yyyy-mm-01")
8. 모래시계
DoCmd.Hourglass True
.......
DoCmd.Hourglass False
9. 하위폼 연결
1. 예)
상위폼 이름 : T1
T1 폼의 하위폼 이름 : Child4
Child4 안에 들어있는 또 다른 하위폼 이름 : Child6
Forms!T1!Child4!child6.Form.Requery
2. 하위폼의 하위폼의 품목 컨트롤을 참조할때)
Forms("t1")("child4")("child6")!품목
Forms!t1!Child4!child6.Form!품목
10. Enter
private sub searchtxt_keydown(KeyCode As Integer, Shift As Integer)
select case keycoe
case vbkeyreturn
docmd.requry "searchlst"
end select
end sub
On Enter 이벤트는..
엔터키를 칠 때 발생하는 이벤트가 아니라.. 들어갈 때(enter) 발생하는 이벤트입니다.
sjhddo님이 알려 주신것 처럼 하면 됩니다..
11. Excel 파일만들기
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlsheet = xlBook.Worksheets(1)
xlsheet.Application.Visible = True
12. word 파일만들기
Dim xlApp As Object ' 참조를 사용하기 위한 변수를 선언합니다.
Set xlApp = CreateObject("word.application")
' 사용자가 응용 프로그램을 보길 원하는 경우,
' Visible 속성을 True로 지정할 수도 있습니다.
xlApp.Documents.Add
xlApp.Visible = True
' xlApp을 사용하여 Microsoft Excel의
' 다른 개체와 액세스합니다.
'xlApp.Quit ' 사용자가 종료할 때, Quit 메서드를 사용하여
'Set xlApp = Nothing ' 응용 프로그램을 종료한 후 참조를 해제합니다.
13. 문자열에 다음 라인 기능 넣기
a = "aaaaa" & vbcrlf & "bbbbb"
실행)
“aaaaaa”
“bbbbb”
14. 문자열을 다음라인에서 보기
A = _
“12345”_ &
“6789”
실행)
“123456789”
15. 문자열 치환
Dim a As String
a = "aaaa,bbbb"
MsgBox Replace(a, ",", "/")
16. Excel 파일저장
'파일저장
If OptionFileVisible Then
xlsheet.Application.Visible = True
Else
Dim filename As String
Dim path
path = CurDir
filename = path & "\수입지출내역" & Format(Now(), "HhNnSs") & ".xls"
xlSheet.SaveAs filename
xlSheet.Application.Quit
Set xlSheet = Nothing
MsgBox filename
End If
17. 시작 및 윈도우 타이틀 설정
도구-> 시작
시작설정 후 편집이 불가능할 수 있습니다.
Shift 키를 누른상태에서 파일을 열면 편집할 수 있습니다.
18. 메뉴변경
19. 도구모음 변경
20. 테이블 추가 변경 삭제
21. Window Folder 찾기
Dim objFSO
Dim 폴더 As String
Set objFSO = CreateObject("Scripting.FileSystemObject")
'0 Windows Folder
'1 System Folder
'2 Temporary Folder
폴더 = objFSO.GetSpecialFolder(0) + "\Fonts"
22. 현재폴더 및 Directory 검사
폰트1_path = CurrentProject.Path & "\Fonts\" & 폰트1
폰트2_path = CurrentProject.Path & "\Fonts\" & 폰트2
시스템폰트폴더 = 폰트폴더
'파일검사
If Dir(폰트1_path) = "" Then
Exit Function
End If
If Dir(폰트2_path) = "" Then
Exit Function
End If
23. msgbox
MsgBox rs!항목 & "통장 만기가 되었습니다.", vbInformation, "알림"
24. 폼지우기
Dim cnt As Integer
cnt = 1
Do While cnt <= Forms.Count
If Forms(cnt - 1).Name <> "Main" Then
DoCmd.Close acForm, Forms(cnt - 1).Name
cnt = cnt - 1
End If
cnt = cnt + 1
Loop