Skip to main content

AccessTr.neT


Excel Userformda Vba İle Günün Tarihinden Sipariş Numarası Oluşturma

Oğuz Türkyılmaz
Oğuz Türkyılmaz
24
2350

Excel Userformda Vba İle Günün Tarihinden Sipariş Numarası Oluşturma

#7
(21/03/2021, 18:30)Oğuz Türkyılmaz yazdı: Yılın son iki rakamıda numaraya eklenebilir. Eğer dosya çok şişmezse her sene için yeni dosya açmaya gerek kalmaz ama bilemedim acaba sadece ilk düşündüğüm gibi SP-00001 den başlatıp devam mı ettirilse hiç tarihi bulaştırmadan ne dersiniz. Amacım sipariş numarasına baktığımda hangi tarih de verildiğini anlamaktı.
Dosya şişmez yıl ekleyince zaten abey.
Bence daha iyi olur.
Cevapla
#8
Dosyayı bir inceleyiniz.Formun açılış koduna neden sayfaya ekleme kodlarını eklediniz bu arada!!!!!!

[Resim: do.php?img=10828]

Sub siparisKod()
    Dim txt As String, bul As Range
    Dim say As Long, txt2 As String, x As String
    txt = Format(Date, "ddmmyyyy")
    txt2 = "SP-" & txt
    With ThisWorkbook.Worksheets("ORDER_LIST")
        Set bul = .Range("H:H").Find(txt2 & "*", , xlValues, 1)
        say = WorksheetFunction.CountIf(.Range("H:H"), txt2 & "*")
        Select Case Len(say)
            Case 1 To 9: x = "00"
        End Select
        If Not bul Is Nothing Then
            TextBox_SiparisKodu.Value = txt2 & Format(say + 1, x)
        Else
            TextBox_SiparisKodu.Value = txt2 & "01"
        End If
    End With
    Set bul = Nothing
End Sub
.rar WİNPERAX.rar (Dosya Boyutu: 93,35 KB | İndirme Sayısı: 5)
Cevapla
#9
(21/03/2021, 20:52)feraz yazdı: Format(Date, "ddmmyyyy")
Burdakl yyyy silinirse yıl olayı devre dışı olur abey.
Cevapla
#10
Feraz Hocam Form Yüklendiğinde sipariş numarası +1 artmadan yine SP-2103202101şeklinde geliyor.

[Resim: do.php?img=10830]
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 21/03/2021, 21:44, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#11
(21/03/2021, 21:31)Oğuz Türkyılmaz yazdı: Feraz Hocam Form Yüklendiğinde sipariş numarası +1 artmadan yine SP-2103202101şeklinde geliyor.
Ötle gelmesi normai zaten ekteki yerde SP-2203202101 olarak kod var.
SP-2103202101 olursa 02olarak gelmesi gerek.
Cevapla
#12
(21/03/2021, 20:52)feraz yazdı: Dosyayı bir inceleyiniz.Formun açılış koduna neden sayfaya ekleme kodlarını eklediniz bu arada!!!!!!

[Resim: do.php?img=10828]

Sub siparisKod()
    Dim txt As String, bul As Range
    Dim say As Long, txt2 As String, x As String
    txt = Format(Date, "ddmmyyyy")
    txt2 = "SP-" & txt
    With ThisWorkbook.Worksheets("ORDER_LIST")
        Set bul = .Range("H:H").Find(txt2 & "*", , xlValues, 1)
        say = WorksheetFunction.CountIf(.Range("H:H"), txt2 & "*")
        Select Case Len(say)
            Case 1 To 9: x = "00"
        End Select
        If Not bul Is Nothing Then
            TextBox_SiparisKodu.Value = txt2 & Format(say + 1, x)
        Else
            TextBox_SiparisKodu.Value = txt2 & "01"
        End If
    End With
    Set bul = Nothing
End Sub
WorksheetFunction.CountIf demek exceldeki eğersay formülünün kod karşılığıdır.
txt2 & "*" böyle yapıncada ile başlayan demektir ve SP- ve bugünün tarihinin ddmmyyy olarak format karşılığı sipariş kod varsa bulur ve sayar varsa 1 artırır yoksa 1 yazar abey.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task