こんにちは。
アクセスで各レコードの印刷部数がそれぞれ異なるため、各レコードに入力した(フォームから)部数指定で
看板を印刷するようVBAを入力したところ。。。フォーマット時の方でIfブロックに対する End Ifがありませんとコンパイルエラーが出てEnD Ifが反転しています。
VBA初心者で、このVBA事態もネットで調べてコピペしたもので。。。エラー事態を自力で直せません。。。宜しくお願いいたします。
レポートの詳細にテキストボックスを置き名前-[cut]/可視-[いいえ[/コントロールソース-[=1]/
集計実行-[グループ全体]
詳細のプロパティ
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
Dim 指定枚数 As Integer
指定枚数 = Forms![フォーム名]![部数指定フィールド名]
If IsNull([cut]) Then
[cut] = 1
If [cut] <> 指定枚数 Then
Me.NextRecord = False
Me.MoveLayout = True
Me.PrintSection = True
End If
End Sub
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
Dim 指定枚数 As Integer
指定枚数 = Forms![フォーム名]![部数指定フィールド名]
If [cut] <> 指定枚数 Then
[cut] = [cut] + 1
Else: [cut] = 1
End If
End Sub
宜しくお願いいたします。
ＶＢ２０１０で目標はフォーム上で作成したLINESHAPEをクリックして消去する事です
下記のようにコードを書いてみました
Imports Microsoft.VisualBasic.PowerPacks
Public Class Form1
Private px1 As Integer = 0
Private px2 As Integer = 0
Private py1 As Integer = 0
Private py2 As Integer = 0
Private curv As LineShape
Private a As Boolean = True
Private flg As Boolean = True
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
// 座標と始点・終点フラグの初期化
px1 = 0
px2 = 0
py1 = 0
py2 = 0
a = True
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
// SHAPECONTAINER の用意
Dim canvasx As New ShapeContainer
// LINESHAPE の用意
Dim ls1 As New LineShape
// LineShape インスタンス設定
canvasx.Parent = Me
ls1.Name = "curv"
ls1.Parent = canvasx
ls1.BorderColor = Color.Lime
ls1.SelectionColor = Color.Green
ls1.X1 = px1
ls1.X2 = px2
ls1.Y1 = py1
ls1.Y2 = py2
// ShapeContainer のコントロールコレクションへの追加
Me.Controls.Add(canvasx)
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
// 座標と始点・終点フラグの初期化
px1 = 0
px2 = 0
py1 = 0
py2 = 0
a = True
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
//CURV_CLiCKのイベントの登録
AddHandler curv.Click, AddressOf curv_Click
End Sub
Private Sub Form1_Click(sender As System.Object, e As System.EventArgs) Handles MyBase.Click
// Lineの座標を拾う
Dim Pos As Point = Me.PointToClient(Windows.Forms.Cursor.Position)
If a = True Then
px1 = Pos.X
py1 = Pos.Y
a = False
Else
px2 = Pos.X
py2 = Pos.Y
End If
End Sub
Private Sub curv_Click(sender As System.Object, e As System.EventArgs)
// クリックされたLineShapeの消去のつもり、テスト未完
For Each obj In Me.Controls
If obj = sender Then
obj = Nothing
End If
Me.Refresh()
Next
End Sub
End Class
書かれた直線をクリックしても何も起きません。ＬｉｎｅＳｈａｐｅ は確かにハイライト色に変化するのですが、イベントが発生しません
なにとぞご教授を
こんにちは。ADOについてお教えください。
フォームをロード時に接続プロシージャと切断プロシージャを走らせたいと思います。
ConnectDatabaseを呼び出しは成功しますが、CloseDatabase呼び出しには失敗します。
スコープの問題で、rs、cnのオブジェクトが無い為だと思います。
ConnectDatabaseで作成されたcn、rsオブジェクトを別の関数で処理するにはどのようにコードをかけばよろしいでしょうか？宜しくお願い致します。
Private Sub Form_Load()
Call ConnectDatabase
Call CloseDatabase
End Sub
Module1
------------------
sub ConnectDatabase()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
処理～～～～
end sub
sub CloseDatabase()
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
end sub
