Doğru o hiç aklıma gelmemişti
son kayıt numarasını yanına bir yere Etiket'e yazdırıp gösterebilirdim. Neyse artık o da başka bahara
formdan çağırırken
CreateAutoNumberField("tabloadınız","otomotiksayıalanı")
Public Function CreateAutoNumberField(ByVal strTableName As String, ByVal strFieldName As String) As Boolean
Dim sol As QueryDef
bukısımın kod ile bir ilgisi yoktu ama ben ekledim eski alanı siliyor neden yeni alan yapılırken problem çıkıyordu
asdf benim tablomun adı ID ise otomotik sayı olan alanımın adı
siz kendi tablonuza göre değiştirin şimdi diyeceksinizki ya kardeşim benim ilişkili tablom var ozaman başka bir yol üzerinde şu an çalışıyorum onuda halledince eklerim bu tek tabloda otomotik sayıyı yeniden düzenliyor
DoCmd.RunSQL ("ALTER TABLE asdf " & "DROP
Column ID;")
On Error GoTo Err_CreateAutoNumberField
Dim db As DAO.Database
Dim fld As DAO.Field
Dim tdef As DAO.TableDef
Set db = Application.CurrentDb
Set tdef = db.TableDefs(strTableName)
Set fld = tdef.CreateField(strFieldName, dbLong)
With fld
.Attributes = .Attributes Or dbAutoIncrField
End With
With tdef.Fields
.Append fld
.Refresh
End With
CreateAutoNumberField = True
Exit_CreateAutoNumberField:
Set fld = Nothing
Set tdef = Nothing
Set db = Nothing
Exit Function
Err_CreateAutoNumberField:
CreateAutoNumberField = False
With Err
MsgBox "Error " & .Number & vbCrLf & .Description, vbOKOnly Or vbCritical, "CreateAutonumberField"
End With
Resume Exit_CreateAutoNumberField
End Function
ARKADAŞLAR HEPİNİZE ÇOK TEŞEKKÜR EDERİM SORUNUM ÇÖZÜLDÜ.
eline sağlık genede