Maaf suhu,
nambahin dikit
strShipNum = "Ship-" & Format(CInt(Right(Nz(DMax("Shipment_No", "TblShipment"),
"Ship-0000"), 4)) + 1, "0000")Ditambah string "Ship-" biar lengkap...kalo nggak cuma 0001,0002 dst yang tersimpan, kecuali emang tujuannya begitu. Ditambah Nz seandainya table masih kosong return value Null di-handle juga. Thanks. LH
