3

別のフォームのボタンからフォームを開こうとしています。ボタンのあるフォーム、contracts_all フォームにはフィールド ID があり、その ID を持つ情報を含むフォームを開きたいと考えています。この 2 番目のフォームである契約には、追加情報があり、その特定の契約を編集できるボタンがあります。何かを取得できましたが、「実行時エラー 2489。フォーム コントラクトが開かれていません」というメッセージが表示されます。コードは以下のとおりです。前もって感謝します。

Private Sub Command74_Click()
    ID = [Forms]!Contracts_all![ID]
    DoCmd.GoToRecord acDataForm, "Contracts", ID
End Sub
4

2 に答える 2

1

私は答えを持っています..あなたの助けに感謝します..私がやったことは、Contracts_allフォームからIDを取得し、契約フォームを再度開くたびに.hereが私のコードです

Private Sub next_Click()
    On Error GoTo Err_next_Click
    DoCmd.SelectObject acForm, "contracts_all"
    DoCmd.GoToControl "ID"

    DoCmd.GoToRecord , , acNext
    DoCmd.OpenForm "Contracts", , , "ID = " & Forms!contracts_all![ID]

Exit_next_Click:
    Exit Sub

 Err_next_Click:
    MsgBox Err.Description
    Resume Exit_next_Click

 End Sub
于 2013-06-12T16:28:21.337 に答える
1 
Dim Rs As Recordset
Dim Test As Integer
Dim varBookmark As Variant

DoCmd.OpenForm "Contracts"


Set Rs = Forms!Contracts.RecordsetClone

    Rs.FindFirst ("[ID] = '" & Me![ID] & "'")

varBookmark = Rs.Bookmark
Forms!Contracts.Form.Bookmark = varBookmark

If Rs.NoMatch Then
  MsgBox "That does not exist in this database."
Else
End If
于 2013-06-11T15:54:02.283 に答える