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

Derecelendirme: 0/5 - 0 oy
Yunus Bozkurt

Yunus Bozkurt

Aktif Üye
38706
Yu.... Bo....
 44
 47
 193
 18/08/2011
0
 Sinop
 
 Ofis 2010 64 Bit
 16/06/2019,19:36
(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.160
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,22:22
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
 47
 193
 18/08/2011
0
 Sinop
 
 Ofis 2010 64 Bit
 16/06/2019,19:36
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.160
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,22:22
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
 47
 193
 18/08/2011
0
 Sinop
 
 Ofis 2010 64 Bit
 16/06/2019,19:36
(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.160
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,22:22
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ü Metin Tipinde Ayarlanmış Sürelerle İşlemlerde Toplama Sorunu yücel üzülmez 9 398 08/05/2019, 23:09
Son Yorum: halily
Çözüldü metin tipinde ayarlanmış sürelerle işlemsel yücel üzülmez 13 374 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 122 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 204 28/04/2019, 14:39
Son Yorum: ozanakkaya
Çözüldü Metin Kutusuna Girilen Veriye Göre Veri Çağırma fascioğlu 9 605 14/03/2019, 14:50
Son Yorum: programmer67

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