2

正確な構文がわからないので、私は近くにいると思います。

VBAを使用して、テーブルStock ConversionからSCID（主キー）の値に基づいてレコードを選択しようとしています。

If LookUp("Source PC", "Stock Conversion") Is Null Then
sc1.AddNew
sc1.Fields("[Source PC]").Value = Me.cmbSource.Value
sc1.Update
End If

これは私が今持っているコードです。ご覧のとおり、値がNullの場合にのみフィールドにデータを入力する必要があります。SCID=レコードであるソースPCを見つける必要があります。

よろしくお願いします、ボブP

4

1 に答える 1

3

ここで、レコードセットを使用する必要があります。

Dim rs As DAO.Recordset
Dim sSQL As String

'SQL to select a record from a table MyTable based on a field or control
'called ID in the current form
sSQL="Select Id,Field1 from MyTable Where Id=" & Me.ID

'Open the recordset
Set rs = CurrentDB.OpenRecordset(sSQL)
'Test for End Of File to see if the recordset is empty ...
If rs.Eof Then
   'add a new record
   rs.AddNew 
   rs!Field1 = "Something"
   rs.Update
Else
   '... otherwise, do what you want with the record,
   'let us say edit.
   rs.edit
   rs!Field1 = "Something"
   rs.Update
End If
于 2012-10-03T12:20:11.057 に答える