Selam
birtakım programlarda müşteri no,ürün no, vs kod verirken
rakamların önüne veya arkasına A-1558 , K-9898
gibi numaralandırmalar var
örnekte bir sıralama yaptım fakat alttaki gibi listeyi uzattığımda liste almıyor
nasıl bir yol bulmalıyım
saygılarımla
Private Sub Komut6_Click()
On Error GoTo Err_Komut6_Click
Dim Harfler As Variant
Harfler = Array( _
A, "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"
|
İyi günler KOlay gelsin
PrPrivate Sub DtDonem_AfterUpdate()
Dim txtDonem As Date
Dim OgRs As New ADODB.Recordset
Dim sOrGu As String
If IsNull(Me.DtDonem) Then Exit Sub 'Tarih alanı boşsa çık
sOrGu = "select * from tblOgretmen WHERE (Durumu='Aktif');" 'öğretmenler tablosundan öğretmen seç"
Me.DtDonem = Format(Me.DtDonem, "yyyymm") 'Dönem Formatla
txtDonem = DateSerial(Left(Me.DtDonem, 4), Mid(Me.DtDonem, 5), 1) 'Tarih
If DCount("*", "TblNobet", "format([donem],'yyyymm')=" & Me.DtDone
|