Terima kasih atas tanggapan Sdr Sudarsono, karena newbie saya masih juga fasih tentang relationship. Menurut saya kalo ingin menjadikan lebih dari 1 (satu) kolom sebagai Id Unique, maka harus menggunakan 2 (dua) primary key. Pada contoh yang diberikan ternyata anggapan saya ini salah  . Pertanyaannya sekarang; Bagaimana menerapkan error handling pada kasus diatas. Ketika terjadi pengisian ganda pada kolom-kolom Id Unique (dalam kasus ini; kolom Id dan ujianke) masih menghasilkan jendela error dengan alternatif end, debug, dan help. Tentunya lebih baik jika bila terjadi entry data ganda muncul messagebox "Maaf, Anda tidak diperkenankan mengisi data ganda" (atau kalimat lain), dan ketika user menekan tombo OK, kursor kembali ke textbox pertama guna pengisian ulang data. Saat saya mencoba kembali memakai error handling yang saya pakai pertama dan kode koreksi dari Sdr Sudarsono (struktur dan relasi telah diperbaiki), yaitu : Private Sub Command4_Click() On Error GoTo TheSchool Dim dbs As Database Dim kode As String Dim mText0 As String Dim mText2 As String Set dbs = CurrentDb mText0 = Nz(Me.Text0.Value, "") mText2 = Nz(Me.Text2.Value, "") kode = "insert into nilai(id,ujianke,nilai) Values ('" & mText0 & "','" & mText2 & "',0);" CurrentProject.Connection.Execute (kode) MsgBox "Saved !" Call kosong Call awal naK: dbs.Close Exit Sub TheSchool: MsgBox "Kode Error : " & Err.Number + Chr(13) + Err.Description, vbCritical Resume naK End Sub Sub kosong() Me!Text0 = "" Me!Text2 = "" End Sub Sub awal() Me!Text0.SetFocus End Sub kembali muncul error : Run-time error '13' Type mismatch aduhhhhh.... --- On Wed, 4/6/11, sudarsono <jkssbma@yahoo.com> wrote:
|
__._,_.___
No comments:
Post a Comment