Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5068 / 9994

←次へ　｜　前へ→


	【8158】Re:ﾌｫｰﾑのﾃﾞﾌｫﾙﾄに前のﾚｺｰﾄﾞ値

小僧 - 06/7/4(火) 11:31 -


	引用なし

	パスワード

▼うらめさん：
こんにちは。

初めにお聞きしておくべきだったのですが、
OSやAccessのバージョンによって使用できるコードが変わってきますので
ご質問をされる際には明記しましょうね^^

Access2000、Access2002をお使いでしたら
コードを表示させた状態で、ツールバーより

[ツール]　→　[参照設定]　で

「Microsoft DAO x.x Object Library」

にチェックが付いているかどうかを確認されてみて下さい。

もしチェックの無いようでしたら、
リストから探して一番大きな値のもの選択して下さい。
(恐らく Microsoft DAO 3.6 Object Libraryがあると思います。)

Private Sub 複製_Click()
'要参照 Microsoft DAO x.x Object Library
Dim RS As DAO.Recordset
　　
　　DoCmd.GoToRecord Record:=acNewRec
　　
　　Set RS = Me.RecordsetClone
　　RS.MoveLast
　　'Me![DATA1] = RS![DATA1]
　　'Me![DATA2] = RS![DATA2]
　　RS.Close
　　Set RS = Nothing
End Sub

先ほどの複製_Click の所にそのままコピーしてみてください。

「DATA1」「DATA2」の所が

> ある一部のフィールドだけ

という部分に相当します。
ここはうらめさんの環境に合わせて設定して下さい。

2,062 hits

▼

【8136】ﾌｫｰﾑのﾃﾞﾌｫﾙﾄに前のﾚｺｰﾄﾞ値 うらめ 06/7/3(月) 16:48