如何實現自動生成憑証(求代碼)

Question

1.要求:當偶按"登記"按鈕時,將自動生成憑証號碼.2.憑証號碼=系統日期+dj+三位數字3.數據無記錄時憑証號碼等于(系統日期+dj+三位數字)之組合,若有記錄時憑証號碼=(系統日期+dj+三位數字)+14.求代碼.^_^

Answer 1

憑証號碼=系統日期+dj+三位數字  dj:代表登記自己有段代碼但調試不成功
bh.text=date & "dj" & fromat(1,"###000")if bh.text<>lsph.text
   bh.text=date & "dj" & format(val(lsph.text,3))+1,"###000")
else
   bh.text=date & "dj" & fromat(1,"###000")
end if
bh.text   '指新憑證編號
lsph.text '在數據登記後將bh.text值賦給lsph.text.也就是說它是上一次憑証號碼.

Answer 2

那个1是什么,是一个数值吗?几位的?如果是三位以上的可以用mid(str(1),1,3)得到前三位

Answer 3

假設:bh.text=date & "dj" & fromat(1,"###000")結果是:2004-12-19dj001下一個編號應該是:2004-12-19dj002,一直延續下去!format(val(right(lsph.text,3))+1"###000):取該值的最右邊的三位值然後再加1,使期變成002

Answer 4

暈!抄寫錯了!呵呵...bh.text=date & "dj" & format(val(lsph.text,3))+1,"###000")    'X錯誤bh.text=date & "dj" & format(val(right(lsph.text,3))+1"###000")
請賜教!^_^

Answer 5

bh.text=date & "dj" & format(val(right(lsph.text,3))+1,"###000")

Answer 6

bh.Text = Date & "dj" & Format(Val(Right(lsph.Text, 3)) + 1, "###000")
lsph.Text = bh.Text

Answer 7

1.發現一怪事:
第一次按"登記"按鈕時,憑証號碼是2004-12-19dj001,再按"確定"按鈕.再按"登記"按鈕時,憑証號碼還是2004-12-19dj001.若手動更改為2004-12-19dj002.再按"確定"按鈕.依次再按"登記"按鈕後,憑証號碼這時才變成2004-12-19dj003.為什麼第二次不會自動編號而要手動編號才行!2.請各位再幫偶分析一下!或提供更好的代碼程序!呵呵....

Answer 8

用一个按钮跟两个textbox控件来测试一下吧.Private Sub Command1_Click()
bh.Text = Date & "dj" & Format(Val(Right(lsph.Text, 3)) + 1, "###000")
lsph.Text = bh.Text
End Sub

Answer 9

TO: tztz520(午夜逛街) 
1.偶就是有一个按钮跟两个textbox控件(lsph.Text,bh.Text),否則就沒有lsph.Text之控件?2.請再指教!^_^

Answer 10

'就是一个textbox也可以Private Sub Command2_Click()
bh.Text = Date & "dj" & Format(Val(Right(bh.Text, 3)) + 1, "000")
End Sub

Answer 11

Private Sub Command1_Click()
bh.Text = Date & "dj" & Format(1, "###000")If bh.Text = lsph.Text Then
   bh.Text = Date & "dj" & Format(Val(Right(lsph.Text, 3)) + 1, "###000")Else
   bh.Text = Date & "dj" & Format(1, "###000")
End IfEnd SubPrivate Sub Command2_Click()
 lsph.Text = bh.Text
End Sub
怪!還是不能自動編號!