merhaba
örneginiz olsa daha kolay olurdu, ancak ...
Set db = CurrentDb()
SQL = "SELECT TBLMALZEMELER.MLZNO FROM TBLMALZEMELER ORDER BY TBLMALZEMELER.MLZNO DESC;"
Set rs = db.OpenRecordset(SQL)
If rs.EOF = True Then B1 = 1: GoTo 100
rs.MoveFirst
B1 = right(rs!MLZNO, 5) + 1
100
Me.txtMLZNO = "MN-" & Format(B1, "00000")
.....gibi yapılabilir
Number Generator / Numeratör Uygulaması
Bu Konudaki Yorumlar |
Number Generator / Numeratör Uygulaması - Yazar: Saltukhan Dura - 14/03/2018, 10:41
Cvp: Number Generator / Numeratör Uygulaması - Yazar: C*e*l*o*y*c*e - 14/03/2018, 11:27
Cvp: Number Generator / Numeratör Uygulaması - Yazar: Saltukhan Dura - 14/03/2018, 11:51
Cvp: Number Generator / Numeratör Uygulaması - Yazar: C*e*l*o*y*c*e - 14/03/2018, 11:58
Cvp: Number Generator / Numeratör Uygulaması - Yazar: Saltukhan Dura - 19/03/2018, 09:08
Cvp: Number Generator / Numeratör Uygulaması - Yazar: ozanakkaya - 19/03/2018, 12:22
Cvp: Number Generator / Numeratör Uygulaması - Yazar: Saltukhan Dura - 19/03/2018, 13:55
Cvp: Number Generator / Numeratör Uygulaması - Yazar: ozanakkaya - 19/03/2018, 14:10
Cvp: Number Generator / Numeratör Uygulaması - Yazar: ozanakkaya - 07/04/2018, 10:10
|
Konuyu Okuyanlar: 1 Ziyaretçi