Skip to main content

AccessTr.neT


Id Alanını Özelleştirme

Id Alanını Özelleştirme

#19
(02/01/2020, 13:58)yasinacar yazdı: bas_harf alanını çekmiyor boş geliyor
baş harfleri almaması için sizin kullanıcı girişinden girmemiş olmanız lazım. normal kullanıcı giriş penceresinden girdiyseniz baş harfler gelmeli
(02/01/2020, 13:58)yasinacar yazdı: firma ismi seçildiğinde alana otomatik yazması lazım olay
o zaman kodu firma isminin seçildiği Açılır kutu değiştiğinde/yada çıkıldığında olayına yazabilirsiniz
yada doğrudan kaydetme butonunun içine en başa ekleyebilirsinzi
Cevapla
#20
Bu şekilde olursa, TUR020120-TG4 numarası verilince, aynı gün aynı kullanıcı yine teklif eklerse yine aynı numarayı verir. Soru eksik sorulmuş.

Tablodaki önceden kaydedilen verilerin kontrol ettirilip, aynı gün, aynı kullanıcı teklif eklemiş ise bir fazlasını kaydetmesi lazım.

- T_TEKLIF_H isimli tabloya, veri türü metin olan "ID" adında alan ekle,
- F_TEKLIF_H isimli forma, denetim kaynağı ID olan MTN_ID adında metin kutusu ekle,
- F_YTEKLIFHR_ALTFRM isimli formun Vba sayfasında, en alta 

Sub SiraNoVer()

Dim GKriter, strSQL, GSiradaki, GKullaniciBul, GKullanici, GTarih, Gid As String
Dim rs1 As DAO.Recordset

KullaniciKim = 25

If IsNull(Forms![F_YTEKLIF_H]![MTN_ID]) Then
GKullaniciBul = Dlookup ("kulanici_adi", "TKullanicilar", "[kul_id]= " & KullaniciKim)

GTarih = Format(Day(Me.MTN_TARIH), "00") & Format(Month(Me.MTN_TARIH), "00") & Right(Year(Me.MTN_TARIH), 2)
GKullanici = Left(Left(GKullaniciBul, InStr(1, GKullaniciBul, " ") - 1), 1) & Left(Mid(GKullaniciBul, InStr(1, GKullaniciBul, " ") + 1), 1)
Gid = "TUR" & GTarih & "-" & GKullanici

GKriter = "TUR" & GTarih & "-" & GKullanici & "*"

strSQL = "SELECT TOP 1 ID, Val(Mid([ID],13)) AS Sayi FROM T_TEKLIF_H WHERE ID Like '" & GKriter & "' ORDER BY Val(Mid([ID],13)) DESC;"

Set rs1 = CurrentDb.OpenRecordset(strSQL)
If Not rs1.EOF Then
rs1.MoveFirst

GSiradaki = rs1!Sayi + 1

Else

GSiradaki = 1

End If

Forms![F_YTEKLIF_H]![MTN_ID] = "TUR" & GTarih & "-" & GKullanici & GSiradaki

rs1.Close
End If

End Sub

kodu ekle,

- Aynı sayfadaki Komut351'in tıklandığında olayındaki 

Forms![F_YTEKLIF_H].[Form].[Komut353].Enabled = True

kodunun altına

Call SiraNoVer

kodu ekle.
Cevapla
#21
(02/01/2020, 14:05)ozanakkaya yazdı: Bu şekilde olursa, TUR020120-TG4 numarası verilince, aynı gün aynı kullanıcı yine teklif eklerse yine aynı numarayı verir. Soru eksik sorulmuş.

Tablodaki önceden kaydedilen verilerin kontrol ettirilip, aynı gün, aynı kullanıcı teklif eklemiş ise bir fazlasını kaydetmesi lazım.

- T_TEKLIF_H isimli tabloya, veri türü metin olan "ID" adında alan ekle,
- F_TEKLIF_H isimli forma, denetim kaynağı ID olan MTN_ID adında metin kutusu ekle,
- F_YTEKLIFHR_ALTFRM isimli formun Vba sayfasında, en alta 

