Kimlik No ID den başka Üye No için sabit kimlik No

[meraklı biri]

Kişiler Tablomda "Adı Soyadı" ile"Dernek" ve "Üye No" Alanı var.Kişilerden biri derneğe üye olduğunda Dernek Alanına "Üye" yazdığımda , "Üye No" da otomatik kimlik Nosu versin.Bu Alan ayarlamalarından yapılabilir mi?.Veya sorguda bu gerçekleşebilir mi ? Olmazsa formda nasıl yapılır saygılarımla?

 

[Taruz]

Merhaba..

Mümkündür.. Üye No için belirli kriterleriniz varsa (Örneğin altı basamaklı, belirli bir sayıdan başlasın, çift sayı gitsin, ardışık gitsin vb) bu kriterlere göre formda giriş yapılırken bahsettiğiniz alana veri atanabilir..

 

[meraklı biri]

Düzenleme yapparsanız sevinirim

Sn Taruz ekteki dosyaya bir düzenleme ile uygulamasını yaparsanız;birde ne yaptığınızı kısaca yazarsanız sevinirim.Örneğin 3 haneli olsun ve her üye yazıldığında 1-2-3 şeklinde devam etsin.Yani üyeye bir kimlik versin.Sizden gereğince istifade ediyoruz.Bu vesileyle teşekkürlerimi sunuyorum

 

[Taruz]

Tekrar merhaba..

Basitçe bir yapı hazırladım.. Formdan yeni bir kayıt girdiğinizde, adı soyadı alanını doldurduktan sonra üye numarası otomatik oluşur.. Her üyenin numarası benzersiz olur..

[COLOR=#0600ff]If[/COLOR] NewRecord [COLOR=#0600ff]Then[/COLOR]
[COLOR=#0600ff]Me[/COLOR].Üye_No [COLOR=#008000]=[/COLOR] [COLOR=#0600ff]Format[/COLOR][COLOR=#000000]([/COLOR]DLast[COLOR=#000000]([/COLOR][COLOR=#fb0000]"[Üye No]"[/COLOR], [COLOR=#fb0000]"kişiler"[/COLOR][COLOR=#000000])[/COLOR] [COLOR=#008000]+[/COLOR] [COLOR=#7d2252]1[/COLOR], [COLOR=#fb0000]"000"[/COLOR][COLOR=#000000])[/COLOR]
[COLOR=#0600ff]End[/COLOR] [COLOR=#0600ff]If[/COLOR]

Bu yapıyı şöyle de geliştirebiliriz.. Bir zaman sonra bir üyeyi tablodan sildiniz ve ve bu üye numarası boşta kaldı.. Bu numarayı silinme sonrası ilk kayıt edeceğiniz üyeye de atayabiliriz..

 

[meraklı biri]

Sn Taruz , dernek üyesi olsun olmasın herkese üye numarası atıyor.Benim istediğim dernek üyesi ise numara atayacaktı.Teşekkürler

 

[Taruz]

Bunun için dernek metin kutusunun güncelleştirme sonrasını kullanın.. Yeni kod bu şekilde olmalı..:

If NewRecord And Dernek = "üye" Then
Me.Üye_No = Format(DMax("[Üye No]", "kişiler") + 1, "000")
End If

 

[meraklı biri]

Sn Taruz çok teşekkürler.