[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...
> >
> >
>

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___