◆KG SKY WING J. O.（Big Band Jazz）

2010年5月15日(土)

クドウエツコプレゼンツ突撃100％ライブ

MARIMO BROTHERS / KG SKY WING JAZZ ORCHESTRA / 虚言癖

前売価格：\2,000

◆THE PLEASURES（Funk）

2010年4月24日(土) 
Black Music Train Revue ! [vol.8] Funk/Soul 編 
心斎橋soma 
http://www.will-music.net/soma01/sommenu.html
with　Ra’con　、heartful funks　、Kazushi ‘funky’ Matsuda 
[松田一志(Vo)西田まこと(G)江口弘史(Ba)堂地誠人(sax)神吉信一(Ds)]

◆fino（Brazil Pops）

2010年6月20日(日)

JK-Bird

ディスクエラーになったTime Capsule(泣)

AirMacユーティリティから覗くと、データをアーカイブできるみたい。

Macへマウントはデキないけど、ファイルはあるよ、という状態かも…（希望的観測）。

とにかく500MB以上のHDDを買って来て、コピーしなければ。

あぁ。

Donna Lee

Soul Intro / The Chicken

やっぱ、ジャコは偉大だよなぁ。

四捨五入：

Sgn([数値]*0.05)*Int(Abs([数値]*0.05 + 0.5))

切り上げ：

Sgn([数値]*0.05)*Int(Abs([数値]*0.05 + 0.9))

切り捨て：

Int([数値])

基本的な考え方は下記URL
http://www.mahoutsukaino.com/ac/ac2000/ac2000/qry3/0001.htm

フォームの入力内容によりクエリを作成し、
前回分と入れ替え実行する。
今回の場合はマスタはリンクファイルなので、
検索結果をローカルへ取り込んでいる。

Private Sub コマンド8_Click()

Dim db As Database
Dim QQQ As QueryDef

Set db = CurrentDb

Dim AAA As String

Dim AREA As String  ’地区
Dim TTCD As String  ’社員コード
Dim HNCD As String  ’品コード
Dim KKYK As String  ’顧客分類
Dim KGJH As String  ’開業情報
Dim ADRS As String  ’都市
Dim YYYY As String  ’年月

Dim sql As String

DoCmd.DeleteObject acQuery, “Q追加_マスタ検索_M”

‘M_地区に入力があればIN(～)を作る

If IsNull(Me![M_地区]) Then

AREA = “Like [Forms]![検索用フォーム]![地区] & ‘*’”

Else

AREA = “In (” & “‘” & Replace(Me![M_地区], “,”, “‘,’”) & “‘” & “)”

End If

‘M_社員に入力があればIN(～)を作る

If IsNull(Me![M_社員]) Then

TTCD = “Like [Forms]![検索用フォーム]![社員] & ‘*’”

Else

TTCD = “In (” & “‘” & Replace(Me![M_社員], “,”, “‘,’”) & “‘” & “)”

End If

‘品コードに「，」があればIN(～)を作る

If InStr(Me![品目番号], “,”) > 0 Then

HNCD = “In (” & “‘” & Replace(Me![品目番号], “,”, “‘,’”) & “‘ )”

Else

HNCD = “Like [Forms]![検索用フォーム]![品目番号]&’*'”

End If

‘M_顧客に入力があればIN(～)を作る

If IsNull(Me![M_顧客]) Then

KKYK = “Like ‘*’ &[Forms]![検索用フォーム]![ユーザ分類]&’*'”

Else

KKYK = “In (” & “‘” & Replace(Me![M_顧客], “,”, “‘,’”) & “‘” & “)”

End If

‘M_開業に入力があればIN(～)を作る

If IsNull(Me![M_開業]) Then

KGJH = “Like [Forms]![検索用フォーム]![開業情報] & ‘*’”

Else

KGJH = “In (” & “‘” & Replace(Me![M_開業], “,”, “‘,’”) & “‘” & “)”

End If

‘M_都市に入力があればIN(～)またはLike～orを作る

If InStr(Me![M_都市], “,”) = 3 Then

ADRS = “(BURIFLR.都市コード) Like ‘” & Replace(Me![M_都市], “,”, “*’ Or (BURIFLR.都市コード) Like ‘”) & “*’”

ElseIf InStr(Me![M_都市], “,”) = 6 Then

ADRS = “(BURIFLR.都市コード) ” & “In (” & “‘” & Replace(Me![M_都市], “,”, “‘,’”) & “‘” & “)”

Else: IsNull (Me![M_都市])

ADRS = “(BURIFLR.都市コード) ” & “Like [Forms]![検索用フォーム]![都市]&’*'”

End If

‘年月Eに入力があればBetweenを作る

If IsNull(Me![年月E]) Then

YYYY = “Like [Forms]![検索用フォーム]![年月]&’*'”

Else

