none
Permohonan Bantuan RRS feed

  • Pertanyaan

  • Maaf gan saya buat aplikasi database biodata pelamar dan pegawai saat ini saya bermasalah pada koding pemindahan 

    data pelamar yang diterima ke data pegaawai dimana pencarian berdasarkan No.Regs pelamar berikut ini koding nya mohon bimbingannya Gan...

    Private Sub CmbCari_AfterUpdate()
    DoCmd.GoToRecord , , acNewRec
    Dim db As Database, rs As Recordset, s As String
    On Error Resume Next
        Me.RecordsetClone.FindFirst "[NoRegs] = '" & Me![CmbCari] & "'"
      s = "INSERT INTO Pelamar (Nama, Alamat, Agama) SELECT Nama, Alamat, Agama FROM Pegawai ORDER BY [NoRegs];"
     Me.Bookmark = Me.RecordsetClone.Bookmark
    Exit_Text12_Click:
        Exit Sub
        
    End Sub

     

    Rabu, 18 November 2015 11.16

Jawaban

  • Hi D4U5

    Menurut saya kesalahannya mungkin pada control exit click, seharnynya diubah menjadi "ExitCmbCariClick" saja

    Selain itu tidak ada kesalahan query nya

    Semoga berhasil 


    Andy Nugraha

    TechNet Community Support

    Rabu, 02 Desember 2015 02.24
    Moderator

Semua Balasan

  • Hi D4U5

    Mohon maaf atas keterlambatan membalas forum ini

    Adakah error message yang muncul ketika eksekusi kode diatas? atau hanya value yang tidak ada saja?

    Kita tunggu balasannya

    Terima kasih


    Andy Nugraha

    TechNet Community Support

    Rabu, 25 November 2015 04.39
    Moderator
  • Hi D4U5

    Adakah update untuk masalah ini?


    Andy Nugraha

    TechNet Community Support

    Senin, 30 November 2015 06.36
    Moderator
  • Hi D4U5

    Menurut saya kesalahannya mungkin pada control exit click, seharnynya diubah menjadi "ExitCmbCariClick" saja

    Selain itu tidak ada kesalahan query nya

    Semoga berhasil 


    Andy Nugraha

    TechNet Community Support

    Rabu, 02 Desember 2015 02.24
    Moderator