otomatik sayı sıfırdan başlamıyor - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: otomatik sayı sıfırdan başlamıyor (/konu-otomatik-sayi-sifirdan-baslamiyor.html) Sayfalar:
1
2
|
Cvp: otomatik sayı sıfırdan başlamıyor - alpeki99 - 28/11/2008 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 Cvp: otomatik sayı sıfırdan başlamıyor - nihatkr - 28/11/2008 (28/11/2008, 18:25)alpeki99 yazdı: 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 eline sağlık genede Cvp: otomatik sayı sıfırdan başlamıyor - esrefigit - 28/11/2008 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 Cvp: otomatik sayı sıfırdan başlamıyor - Coskun0559 - 28/11/2008 ARKADAŞLAR HEPİNİZE ÇOK TEŞEKKÜR EDERİM SORUNUM ÇÖZÜLDÜ. |