VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
いろいろ試した結果下記の修正と下記のテーブルの追加で何とかなりました。（解決したのは私じゃ無いけど）
：
：
：
Set ws = DBEngine.Workspaces(0)
Set printdb = ws.OpenDatabase(App.Path & "\タナックプリント.mdb", False, False)
AcPrint = True
'起動設定初期化
printdb.Execute " UPDATE M_起動設定 SET Flg = " & -1
Select Case PrintMode
Case 0 'Preview
'起動設定更新用SQL文作成
'R_スタッフ人気分析の場合
If ReportName = "R_スタッフ人気分析" Then
'R_施術別売上を同時に表示させる為の文作成
strsql = " UPDATE M_起動設定 SET Flg = " & PrintMode & _
" WHERE ReportName = '" & ReportName & "'" & _
" OR ReportName = 'R_施術別売上'"
Else
strsql = " UPDATE M_起動設定 SET Flg = " & PrintMode & _
" WHERE ReportName = '" & ReportName & "'"
End If
'起動設定更新
printdb.Execute strsql
'Access起動 DBを開く
RetVal = Shell(Environ("ComSpec") & " /c start msaccess """ & DbName & """", 1)
Case 1 'Print
'起動設定更新用SQL文作成
'R_スタッフ人気分析の場合
If ReportName = "R_スタッフ人気分析" Then
'R_施術別売上を同時に表示させる為の文作成
strsql = " UPDATE M_起動設定 SET Flg = " & PrintMode & _
" WHERE ReportName = '" & ReportName & "'" & _
" OR ReportName = 'R_施術別売上'"
Else
strsql = " UPDATE M_起動設定 SET Flg = " & PrintMode & _
" WHERE ReportName = '" & ReportName & "'"
End If
'起動設定更新
printdb.Execute strsql
'Access起動 DBを開く
RetVal = Shell(Environ("ComSpec") & " /c start msaccess """ & DbName & """", 1)
Case Else
MsgBox "モードが誤っています。", vbOKOnly, "AcPrint Ver.1.1"
AcPrint = False
End Select
printdb.Close
Set printdb = Nothing
：
：
：
ランタイムをsetup.exeと同じＣＤで渡して、Accessが無い場合は入れてもらうことにしました。
ライセンスは、多分問題ないと思う。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）