Skip to main content

AccessTr.neT


otomatik sayı sıfırdan başlamıyor

otomatik sayı sıfırdan başlamıyor

Çözüldü #7
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
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Çözüldü #8
(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
FX-Etopla
Liste Kutusu Oluşturma
Çözüldü #9
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
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Çözüldü #10
ARKADAŞLAR HEPİNİZE ÇOK TEŞEKKÜR EDERİM SORUNUM ÇÖZÜLDÜ.
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da