テストプログラムで下記のロジック
project.dllの作成を実行した結果
Windows-XPでは正常に作成されるのに、
Windows7では
”シシテム レジストリへのアクセスでエラーが発生しました。"
エラーになります。
どこを直したらよろしいでしょうか？
よろしくお願いいたします
VB6.0でSP6を使用しております
・標準モジュール
Sub Main()
End Sub
・クラスモジュール
Public MyString As String
Public Function MyFunction() As String
MyFunction = "You never know what you're gonna get."
End Function
Public Sub Class_Initialize()
MyString = "Life is like a box of chocolates."
End Sub
前回もこちらで質問させていただいたことがある内容なのですが、引き続き、トラブルに悩まされています。仕組みがおかしくなっていたので、自分で触ってしまったことがまた悪影響だったのですが、、。
元々他の人が作ったものであり、いま、うまくいかない原因を探っているところです。まず、添付のシートにあるように、上の行のテーブルデータは"商品２_T"という名前のテーブル、下のデータは"商品２_T25discount"という名前のテーブルです。それぞれデータを引っ張ってきて、こちらのサイトに投稿するために貼り付けしました。
問題のコードをこちらに記載します。
Dim cn As ADODB.Connection
Dim cn2 As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Dim strmsg As String
Dim lngRet As Long
Dim strcriteria As String
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset
Set cn2 = CurrentProject.Connection
Set rs2 = New ADODB.Recordset
rs.Open "商品２_T", cn, adOpenKeyset, adLockOptimistic
rs2.Open "商品２_T25discount", cn2, adOpenKeyset, adLockOptimistic
MsgBox "更新を開始します ", 64, 更新
Do Until rs.EOF
'該当レコード摘出
If rs!MCD = Me!tx検索 Then
'---------------------------------------------
strcriteria = "CAT = '" & rs!CAT & "'" ' --- A
rs2.Find strcriteria, 0, adSearchForward
If rs2.EOF Then
'
Else
rs!仕入単価 = rs2!discount
End If
'---------------------------------------------
rs!更新日 = Now()
rs.Update
End If
rs.MoveNext
Loop
MsgBox "更新が完了しました ", 64, 更新
（以上）
やりたいことの説明ですが、まず、 If rs!MCD = Me!tx検索 Then とあるように、これはフォーム内にテキストボックスを用意していますので、ここに記入したMCDに一致するものに、検索をかける、ということです。そしてつぎに、strcriteria = "CAT = '" & rs!CAT & "'" 、（省略）rs!仕入単価 = rs2!discount
とありますように、"CAT"を検索対象にし、前者のテーブルの"仕入単価"を、後者のテーブルの"discount"のデータで塗り替えます。
という私の解釈なのですが、（何せ他の人が作りましたので）正しいですよね？
それで今試しているところなのですが、なぜかうまくいきません。何が間違っているのでしょうか？
どういうエラーになるのかというと、これを実行すると、"更新日"というフィールドのみ、更新されて、仕入単価はそのままになります。ちなみに更新日が更新されているのは、このテキストボックスに入れたMCDが一致する全てのデータに対してですので、MCDが一致、には反応しているが、CATを検索して更新をかける、という動作に失敗しているように見えます。
しかし素人なのでこれ以上どうすればよいかがわかりません。どなたか少しでも解決策があれば教えていただけないでしょうか。
今晩は、質問させていただきます。どうぞよろしくお願いいたします。
Form1（メインフォーム）の下にForm2を、
Form2の下にForm3を表示し、これらの順番が変わらないように致したく、
次のようにコーディングいたしました。
【Form1のコード】
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim form2o As New Form2
Dim form3o As New Form3
Me.Owner = form2o
form2o.Show()
End Sub
【Form2のコード】
Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim form3o As New Form3
Me.Owner = form3o
form3o.Show()
End Sub
この状態のまま、タスクバー上のアプリケーション名をクリックした際の
最小化⇔普通化を（３フォームとも一緒に）させたいのですがうまくいきません。。
Form1に、下の【コード１】のようにコーディングいたしましたら、
タスクバーのForm1クリック（最小化） →３つとも最小化（成功）いたしますが、
Form1とForm2がタスクバー上から消えてしまい、Form1クリックによる最大化ができなくなります。
またForm3に、下の【コード２】のようにコーディングいたしましたら、
タスクバーのForm3をクリックしてもForm1が一回ちらつくだけで、最小化すらできません。。
まったく違うイベントを取る方法や、Owner指定方法自体を行わない方法でも結構でございますので、
何かこの動作をうまくできる方法はないでございましょうか？
ずっと悩んでおりますが、解決致しません。もしお詳しい方がいらっしゃいましたら，
是非ともアドバイスいただきたく、どうぞよろしくお願いいたします。
【コード１】
Public Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
Dim form2o As New Form2
If Me.WindowState = FormWindowState.Minimized Then
Owner.WindowState = FormWindowState.Minimized
Owner.Owner.WindowState = FormWindowState.Minimized
ElseIf Me.WindowState = FormWindowState.Normal Then
Owner.WindowState = FormWindowState.Normal
Owner.Owner.WindowState = FormWindowState.Normal
End If
End Sub
【コード２】
Public Sub Form3_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
If Me.WindowState = FormWindowState.Minimized Then
Form1.WindowState = FormWindowState.Minimized
Form2.WindowState = FormWindowState.Minimized
ElseIf Me.WindowState = FormWindowState.Normal Then
Form2.WindowState = FormWindowState.Normal
Form1.WindowState = FormWindowState.Normal
End If
End Sub
何卒お願いいたします。
