Terjebak pada Access coding


1

Saya memiliki kode yang menambahkan catatan dari formulir ke tabel, tetapi ketika kotak centang dipilih, itu menambahkan -1 (benar) di bidang tabel. Bagaimana saya bisa merevisi kode saya untuk menambahkan kata pengganti daripada -1?

Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Raw_Audits")

With rs
  .AddNew
  .Fields("Name") = Me.Combo0
  .Fields("COLL") = Me.Check205
  .Fields("COMP") = Me.Check227
  .Fields("UMPD") = Me.Check294
  .Update
  .Close
End With

1
Tambahkan pernyataan JIKA KEMUDIAN!
Eric F

Jawaban:


1

Anda bisa menggunakan Jika..Lalu pernyataan ...

Misalnya, ganti:

.Fields("COLL") = Me.Check205

dengan

If Me.Check205 = -1 then
    .Fields("COLL") = "True"
End If

Terima kasih! Saya sudah mencoba beberapa variasi, tetapi tidak ada yang berhasil, yang ini bekerja dengan sangat baik!
InNeedOfHelp
Dengan menggunakan situs kami, Anda mengakui telah membaca dan memahami Kebijakan Cookie dan Kebijakan Privasi kami.
Licensed under cc by-sa 3.0 with attribution required.