開発備忘録

【VBA】

1. 一覧ちらつき防止 → Me.List.Form.Painting = False

2.一覧レコード数 →  Me.List.Form.Recordset.RecordCount

3. 他画面の一覧Requiery → Forms!F_ClientListMain!List.Requery

4.他画面の関数呼出 → Call Forms.F_MENU.NavigationSubform.Form.検索_Click

5.イミディエイト出力 → Debug.print

【64Bit化】

1.Declear文 → Declare PtrSafe

2.OPENFILENAME hwndOwner As LongPtr
hInstance As LongPtr
lCustrData As LongPtr
3.レコードセットの値がLongLong型で戻るためキャストする → Clng(rs.Recordset)

【SQL】
●Exist
SELECT semgen.事業所記号, semgen.事業所名, semgen.支店名, semgen.郵便番号
, semgen.住所, semgen.電話番号
FROM semgen
WHERE (((semgen.支店名)<>“”)
AND ((Exists (SELECT COMPANY_ID , BRANCH_NAME
FROM M_COMPANY WHERE BRANCH_ID<>“000”
AND COMPANY_ID=事業所記号 and BRANCH_NAME=支店名))=False));

【32BitのODBC】

C:\Windows\SysWOW64\odbcad32.exe