YYYY = “Between [Forms]![検索用フォーム]![年月] And [Forms]![検索用フォーム]![年月E]”

End If

sql = “INSERT INTO W_BURIFLR ( 売上日, 地区№, 担当№, 品目№, 数量, 売価, 器械№, 得意先ＩＤ, 得意先名, 電話, ユーザ名, 分類, 都市№, 粗利価, クラス№, 品名, 開業№, 会計期, ID ) ” & _
“SELECT BURIFLR.売上日, BURIFLR.営業所№, BURIFLR.担当コード, BURIFLR.品目№, IIf(BURIFLR!按分売価=0 And BURIFLR!粗利価=0,”,BURIFLR!数量) AS 数量, BURIFLR.按分売価, BURIFLR.器械№1, BURIFLR.得意先ＩＤ, BURIFLR.得意先名, BURIFLR.電話, BURIFLR.ユーザー名, BURIFLR.分類, BURIFLR.都市コード, BURIFLR.粗利価, BURIFLR.クラス分類, BURIFLR.売上品名, BURIFLR.開業情報コード, BURIFLR.計算_売上月, 1 AS ID ” & _
“FROM BURIFLR ” & _
“WHERE (((BURIFLR.営業所№) ” & AREA & “) ” & _
“AND ((BURIFLR.担当コード) ” & TTCD & “) ” & _
“AND ((BURIFLR.品目№) ” & HNCD & “) ” & _
“AND ((BURIFLR.得意先ＩＤ) Like [Forms]![検索用フォーム]![得意先コード]&’*') ” & _
“AND ((BURIFLR.得意先名) Like ‘*’ &[Forms]![検索用フォーム]![得意先名]&’*') ” & _
“AND ((BURIFLR.電話) Like [Forms]![検索用フォーム]![電話番号]&’*') ” & _
“AND ((BURIFLR.ユーザー名) Like ‘*’ &[Forms]![検索用フォーム]![ユーザ名]&’*') ” & _
“AND ((BURIFLR.分類) ” & KKYK & “) ” & _
“AND (” & ADRS & “) ” & _
“AND ((BURIFLR.開業情報コード) ” & KGJH & “) ” & _
“AND ((BURIFLR.計算_売上月) ” & YYYY & “) ” & _
“AND ((BURIFLR.自社) Like [Forms]![検索用フォーム]![自社] & ‘*’))” & _
“ORDER BY BURIFLR.売上日;”

Set QQQ = db.CreateQueryDef(”Q追加_マスタ検索_M”, sql)

db.Close: Set db = Nothing

DoCmd.RunMacro “M_レコード抽出”

End Sub

※考え方は下記URLを参照
http://www.accessclub.jp/samplefile/samplefile_139.htm
用意するもの：W_blankという通し番号のついたのテーブルを作成
（プリントするものと同じフィールドをもったもの）

行数をカウントするのにフォームに数字フィールドを用意

（この場合「個数」）

[条件]DCount(”注文番号”,”Q_選択_発注書”) Mod 23>0
[アクション]値の代入
[コメント]不足行を計算

[条件][Forms]![発注メニュー]![個数]>0
[アクション]クエリを開く（Q_追加_blank）
[コメント]空白分を追加

Q_選択_発注書▼
SELECT W_発注書.*
FROM W_発注書
ORDER BY W_発注書.注文番号, W_発注書.ID;

Q_追加_blank▼

INSERT INTO W_発注書2 ( rec )
SELECT W_blank.rec
FROM W_blank
WHERE (((W_blank.rec) Between 1 And [Forms]![発注メニュー]![個数]));

Magic Mouse

Appleから新しいマウス（BlueTooth接続）が発表されましたね。
継ぎ目無しの外観でマルチタッチ。メンテナンスって電池だけちゃう？
Windowsに対応したドライバ出ないかなぁ？

で、旧型のUSB接続のものはApple Mouseという名前で併売ですが、
AppleStoreの説明には昔の名前が…(笑)

HACSND00.txtのファイル名をHACSND00_現在日_現在時刻.txt

にするWSHのコード。

Dim FS, SH
Dim cNow, ddd,ret

Set FS = WScript.CreateObject( “Scripting.FileSystemObject” )
Set SH = CreateObject(”WScript.Shell”)

ret = FS.FileExists( “C:\pcs\HACSND00.txt” )

if ret=true then
‘——– 日時 文字列 ——–
cNow = Date & Right( ” 0″ & Time , 9 )
ddd = “_” & mid(cNow,1,4) & mid(cNow,6,2) & mid(cNow,9,2) & “_” & mid(cNow,12,2) & mid(cNow,15,2) & mid(cNow,18,2)
‘——- バックアップ ——–
FS.MoveFile “C:\pcs\HACSND00.txt” , “C:\pcs\HACSND00″ & ddd & “.txt”

End if