【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));