Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
12/06/2019 18:36
Konu Sahibi
Yunus Bozkurt
Yorumlar
11
Okunma
379
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Yunus Bozkurt

Yunus Bozkurt

Aktif Üye
38706
Yu.... Bo....
 44
 48
 195
 18/08/2011
0
 Sinop
 
 Ofis 2010 64 Bit
 13/07/2019,18:20
(12/06/2019 19:56)haliliyas Adlı Kullanıcıdan Alıntı: en son kendi çalışmamda aşağıdaki kodu denedim çalıştı

Visual Basic Code
strOldID = DMax("Mid([dosyano],4)", "[denetim]") + 1
    strNewID = "KYT" & Format(strOldID, "0000")


bunuda bir deneyim



  • En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…

halily

halily

Uzman
65596
ha....
 26
 1.263
 30/07/2014
215
 -
 
 Ofis 2019 64 Bit
 Bugün,01:38
aslında en doğru cevabı en kısa sürede alabilmek için en doğru yöntem kendi uygulamanızı eklemenizdir



...........
Yunus Bozkurt

Yunus Bozkurt

Aktif Üye
38706
Yu.... Bo....
 44
 48
 195
 18/08/2011
0
 Sinop
 
 Ofis 2010 64 Bit
 13/07/2019,18:20
Sorun çözüldü


  • En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…

halily

halily

Uzman
65596
ha....
 26
 1.263
 30/07/2014
215
 -
 
 Ofis 2019 64 Bit
 Bugün,01:38
ilerde aynı sorunu yaşayabilecek olan arkadaşlar için çözüm yolunuzu paylaşır mısınız?




...........
Yunus Bozkurt

Yunus Bozkurt

Aktif Üye
38706
Yu.... Bo....
 44
 48
 195
 18/08/2011
0
 Sinop
 
 Ofis 2010 64 Bit
 13/07/2019,18:20
(13/06/2019 21:13)halily Adlı Kullanıcıdan Alıntı: ilerde  aynı sorunu yaşayabilecek olan arkadaşlar için çözüm yolunuzu paylaşır mısınız?

Öncelikle  bir modül oluşturdum
modül şöyle;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
Function nurmaraAl(yb As String) As String
    Dim donenDeger As String
    Dim i As Integer
    donenDeger = ""
    For i = 1 To Len(yb)
        If Mid(yb, i, 1) >= "0" And Mid(yb, i, 1) <= "9" Then
            donenDeger = donenDeger + Mid(yb, i, 1)
        End If
    Next
 nurmaraAl = donenDeger
End Function

 sonra bu değeri kullanmak istediğim formun Geçerli  olduğunda olayına aşağıdaki kodu ekledim;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Form_Current()
    Dim strEskiID As String
    Dim lngGecerliNumara As Long
    Dim lngSonrakiNumara As Long
    Dim strSonrakiNumara As String
    Dim strYeniID As String
     strEskiID = DLast("Nz([ID],0)", "t_Nakliyeler") + 1 'tablodaki ID alanından son değeri al
     lngGecerliNumara = nurmaraAl(strEskiID)
     lngSonrakiNumara = lngGecerliNumara + 1
     strSonrakiNumara = String(4 - Len(CStr(lngSonrakiNumara)), "0") & CStr(lngSonrakiNumara)
     strYeniID = "KYT" & strSonrakiNumara
        '
        
    Me.t_islemno = strYeniID ' Formdaki numara üretilen alan

End Sub


  • En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…

halily

halily

Uzman
65596
ha....
 26
 1.263
 30/07/2014
215
 -
 
 Ofis 2019 64 Bit
 Bugün,01:38
paylaşım için teşekkürler



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formda Metin Kutusu İçerik Kontrolü hbal09 4 94 10/07/2019, 16:20
Son Yorum: halily
Çözüldü Metin Tipinde Ayarlanmış Sürelerle İşlemlerde Toplama Sorunu yücel üzülmez 9 490 08/05/2019, 23:09
Son Yorum: halily
Çözüldü metin tipinde ayarlanmış sürelerle işlemsel yücel üzülmez 13 459 02/05/2019, 00:10
Son Yorum: halily
Çözüldü İlişkisiz Form Da Listenin Filtrelenen Alanını İlişkisiz Metin Kutusu İle Update ask200075 4 167 29/04/2019, 11:27
Son Yorum: ask200075
Çözüldü Metin Kutusu İstenildiği Zaman Okunur, İstediğim Zaman Yazılır Olsun eraslan 6 279 28/04/2019, 14:39
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.