- Katılım
- 31 Mart 2008
- Mesajlar
- 91
- Excel Vers. ve Dili
- 2003
Dim db As DAO.Database, rst As DAO.Recordset
Dim Say As Integer
Set db = CurrentDb
strSQL = "SELECT * From Srg "
strSQL = strSQL & "WHERE [Adet No]***** & Val(Me.Liste)
Set rst = db.OpenRecordset(strSQL)
Say = rst.RecordCount
Me.[Adet No] = Me.Liste
If Say = 0 Then
Me.[Dolum No] = "1"
Else
rst.MoveLast
eno = rst("[Dolum No]")
Me.[Dolum No] = eno + 1
End If
kullanmakta olduğum formda yukarıda belirtmiş olduğum srg sorgusu ile dolum no
yapılan kayıttaki adet no ya göre Liste açılan kutusundaki adet no seçilince
otomatik yazılıyordu, yani adet no ne ise ondan daha önce yapılan kayıtlar sayılarak yeni yapılan kaydın dolum no su +1 oluyordu, sorunlar çıktı ve ilgisiz alakasız sayılarda dolum no takılıp kalmaktadır
sebebini bulamıyorum.
Dim Say As Integer
Set db = CurrentDb
strSQL = "SELECT * From Srg "
strSQL = strSQL & "WHERE [Adet No]***** & Val(Me.Liste)
Set rst = db.OpenRecordset(strSQL)
Say = rst.RecordCount
Me.[Adet No] = Me.Liste
If Say = 0 Then
Me.[Dolum No] = "1"
Else
rst.MoveLast
eno = rst("[Dolum No]")
Me.[Dolum No] = eno + 1
End If
kullanmakta olduğum formda yukarıda belirtmiş olduğum srg sorgusu ile dolum no
yapılan kayıttaki adet no ya göre Liste açılan kutusundaki adet no seçilince
otomatik yazılıyordu, yani adet no ne ise ondan daha önce yapılan kayıtlar sayılarak yeni yapılan kaydın dolum no su +1 oluyordu, sorunlar çıktı ve ilgisiz alakasız sayılarda dolum no takılıp kalmaktadır
sebebini bulamıyorum.
Son düzenleme: