[액세스]컴활1급암기

@ 테이블, 쿼리(재료) ---> 폼, 보고서(작품)



@ 그리드(쿼리박스)
@ 조인(테이블+테이블)



Private Sub cmd제품명찾기_Click()
    Me.Filter = "제품명='" & txt제품명 & "'"
    Me.FilterOn = True
End Sub

A(문자) <--- '" & B(컨트롤명) & "'
A(숫자) <--- " & B(컨트롤명) & "
A(날짜) <--- #" & B(컨트롤명) & "#

컨트롤명은 양 옆에 &로 묶는다.



@ 특정 문자열이 포함하는 레코드 찾기
Private Sub cmd이메일찾기_Click()
    Me.RecordSource = "select * from 제품별판매현황 where 담당자이메일 like '*" & txt이메일 & "*'"
End Sub

like '*" & B(컨트롤명) & "*'



Private Sub cmd판매번호찾기_Click()
    Me.RecordsetClone.FindFirst "판매번호=" & txt판매번호
    Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub



Private Sub cmd제품정보찾기_Click()
    Dim rs As ADODB.Recordset    '선언
    Set rs = New ADODB.Recordset    '할당

    DoCmd.OpenForm "제품정보"    '액세스 폼 열기
    rs.ActiveConnection = CurrentProject.Connection    'rs에 연결
    rs.Open "select * form 제품별판매현황 where 판매번호=" & txt판매번호    '쿼리문 결과값을 rs에 할당

    Forms!제품번호.txt판매번호 = rs!판매번호    'rs필드부분을 액세스에 표시

    rs.Close
End Sub

@ 매크로 where 조건문
다음과 같을 경우
[분류]=[Forms]![판매현황]![txt분류]



Private Sub cmd상품별인쇄_Click()
    DoCmd.OpenReport "판매내역", acViewPreview, , "상품명='" & txt이름 & "'"
End Sub

Private Sub cmd상품정보_Click()
    DoCmd.OpenForm "상품정보", acNormal, , "상품명='" & txt이름 & "'"
End Sub



@ 쿼리
크로스탭 쿼리(피벗테이블과 비슷함)
왼쪽,위쪽,가운데

[액세스VBA] 레코드 갯수(record count)

Private Sub Command1_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
 
    Dim rsCount As Integer
    Dim queryNameOrSQL As String
 
    queryNameOrSQL = "select * from excel"
 
    Set db = CurrentDb
    Set rs = db.OpenRecordset(queryNameOrSQL)
    rs.MoveLast
 
    rsCount = rs.recordCount

    Text1.Value = rsCount
End Sub



* excel : 테이블 이름(table name)

[엑셀함수]특정 문자 지우기

=SUBSTITUTE(A1,"특정","")

[엑셀VBA]마지막행 구하기

Lastrow = Sheet1.Range("A65536").End(xlUp).Row + 1





Sub LastRowInOneColumn()
'Find the last used row in a Column: column A in this example
    Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    MsgBox LastRow
End Sub

Sub LastColumnInOneRow()
'Find the last used column in a Row: row 1 in this example
    Dim LastCol As Integer
    With ActiveSheet
        LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    End With
    MsgBox LastCol
End Sub

[MSSQL]레코드 생성일자 추가

"레코드생성일자" DATETIME NOT NULL DEFAULT 'getdate()',

"레코드수정일자" DATETIME NOT NULL DEFAULT '' ON UPDATE CURRENT_TIMESTAMP,

ALTER TABLE stock ADD "레코드생성일자2" DATETIME NOT NULL DEFAULT 'GETDATE()';

ALTER TABLE stock ADD CONSTRAINT DF_YourTable DEFAULT GETDATE() FOR YourColumn

ALTER TABLE dbo.MyTable ADD CONSTRAINT my_Con DEFAULT GETDATE() for created UPDATE MyTable SET Created = GetDate() where Created IS NULL ALTER TABLE dbo.MyTable ALTER COLUMN Created DATETIME NOT NULL

[번외:해외직구스마트폰]How To Buy

주의사항
1. 언락여부
2. 국내 주파수 지원
3. 한국어 지원 여부

국내 이통사 4G LTE 주파수 할당
- SKT: Band3 (1800MHz), Band5 (850MHz)
- KT: Band3 (1800MHz), Band8 (900MHz)
- LGU+: Band1 (2100MHz), Band5 (850MHz), Band7 (2600MHz)

Network: 4G: FDD-LTE 800/900/1800/2100/2600 MHz

해외쇼핑몰 검색어 : unlocked smartphone lte [사용하는 이통사 주파수] <--- KT면 900, 1800

[엑셀함수]띄엄띄엄 행 더하기

=SUMPRODUCT(N(MOD(ROW(M$4:M$408),2)=0),M$4:M$408)