Sub SiraNoVer()

Dim GKriter, strSQL, GSiradaki, GKullaniciBul, GKullanici, GTarih, Gid As String
Dim rs1 As DAO.Recordset

KullaniciKim = 25

If IsNull(Forms![F_YTEKLIF_H]![MTN_ID]) Then
GKullaniciBul = Dlookup ("kulanici_adi", "TKullanicilar", "[kul_id]= " & KullaniciKim)

GTarih = Format(Day(Me.MTN_TARIH), "00") & Format(Month(Me.MTN_TARIH), "00") & Right(Year(Me.MTN_TARIH), 2)
GKullanici = Left(Left(GKullaniciBul, InStr(1, GKullaniciBul, " ") - 1), 1) & Left(Mid(GKullaniciBul, InStr(1, GKullaniciBul, " ") + 1), 1)
Gid = "TUR" & GTarih & "-" & GKullanici

GKriter = "TUR" & GTarih & "-" & GKullanici & "*"

strSQL = "SELECT TOP 1 ID, Val(Mid([ID],13)) AS Sayi FROM T_TEKLIF_H WHERE ID Like '" & GKriter & "' ORDER BY Val(Mid([ID],13)) DESC;"

Set rs1 = CurrentDb.OpenRecordset(strSQL)
If Not rs1.EOF Then
rs1.MoveFirst

GSiradaki = rs1!Sayi + 1

Else

GSiradaki = 1

End If

Forms![F_YTEKLIF_H]![MTN_ID] = "TUR" & GTarih & "-" & GKullanici & GSiradaki

rs1.Close
End If

End Sub

kodu ekle,

- Aynı sayfadaki Komut351'in tıklandığında olayındaki 

Forms![F_YTEKLIF_H].[Form].[Komut353].Enabled = True

kodunun altına

Call SiraNoVer

kodu ekle.
Hocam teşekkürler lakin TUR020120- buraya kadar güzel ama TG sabit geliyor ben TKullanicilar tablosuna bas_harf isimli bir alan ekledim ordaki kısmı alması lazım yani benim için YA olması gerekiyor birde ID kısmı için TEKLIF_ID deki sırayı takip etmesi gerekiyor hocam yada siz burda kullanıcı bazlı bir ID takibi düşündü iseniz o da olur en azından kullanıcının teklif sayısı takip edilebilir.
Cevapla
#22
(02/01/2020, 14:20)yasinacar yazdı: Hocam teşekkürler lakin TUR020120- buraya kadar güzel ama TG sabit geliyor

Ben kullanıcı girişi yapmadığım için kod içerisine KullaniciKim = 25 şeklinde kod ekledim. Siz kodu incelemiş olsaydınız bunu görebilirdiniz.

(02/01/2020, 14:20)yasinacar yazdı: birde ID kısmı için TEKLIF_ID deki sırayı takip etmesi gerekiyor hocam yada siz burda kullanıcı bazlı bir ID takibi düşündü iseniz o da olur en azından kullanıcının teklif sayısı takip

Benim eklediğim kod, tarih ve kullanıcı adına göre oluşturur, TG'nin 020120'de ilk oluşturduğu teklif "TUR020120-TG1", aynı kullanıcının aynı tarihte oluşturduğu 2. teklif ise TUR020120-TG2 olarak kaydedilir.

Ayrıca, kod yardımı yapıldıktan 15 dakika sonra olmadı vs, şeklinde cevap yazmayın. Benim eklediğim koddaki kalıp belli. Benim yazdığım kod sorunuza çözüm olacağı şartı yok. Siz kendinize göre uyarlayacaksınız, çözemezseniz tekrar yardım isteyeceksiniz, ama 15 dakika sonra yardım istemeyeceksiniz. Siz de biraz uğraşacaksınız.
Cevapla
#23
Kusura bakamayın evet oldu sorunum çözüldü teşekkürler
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task