[belajar-access] Nambah angka otomatis

Thu, 17 Jun 2010 21:11:30 -0700 

Hallo pakar access semua...

saya punya textBox [Shipment_No] dimana didalam textBox tsb saya
masukan Input Mask "Ship-"0000;0
kemudian saya buat coding sbb:
Private Sub CmdAddRecord_Click()
On Error GoTo Err_CmdAddRecord_Click
    Dim strShipNum As String

    strShipNum = DMax("Shipment_No", "TblShipment")

    DoCmd.GoToRecord , , acNewRec
    Me.Shipment_No = strShipNum + 1
    Me.Assessment_Date.SetFocus

Exit_CmdAddRecord_Click:
    Exit Sub

Err_CmdAddRecord_Click:
    MsgBox Err.Description
    Resume Exit_CmdAddRecord_Click

End Sub

namun hasilnya error. tapi cara ini bisa jalan kalo Input Mask-nya
tidak saya isi dan di Formatnya saya isi 0000. Salah dimananya ya?

regards
CW

Kirim email ke