10-04-2022, 23:25
Merhaba,
Access veri tabanına Excel userform üzerinden kayıt yaparken ilk sütunda 1 , 2 , 3 olarak otomatik kayıt sırası geliyor.
Yapmak istediğim kayıt numarasının başında "kayıt" kelimesinin olması. kayıt1 , kayıt2 , kayıt3 şeklinde.
Yardımcı olan arkadaşlara şimdiden teşekkür ederim iyi çalışmalar.
Access veri tabanına Excel userform üzerinden kayıt yaparken ilk sütunda 1 , 2 , 3 olarak otomatik kayıt sırası geliyor.
Yapmak istediğim kayıt numarasının başında "kayıt" kelimesinin olması. kayıt1 , kayıt2 , kayıt3 şeklinde.
Yardımcı olan arkadaşlara şimdiden teşekkür ederim iyi çalışmalar.
Visual Basic
- Private Sub CommandButton1_Click()
- Set rs = CreateObject("adodb.recordset")
- With rs
- .Open "select * from veriler", con, 1, 3
- .addnew
- On Local Error Resume Next
- .fields("tarih").Value = Format(CDate(TextBox1.Value), "dd.mm.yyyy")
- .fields("srad").Value = CStr(TextBox2.Value)
- .fields("adsoyad").Value = CStr(TextBox3.Value)
- .fields("odetarihi").Value = Format(CDate(TextBox6.Value), "dd.mm.yyyy")
- .fields("odedigi").Value = CDbl(Round(TextBox7.Value, 2))
- .fields("aciklama").Value = CStr(TextBox8.Value)
- .Update
- End With
- Call UserForm_Initialize
- Call UserForm_Activate
- Set rs = Nothing
- End Sub