MS ACCESS MAILING LIST: Bls: [belajar-access] Re: Cek duplikasi data lebih dari 1 field

Friday, June 10, 2011

Bls: [belajar-access] Re: Cek duplikasi data lebih dari 1 field

Terima kasih atas bantuan reka2 semua

semoga semua jerih payah nya menjadi amal baik dan mendapat balasan berlipat dari Allah swt.

Amin

Akan saya coba alternatif nya pak sudarsono, terima kasih

Sepertinya, dari VBA nya sekilas , ini yang mendekti kebutuhan saya

hanya mohon saya di koreksi, mungkin maksud pak sudarsono bukan Dim strCriteria As String

melainkan Dim skriteria As String

sekali lagi terima kasih atas ilmu dari rekan2 semua

Dari: sudarsono <jkssbma@live.com>
Kepada: belajar-access@yahoogroups.com
Terkirim: Rab, 8 Juni, 2011 14:22:34
Judul: [belajar-access] Re: Cek duplikasi data lebih dari 1 field

saya kasih alternatif lain
buat command control , misal Cmd_CekIsi
sub Cmd_CekIsi_click()
    Dim rst As DAO.Recordset
    Dim strCriteria As String
    skriteria = "rst.Fields('Tanggal') = " & CDate(Me.TextTanggal) & " and rst.Fields('Jam') = " & CDate(Me.TextJam) & " and rst.Fields('Shift') = " & Me.TextSift
    skriteria1 = "Tanggal = #" & Format(Me.TextTanggal, "mm-dd-yyyy") & "#"
    skriteria2 = "Jam = #" & Me.TextJam & "#"
    skriteria3 = "sift = '" & Me.TextSift & "'"
    skriteria = skriteria1 & " and " & skriteria2 & " and " & skriteria3

    Set rst = Me.RecordsetClone
'    rst.MoveFirst
    rst.FindFirst skriteria
    If rst.NoMatch Then
        MsgBox "No entry found.", vbInformation
    Else
        Me.Bookmark = rst.Bookmark
    End If

Set rst = Nothing
end sub

semoga berhasil ...

--- In belajar-access@yahoogroups.com, Aksan Kurdin <aksan.kurdin@...> wrote:
>
> saya sudah menjawab pertanyaan anda di :
> http://tech.groups.yahoo.com/group/belajar-access/message/31611
>
>
> aksan kurdin
>
>
>
> On 6/8/2011 11:37 AM, monas monas wrote:
> > [Attachment(s) <#TopText> from monas monas included below]
> > Maaf repost email karena sepertinya email saya belum masuk atau gagal
> > terkirim di forum ini.....
> > Salam buat rekan rekan semua
> > mohon bantuan pencerahan
> > Saya punya tabel seperti terlampir ( data1)
> > mohon bantuan bagaimana mencari duplikasi data yang ada, jika data
> > baru yang di masukan , dan data sudah ada maka akan di konfirmasi
> > bahwa data telah ada
> > cuma di kasus yang saya hadapi, yang jadi patokan atau pembanding data
> > bukan cuma 1 field tetapi 3 field
> > yaitu Field "Tanggal" , "Jam" , dan Field "Sift"
> > jadi jika data di masukan maka kebutuhan saya adalah access mengecek
> > data di ketiga Field di atas, dan membandingkan dengan data di ketiga
> > Field yang telah tersimpan di tabel *access*
> > Sebagai info, data di masukkan tiap pergantian sift, di lakukan dengan
> > metode import data dari sheet di *excel*
> >
> > Beginilah kalo masih newbie, tau kebutuhanya/langkahnya tapi gak tau
> > menterjemahkan dalam bahasa VBA
> >
> > Mohon pencerahan dari rekan2
> >
> > Mohon juga di sertakan komen pada VBA nya seperti topik sebelumnya
> > agar saya bisa belajar
> >
> > terima kasih sebelumnya...
> >
> >
>