御教授してください。
現在、研修でVBの演習問題で社員名簿を作成してます。
詳細
1、form1に追加、更新、削除のコマンドボタンがあります。
2、その際に追加、更新をクリックするとform2の社員名やら、コード、TELL、住所の入力formが表示されます。3、追加、更新で1つのform(form2のことです)を共有?しているような状態で書かないといけない(追加、更新をクリックしても同じfrom2がでて異なる点はfrom2の一番下のコマンドボタンの追加と更新が変わります)これをVBでどのようにして記入すればよろしいでしょうか?
form1→追加クリック→form2のコマンドボタンが追加表記になり、テキストに入力したものが追加できる。
form1→更新クリック→form2のコマンドボタンが更新表記になり、テキストに入力したものが更新できる
*ここで更新と書きましたがSQLサーバーをつかってます。入力したものがサーバのDBに追加なり更新される状態です。
DB&VBの複合演習問題みたいな感じです。
宜しくお願いします。
No.1
- 回答日時:
UserForm2.CommandButton1.Caption = "更新"
Caption の値(更新・追加)をチェックして処理を分けると良いかも知れません。
No.2
- 回答日時:
お世話になります。
使用されている VB のバージョンはどちらでしょう。
もし .NET であれば、
Form2 に 新規用モードにするメソッドと
更新用モードにするメソッドを用意してやってはどうでしょう。
Private m_IsUpdate As Boolean
''' 更新用
Public Sub ShowForUpdate(ByVal id As Integer)
Me.m_IsUpdate = True
Me.TextBox1.Text = id.ToString()
Me.Button1.Text = "更新"
End Sub
''' 新規用
Public Sub ShowForInsert(ByVal id As Integer)
Me.m_IsUpdate = False
Me.TextBox1.Text = id.ToString()
Me.Button1.Text = "新規"
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.m_IsUpdate Then
'更新処理
Else
'新規処理
End If
End Sub
No.3ベストアンサー
- 回答日時:
お世話になります。
VB6.0 なら、こんな感じでしょうか。
''' Form1
Private Sub Command1_Click()
Dim f2 As Form2
Set f2 = New Form2
Call f2.SetUpdateMode(True) '更新モードで呼び出し
Call f2.SetDisplayData("0001")
Call f2.Show(vbModal)
Set f2 = Nothing
End Sub
''' Form2
Private m_IsUpdate As Boolean
Public Sub SetUpdateMode(ByVal IsUpdate As Boolean)
m_IsUpdate = IsUpdate
If IsUpdate Then
Me.Command1.Caption = "更新"
Else
Me.Command1.Caption = "新規"
End If
End Sub
Public Sub SetDisplayData(ByVal id As String)
Me.Text1.Text = id
If m_IsUpdate Then
'更新時処理
Else
'新規時処理
End If
End Sub
Private Sub Command1_Click()
If m_IsUpdate Then
'更新時処理
Else
'新規時処理
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- JavaScript 入力フォームの javascript で メールアドレスの正規チェックをを行い、ボタンをクリックして 2 2022/04/27 16:06
- HTML・CSS ボタンをクリックした時に、入力フォームのすぐ下部に、「入力欄が空白です」というテキストメッセージが表 1 2022/04/27 16:25
- その他(プログラミング・Web制作) google formsを使ったタスク依頼フォーム作成におけるご相談 1 2023/06/22 15:55
- JavaScript ①入力フォーム→②確認表示画面→③送信完了画面のコードを書いているのです、 入力フォームから受け取っ 2 2022/05/10 16:45
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- その他(データベース) c言語の問題です。これを踏まえてコーディングしたいのでおしえていただきたいです。 3 2023/08/03 09:27
- CGI perlで書いたcgiでsqliteの使い方を教えてください 2 2023/05/08 21:29
- Excel(エクセル) Excelでのデータ管理 6 2022/12/24 09:33
- UNIX・Linux Linuxについて質問です。 以下のような設定をしたMakefileを作成するにはどう記述すればよい 1 2023/02/03 20:10
- その他(Microsoft Office) エクセルでテーブルの最終行が自動追加されない 1 2023/01/04 15:09
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
メルカリのメルカードで買い物...
-
VBAでループ内で使う変数名を可...
-
switch の範囲指定
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
お家デートをしててハグを長い...
-
【Excel】特定の文字を含むセル...
-
取り消し線が入った文字を削除...
-
新婚半年でセックスレスになっ...
-
セックスレスの既婚女性は自慰...
-
VBA SaveChanges 上書きされない
-
VBAのユーザーフォームのテキストボックス...
-
緊急です。 知り合いから50kgの...
-
読み方教えてください。
-
緊急です。 知り合いから50kgの...
-
エクセル95のマクロで自動的に...
-
月度は何て読みますか?
-
EXCEL VBA----ユーザーフォーム...
-
VBAでセルに値が入力されるまで...
-
Webアプリや業務アプリのデータ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
メルカリのメルカードで買い物...
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
【Excel】特定の文字を含むセル...
-
EXCEL VBA マクロ 実行する度に...
-
DoEventsがやはり分からない
-
UMLでの例外処理
-
月度は何て読みますか?
-
switch の範囲指定
-
VBの質問#if 0 then ってどう...
-
セルの値が0はクリアするマクロ
-
VB.NET Excelを読み込んでDataT...
-
Do~Loopした回数をカウントしたい
-
Loadイベント中にほかのイベン...
-
Select Case文でこのようなこと...
-
findは動くがfindnextがマクロ...
-
緊急です。 知り合いから50kgの...
-
リョウ・・・量?料?
-
理不尽、行き場のないイライラ...
おすすめ情報