- ベストアンサー
10レコード目の主キーの値を取得したい場合
Debug.Print Me.Form.CurrentRecord これで現在のレコードが取得でき、 Debug.Print Me.Form("主キー").Value これで現在のレコードの主キーの値が取得できるのですが、 例えば、10レコード目の主キーの値を取得したい場合は、 どのようなコードになるのでしょうか？ よろしくお願いします。
- nehrytgbhh
- お礼率100% (62/62)
- オフィス系ソフト
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- kmetu
- ベストアンサー率41% (562/1346)
どこから10レコード目か不明ですが以下のページを参考にしてみてください。 フォームよりレコードを操作する http://accessvba.pc-users.net/form/operation.html
お礼
回答頂きありがとうございました。
関連するQ&A
- アクセスVBA 一個前や一個後の値を取得するには
フォームの中にあるサブフォームの現在選択中のレコードの値を取得は出来たのですが 一個前や一個後の値を取得するにはどうすればいいですか？ Sub test() Debug.Print Forms("F_Main").Controls("F_SubMain").Form.Filter Debug.Print Forms("F_Main").Controls("F_SubMain").Form.Controls("日付") End Sub で、現在のレコードの情報は取得できましたが 上のレコード、下のレコードを取得するコードを教えてください。
- ベストアンサー
- オフィス系ソフト
- 登録したレコードの主キーの取得方法
主キーに自動インクリメント（ nextval ）を使用しているテーブルで、 そこにレコードを登録したときにそのとき使われた主キー を取得する方法はありますでしょうか。 例えば 主キー｜データ １｜ＡＡＡ ２｜ＢＢＢ ３｜ＣＣＣ にＤＤＤと登録したら恐らくは４になるのですが、 主キー｜データ １｜ＡＡＡ ２｜ＢＢＢ ３｜ＣＣＣ ４｜ＤＤＤ ←追加された データを登録したときにその主キーに何が使われたかが知りたいです が知りたいです。 自分で考えてる方法は今の主キーで使ってるシーケンス＋１が割り当てられる（だろう）というやり方なのですが、複数のレコード登録が同時にあった場合に不整合が起きるのでどうしたものかと困ってます。 なにか良い方法をご存知の方いらっしゃいましたらお教えください。
- ベストアンサー
- PostgreSQL
- ExcelVBA TextBoxの値を取得できない
Excel2010です。 2つのUserFormがあり（UserForm1・UserForm2とします）、UserForm1にはTextBox1～100を配置し、UserForm2にもTextBox1～150を配置しています。 それぞれのUserFormにおいて、そのUserForm名を変数に格納しておき、TextBoxの値を取得するコードを別のプロシージャ（「TextBoxチェック」）に書き、それを呼び出してTextBoxの値を格納しようとしましたができませんでした。 該当箇所のコードは以下のとおりです。 Public UFName As String 'UserFormの名前 Sub UserForm1処理() Const Num = 100 UFName = "UserForm1" Call TextBoxチェック(Num) End Sub Sub UserForm2処理() Const Num = 150 UFName = "UserForm2" Call TextBoxチェック(Num) End Sub Sub TextBoxチェック(Num As Integer) Dim i As Integer Dim Con As Control With UserForms.Add(UFName) For i = 1 To Num Set Con = .Controls("TextBox" & i) Debug.Print Con.Name Debug.Print .Controls("TextBox" & i).Value （その他の処理のコードは省略） Next i End With End Sub 上のコードでは1つ目のDebug.Printの結果（TextBox名）は取得できていますが、2つ目のDebug.Printの結果（TextBoxの値）は空欄になってしまいます。 つまり、 With UserForms.Add(UFName)が、 Set Con = .Controls("TextBox" & i) では反映されているのに、 .Controls("TextBox" & i).Value では反映されていないということだと思います。 また、 Debug.Print .Controls("TextBox" & i).Value を Debug.Print UserForm1.Controls("TextBox" & i).Value とすると、UserForm1の値を取得できます。 また、 With UFName_UF を With UserForm1 にすると、 Debug.Print .Controls("TextBox" & i).Value の値は取得できます。 UserForm1とUserForm2において、TextBoxの値を取得する部分は共通しているため、その部分を別プロシージャにして呼び出して処理したいのですが、うまくいきません。 TextBoxの値を取得できない理由や、対処法が分かれば教えていただきたいです。
- ベストアンサー
- Excel（エクセル）
- フィールドの主キープロパティを取得したい
お世話になっております。 Select文で抽出したレコードセットのフィールドのプロパティを参照し、主キーの一部であるかを取得したいと思っております。 <省略> Select * From Atbl Where Id = IdHensu <省略> Debug.Print rstA.Fields(0).Properties("Keycolumn").Value でやってみましたが、全て[False]で戻ってきてしまいます。 使い方が間違っているのでしょうか？ MSDEには、これで取得できると書いてあると思うのですが・・・ 皆様、宜しくお願い申し上げます。 ＜環 境＞ Windows2000SP2 VB6SP5 + SQL7.0SP3 SQLにはADOで接続しています。
- 締切済み
- Visual Basic
- ２つ目のレコードの値を取得するには？
こんにちは。いつもお世話になりっぱなしです。 今回は、あるテーブルの２つ目以降のレコードの値を取得 できないかなぁと思って質問しました。 テーブルＡにＢというフィールドがあります。 その中にはア、イ、ウ・・・・とレコードがあるとした場合、 １つ目のレコードは Ｄfirst（"Ｂ","Ａ"）で取得できますが、 ２つ目のレコードはどうやって取得すればいいのでしょうか？ 関数で出来れば最高なんですが、無理なようでしたら 別の方法でも構いません。 皆さんのお力をお貸しください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- フィルタ後のテーブルのレコード数を取得したい
アクセスｖｂａです。 フィルタ後のテーブルのレコード数を取得したいのですが Debug.Print DCount("[フィールド１]", "テーブル1") だと、フィルタ前の数が取得されてしまいます。 フォーム1にテーブル1を紐付けて、 更にフィルタをしているのですが、 元のテーブル１のレコード数が10として、 フィルタ後が3なら、3を取得するVBAコードを教えてください。
- ベストアンサー
- オフィス系ソフト
- 主キーの取得
現在SQLServer2000を使用しています。 存在しているテーブルから主キーを取得したいのですが うまく行きません。 sysobjects,syscolumnsシステムテーブル辺りから 取得できそうでできないのでイライラしています。 どなたかご教授お願いいたします。
- ベストアンサー
- SQL Server
- Access 主キーの変更について
調査データの集計、蓄積用のＤＢを制作しております。 制作しているＤＢは主キーに県コードが含まれています。 そのため、調査データの住所に変更があるとコードを変えなければなりません。 AccessでのDBはほぼ完成しており、今からコードの形態を変更することは避けたいです。（もともと古い独自のＤＢのデータを流用しています。) 現在、主キーに県コードが含まれていますが、それとは別に県コードフィールドを設けています。 ※コードの形態 （先頭の二桁又は一桁が県コード、コードは４桁又は５桁） 例 主キー 北海道 1001 東京 13199 沖縄 47001 新規のデータを入力する際に主キーを入力しているのですが ＶＢＡの知識がないので県コードは個別に入力しています。 住所が変わり県が変更になった場合主キーを変更する必要が あるのですが一対多でリレーションシップをいくつもしてあり サブフォームなども使用してます。 主のフォームで主キーを変更した場合、関連付けられたレコードの主キーも変更されるようにしたいのですが可能でしょうか？
- 締切済み
- オフィス系ソフト
- chromeでフォームの値が取得できない
PHPでフォームに入力された値を取得して画面に表示させる処理において、 Javascriptでフォームの値を変更した場合、chromeだと変更後の値が 取得できません。 例えば、 <form name="form" method="post" action="index.php"> <input type="checkbox" name="chk1" value="111"> <input type="hidden" name="data1" value="AAA"> <input type="submit" value="送信"> </form> というようなフォームがあったとして、Javascriptで値を <form name="form" method="post" action="index.php"> <input type="checkbox" name="chk1" value="222"> <input type="hidden" name="data1" value="BBB"> <input type="submit" value="送信"> </form> と、変更しても送信ボタンを押して取得できる値は、上の方の値になります。 IEやFireFoxでは問題なく変更後の値が取得できるのですが、chromeだと 取得できません。 なにか解決方法があるのか、それともchromeの仕様なのかご教示いただければと 思います。 どうかよろしくお願いいたします。
- 締切済み
- JavaScript
お礼
回答頂きありがとうございました。