davidrobert
پنج شنبه 28 دی 1391, 14:27 عصر
سلام خسته نباشید من دارم پروژه پوشاک می نویسم با وی بی میخواستم وقتی یک رکورد وارد میکنم یه شماره ردیف به طور خودکار به تکس باکس ردیف من اضافه بیشه یعنی یک بود شماره ردیف بعدی بیشه 2 و اعلا آخر ولی وقتی تکس باکس که داریم یعنی 3 تا تکس باکس دارم که وقتی تکس باکس دوم رو پاک میکنم تکس باکس 3 جای گزین قبلی بیشه ولی نمی توانم به این صورت درست کنم از این کد هم که قرار دادید استفاده کردیم به این صورت نشود.
Private Sub Form_Activate()
On Error Resume Next
a = Adodc1.Recordset.RecordCount
txtredef.Text = Val(a(
Next
Dim code As Integer
Set rs = cnn.Execute("select max(code) form kheredkala("
code = rs.Fields(1)
txtredef.Text = "" & code
End Sub
ممنون میشیم به هم بگید چطور درست کنیم محل رویداد هم بگید کجا قرار بدم.
اینم آدرسی که این کد رو ورداشتم.
http://barnamenevis.org/showthread.php?269429-%D9%83%D8%AF-%D8%AA%D8%B1%D8%AA%D9%8A%D8%A8-%D8%B4%D9%85%D8%A7%D8%B1%D9%87-%DA%AF%D8%B0%D8%A7%D8%B1%D9%8A-%D8%AE%D9%88%D8%AF-%D9%83%D8%A7%D8%B1-%D8%A7%D8%B3%D9%86%D8%A7%D8%AF-%D8%AD%D8%B3%D8%A7%D8%A8%D8%AF%D8%A7%D8%B1%D9%8A-%D9%85%D9%8A-%D8%AE%D9%88%D8%A7%D8%B3%D8%AA%D9%85
Private Sub Form_Activate()
On Error Resume Next
a = Adodc1.Recordset.RecordCount
txtredef.Text = Val(a(
Next
Dim code As Integer
Set rs = cnn.Execute("select max(code) form kheredkala("
code = rs.Fields(1)
txtredef.Text = "" & code
End Sub
ممنون میشیم به هم بگید چطور درست کنیم محل رویداد هم بگید کجا قرار بدم.
اینم آدرسی که این کد رو ورداشتم.
http://barnamenevis.org/showthread.php?269429-%D9%83%D8%AF-%D8%AA%D8%B1%D8%AA%D9%8A%D8%A8-%D8%B4%D9%85%D8%A7%D8%B1%D9%87-%DA%AF%D8%B0%D8%A7%D8%B1%D9%8A-%D8%AE%D9%88%D8%AF-%D9%83%D8%A7%D8%B1-%D8%A7%D8%B3%D9%86%D8%A7%D8%AF-%D8%AD%D8%B3%D8%A7%D8%A8%D8%AF%D8%A7%D8%B1%D9%8A-%D9%85%D9%8A-%D8%AE%D9%88%D8%A7%D8%B3%D8%AA%D9%85