AddNewによる登録

解決

茜 2003-10-29 01:17:29 No: 109460

Private Sub Command3_Click()
Buturyu.rs仕入先マスタ.AddNew
Buturyu.rs仕入先マスタ.Update
End Sub
新規登録したいのですが先頭レコードが削除されて空白レコードが作成され
てしまいます。これを回避するにはどのような記述が必要ですか？

ei 2003-10-29 02:02:22 No: 109461

Buturyu.rs仕入先マスタ.AddNew, "フィールド名", "フィールド値"
で出来ると思いますよ。

茜 2003-10-29 02:25:54 No: 109462

フィールド名とか指定しないで追加したいのですが指定しないと
だめなんでしょうか？
登録はできるので、先頭が削除されたり空白行ができるのだけ回避
したいのですが・・・

通りすがり 2003-10-29 02:39:04 No: 109463

AddNewメソッドで新規レコードがカレントレコードになるので、
そのままUpdateしたら空白行ができるのは当たり前なのでは…？

「登録はできるので」とのことであれば、AddNew後に通常の登録処理を行えば
普通に新規登録できませんか？

KG 2003-10-29 03:12:08 No: 109464

先頭行が削除されているのですか？
AddNewメソッドだけでは削除されないと思いますが、、
ソートした結果空白行が先頭行に来てるだけだとか|o_o;
フィールド名を指定しないで追加とはこういうことでしょうか？

**** ex.)
With Buturyu.rs仕入先マスタ
    .AddNew
    .Fields(0) = ID          '仕入先ID
    .Fields(1) = CorpName    '会社名
    .Update
End With

勘違いもいいところだったら申しわけ有りません|_ _;|

茜 2003-10-29 18:33:45 No: 109465

テキストボックスがAccessと連結しているのでフィールド名を指定してません
ちょっと変えまして
新規入力ボタンを押すとテキストボックスを空白にしてAddNewをセットしています
Private Sub Command5_Click()
    For I = 0 To Controls.Count - 1
      If Left(Controls(I).Name, 4) = "Text" Then
          Controls(I).Text = ""
      End If
    Next I
    Text1.SetFocus

    Buturyu.rs仕入先マスタ.AddNew
End Sub
入力して登録ボタンでUpdateしているのですが
Private Sub Command3_Click()
    Buturyu.rs仕入先マスタ.Update
End Sub
先頭行が空白行に置き換わってしまいます（削除ではないようでした。すいません）が登録はできています。1回空白行ができると次回からはちゃんと登録できます

茜 2003-10-29 22:15:00 No: 109466

DataEnvironmentによりデータの連結をしているのでテキストボックスを空白
にした時点で登録されてしまっているようです。連結した場合はUpdateのした
時点で登録するようにはできないのでしょうか？

KG 2003-10-29 23:21:04 No: 109467

DataEnvironmentを使用してカレントレコードを表示し、
尚且つ、値を書き換えると更新されるような状態ですよね？
（私は使ったことないのでコレ以降は想像にすぎません|o_o;

ならばAddNewを行うだけで、テキストボックスは空白にならないのですか？
（AddNewメソッドで新規レコードがカレントレコードになる為）

茜 2003-10-30 00:27:05 No: 109468

最後のレコードを選択しAddNewだけで自動的に追加レコードができました
ありがとうございます