[VBA] otomatik rastgele artan harfler

car4000mf · 14-08-2015, 11:00

sayın access uzmanları
aynı otomatik sayı gibi ama rastgele artan 4 haneli harf kodu yapabilirmiyiz?

örneğin yeni sipariş girişte her defasında otomatik sayı bir değer veriyorya ya , ben her defasında 4 haneli harf olarak sipariş numarasını vermesini istiyorum. mümkün mü?
ör; "AAAB" sipariş kodum , yeni sipariş girişi yapınca "KAAS" sonra başka sipariş girişi yapınca "LLEK" hep dört karakter olarak birbirinden farklı harf üretip tabloya birinci anahtar olarak kayıt edecek.

iyi günler

dsezgin · 14-08-2015, 11:41

Sn car4000mf,

me.[sipariş numarasını]=KodUret() olarak kod uretilebilir.

Visual Basic
Public Function KodUret()
Dim i, SanalNu
For i = 1 To 4
SanalNu = SanalNu & Chr(Int((90 - 65 + 1) * Rnd + 65))
Next i
KodUret = SanalNu
End Function

car4000mf · 14-08-2015, 17:36

sayın d sezgin

her formu kapatıp açtığımda numaralar tekrar baştan başlıyor.

bu yüzden birinci anahtar olarak tabloda "belirtilen kayda gidemezsiniz" diyor.

harfler her defasında başka olarak çıkamaz mı?

ilginiz için teşekkür ederim

dsezgin · 14-08-2015, 20:35

Sn car4000mf,

Kodun calistirilabilecegi alan guncelleme sonrasi olay yordamina

Visual Basic
Private Sub mik_AfterUpdate()
Dim UrtKd As String
Yeni:
UrtKd = Module1.KodUret()
If DCount("*", "TabloAdi", "[sipariş numarası]='" & UrtKd & "'") = 0 Then Me.[sipariş numarası]= UrtKd Else GoSub Yeni
End Sub

yaziniz.

Modul1'e

Visual Basic
Public Function KodUret()
Dim i, SanalNu
For i = 1 To 4
SanalNu = SanalNu & Chr(Int((90 - 65 + 1) * Rnd + 65))
Next i
KodUret = SanalNu
End Function

yaziniz.

car4000mf · 15-08-2015, 09:28

çok teşekkür ederim

emeğinize sağlık.

bir konu bilen biri için çok kolay ama bilmeyen biri için ne kadar zor demi.

saolasın

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Rastgele Ara	adnan	11	714	27-07-2024, 21:31 Son Mesaj: adnan
	[VBA] Ardışık Tarih Alanı 1 Er Artan	Ahmet51	3	436	12-05-2023, 16:42 Son Mesaj: halily
	[FONKSiYON] Ardışık Sayı Toplama 1 Er Artan	Ahmet51	3	479	27-03-2023, 13:58 Son Mesaj: halily
	Rastgele Sayıya Göre Rapor Açma	dmn815	12	1.343	08-06-2021, 11:34 Son Mesaj: dmn815
	[FORM] Altform'dan Rastgele Seçim Yaparak Istenilen Textbox'a Veri çekmek	kamil_55	1	646	17-03-2021, 18:55 Son Mesaj: iscinar
	[VBA] Rastgele Soru (Access Testi-Taruz)	yasilkan	7	5.893	20-01-2018, 11:55 Son Mesaj: romanci
	[FORM] Accesste Formda Random (Rastgele) Çoklu Resim Gösterme Yardım	mehami	2	2.330	09-05-2017, 10:45 Son Mesaj: dsezgin
	[FORM] otomatik artan sıra ve tarih	delimurat	3	2.097	05-06-2016, 16:55 Son Mesaj: delimurat

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL