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

Derecelendirme: 0/5 - 0 oy
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?



haliliyas

haliliyas

Uzman
65596
Ha.... Ya....
 Belirtilmemiş
 23
 1.041
 30/07/2014
172
 -
 
 Ofis 2019 64 Bit
 Bugün,02:19
Çö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 Form Yenileme haziran4 2 129 02/05/2019, 13:44
Son Yorum: haziran4
Çözüldü Formda Formül Kullanma haziran4 8 206 02/05/2019, 13:04
Son Yorum: haziran4
Çözüldü Formda Bitiş Tarihi Geçenlerin Alan Rengi Değişimi haziran4 3 114 30/04/2019, 13:04
Son Yorum: haziran4
Çözüldü Formda If İç İçe Kullanım haziran4 28 456 30/04/2019, 12:17
Son Yorum: haziran4
Çözüldü Formda Koşullu Biçimlendirme haziran4 4 224 30/04/2019, 10:03
Son Yorum: haziran4

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