Dtpicker

[saat 0]

sape leh bantu?

sebelum nie saya pakai text untuk wat date, mmg leh link ngan ms access....

pastu saya try guna dt picker... gui nye cantik n ok, tp x leh link ngan ms access?.... mcmane yer nak wat plz!!!

[saat 0]

sape leh bantu?

sebelum nie saya pakai text untuk wat date, mmg leh link ngan ms access....

pastu saya try guna dt picker... gui nye cantik n ok, tp x leh link ngan ms access?.... mcmane yer nak wat plz!!!

saya dah cuba, leh tlg betulkan????

Private Sub cmdBorang_Click()
    rptPesanan.Show
End Sub
Private Sub cmdCari_Click()

    Dim strCari As String
    Dim blnJumpa As Boolean

    strCari = UCase(InputBox("Masukkan No Pesanan yang dicari"))
    If Len(strCari) > 0 Then
        Pesanan.Recordset.MoveFirst
        blnJumpa = False
    Do While (Not blnJumpa) And (Not Pesanan.Recordset.EOF)
    If UCase(Pesanan.Recordset.Fields("NoPesanan").Value) = strCari Then
        blnJumpa = True
    Else
        Pesanan.Recordset.MoveNext
    End If
    Loop
    If Not blnJumpa Then
        MsgBox "No Pesanan yang anda masukkan tidak dijumpai", vbInformation, "Tak Jumpa"
        Pesanan.Recordset.MoveLast
    End If
    Else
        MsgBox "Masukkan No Pesanan", vbInformation, ""
    End If
End Sub
Private Sub cmdHapus_Click()
    'Buang data yang sedang dipapar
    With Pesanan.Recordset
         MsgBox "Awak mahu hapuskan rekod?", vbYesNo, "Peringatan"
        .Delete


    'Gerakkan ke arah seterusnya supaya pengguna nampak data yang dibuang
        Pesanan.Recordset.MoveNext

         If Pesanan.Recordset.EOF Then
            MsgBox "Rekod kosong.", vbInformation, "Tiada Rekod"
            Pesanan.Recordset.MovePrevious
        End If
        Else
            No
        End If
    End With
End Sub
Private Sub cmdKeluar_Click()
    frmPesanan.Hide
    frmMUtama.Show
End Sub
Private Sub cmdSimpan_Click()
    Pesanan.Recordset.Update
    EnableButtons
    cmdSimpan.Enabled = False
    cmdTambah.Caption = "&Tambah"
    Text1.SetFocus
End Sub
Private Sub cmdTambah_Click()
' Masukkan rekod baru

    If cmdTambah.Caption = "&Tambah" Then
        Pesanan.Recordset.AddNew
        Text1.SetFocus
        DisableButtons
        cmdSimpan.Enabled = True

    Else
        Pesanan.Recordset.CancelUpdate
        EnableButtons
        cmdSimpan.Enabled = False
        cmdTambah.Caption = "&Tambah"
    End If
End Sub
Private Sub DisableButtons()
    cmdHapus.Enabled = False
    cmdCari.Enabled = False
End Sub
Private Sub EnableButtons()
    cmdHapus.Enabled = True
    cmdCari.Enabled = True
End Sub

Private Sub DTPicker2_Value()
    Pesanan.Recordset.Open "INSERT INTO fieldName("TarikhPesanan") VALUES ('" & DTPicker2.Value & "')",Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\user\Desktop\SMPAGK\VB\smpagk.mdb;



End Sub

[saat 0]

sape leh bantu?

sebelum nie saya pakai text untuk wat date, mmg leh link ngan ms access....

pastu saya try guna dt picker... gui nye cantik n ok, tp x leh link ngan ms access?.... mcmane yer nak wat plz!!!

tunjuk cara mcmane nak masuk image?.... nk tunjuk form