AccessTr.neT

Tam Versiyon: otomatik sayı sıfırdan başlamıyor
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Doğru o hiç aklıma gelmemişti Img-grin son kayıt numarasını yanına bir yere Etiket'e yazdırıp gösterebilirdim. Neyse artık o da başka bahara Hoba
(28/11/2008, 18:25)alpeki99 yazdı: [ -> ]Doğru o hiç aklıma gelmemişti Img-grin son kayıt numarasını yanına bir yere Etiket'e yazdırıp gösterebilirdim. Neyse artık o da başka bahara Hoba

Az eline sağlık genedeImg-grin
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Ü.
Sayfalar: 1 2