こんにちは。
折角教えて頂けるというのに、サンプルソースをどう作れば良いか
悩んじゃってしまい、今日になってしまいました。
（結局、すごく簡単なものになってしまいましたが...）
サンプルソース
（実際はDBにデータを追加しています）
メニュー画面（フォームジュール）
Option Explicit
Private Sub cmdEnd_Click()
End
End Sub
Private Sub cmdForm1_Click()
Form1.Show , Me
End Sub
Private Sub cmdForm2_Click()
Form2.Show , Me
End Sub
サブ1（フォームモジュール）
Option Explicit
Private strMainData As String
Private Function ADD_DATA(ByVal sData As String) As Boolean
On Error GoTo Error_ADD_DATA
ADD_DATA = False
If Len(strMainData) = 0 Then
strMainData = sData
Else
strMainData = strMainData & vbCrLf & sData
End If
ADD_DATA = True
Exit Function
Error_ADD_DATA:
Call MsgBox(Err.Description)
End Function
Private Sub cmdAdd_Click()
If ADD_DATA(Text1.Text) Then
frmMenu.Label1 = strMainData
End If
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Form_Load()
strMainData = frmMenu.Label1.Caption
End Sub
サブ2（フォームモジュール）
Option Explicit
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdDelete_Click()
Dim strTemp As String
If DEL_DATA(strTemp) Then
frmMenu.Label1.Caption = strTemp
End If
End Sub
標準モジュール
Option Explicit
Public Function DEL_DATA(ByRef sData As String) As Boolean
On Error GoTo Error_DEL_DATA
DEL_DATA = False
sData = ""
DEL_DATA = True
Exit Function
Error_DEL_DATA:
Call MsgBox(Err.Description)
End Function
以上、宜しくお願いします。
投稿日:2006/04/03 14:41
投稿者:なな
返信 引用返信 修正 削除