Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
19/04/2019 21:23
Konu Sahibi
mmert06
Yorumlar
2
Okunma
491
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
mmert06

mmert06

Aktif Üye
53713
me.... me....
 37
 63
 246
 01/05/2013
0
 Ankara
 mühendis
 Ofis 2010 32 Bit
 24/04/2019,01:02
Çözüldü 
Merhaba. Sürekli formda bir satırdaki alana girdiğimiz veriyi, bir alt satırda tekrar girmeye çalıştığımızda otomatik olarak alana yazılmasını (örneğin yukarıdaki alana Access yazdık alt satıra geçtik ve alana ac yazdığımız anda otomatik olarak Access yazılsın) nasıl sağlayabiliriz?
Merhaba. Sürekli formda bir satırdaki alana girdiğimiz veriyi, bir alt satırda tekrar girmeye çalıştığımızda otomatik olarak alana yazılmasını (örneğin yukarıdaki alana Access yazdık alt satıra geçtik ve alana ac yazdığımız anda otomatik olarak Access yazılsın) nasıl sağlayabiliriz?
Merhaba. Sürekli formda bir satırdaki alana girdiğimiz veriyi, bir alt satırda tekrar girmeye çalıştığımızda otomatik olarak alana yazılmasını (örneğin yukarıdaki alana Access yazdık alt satıra geçtik ve alana ac yazdığımız anda otomatik olarak Access yazılsın) nasıl sağlayabiliriz?




halily

halily

Uzman
65596
ha....
 26
 1.170
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,00:29
Çözüldü 
tablonuzda otomatik sayı alanı var mı?
eğer varsa aşağıdakine benzer bir kod işinizi görebilir
id=otomatik sayı alanınız
tablo2=çalıştığınız tablonun adı
Sira.Text=üstten değer almasını istediğiniz alan
kusura bakmayın yazmayı unutmuşum değiştiğinde olayına yazılacak

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Sira_Change()
Dim maxid, txtSec As Integer
Dim txtDeger As String
maxid = DMax("id", "tablo2", "id<" & Me.id)
txtDeger = DLookup("sira", "tablo2", "id=" & maxid)
txtSec = Len(Me.Sira.Text)
If (Not IsNull(Me.Sira.Text)) And Me.Sira.Text <> "" And InStr(1, txtDeger, Me.Sira.Text) > 0 Then
Me.Sira.Text = txtDeger
Me.Sira.SelStart = txtSec
Me.Sira.SelLength = Len(txtDeger) - txtSec
End If
End Sub



...........
mmert06

mmert06

Aktif Üye
53713
me.... me....
 37
 63
 246
 01/05/2013
0
 Ankara
 mühendis
 Ofis 2010 32 Bit
 24/04/2019,01:02
Teşekkürler Haliliyas bey




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formda Açılır Kurularda 3101 Hatası Veriyor haziran4 11 218 24/05/2019, 16:22
Son Yorum: haziran4
Çözüldü Formda Form Yenileme haziran4 2 170 02/05/2019, 13:44
Son Yorum: haziran4
Çözüldü Formda Formül Kullanma haziran4 8 257 02/05/2019, 13:04
Son Yorum: haziran4
Çözüldü Formda Bitiş Tarihi Geçenlerin Alan Rengi Değişimi haziran4 3 160 30/04/2019, 13:04
Son Yorum: haziran4
Çözüldü Formda If İç İçe Kullanım haziran4 28 548 30/04/2019, 12:17
Son Yorum: haziran4

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