Accesste bir alana girilen değere bağlı olarak verileri çoğaltma veya kopyalama

[balmy]

Arkadaşlar yeni taşınır yönetmeliğine göre access te taşınır kayıt programı yapmaya çalışıyorum.Yapamadığım bazı hususlarda yardıma ihtiyacım var.

Soru -1
Formda. Taşınır adı , miktarı, kodu alanları var.(başka alanlarda var ama konun anlaşılması için yazdığım alanlar yeterli olur sanıyorum.

Kayıt girerken ”taşınır adı” alanına masa “miktarı” alana mesela 3 giriyorum. (bu rakam başka taşınırda farklı bir sayı olabilir)
_yapmasını istediğim;
Miktar alanına girdiğim sayı 1 den büyükse ilgili alanlara girdiğim verileri sayı kadar çoğaltarak ve miktarı 1 yaparak ayrı bir tabloya aktarmak.
Yani kayıt TAŞINIR ADI:Masa MİKTARI: 3 ( bir defa girilecek)

Bu kayıt ayrı bir tabloya aşağıdaki gibi 3 satır olacak
TAŞINIR ADI MİKTARI
Masa......................1
Masa......................1
Masa......................1


Soru-2
Sorguda Kodu ve sırano alanlarındaki verileri birleştirerek ayrı bir alanda topluyorum.
Yani [kodu]&” “& [sırano] olarak. (sırano otomotik sayı ve giriş maskesi 000 şeklinde sayı 001,002… oluyor) Birleştirme işlemi sırasında sıra no alanındaki 0’ları bir türlü birleştirilmiş alanda gösteremiyorum. Birleşik alnın giriş maskesi özelliğini 00.000 olarak düzenledim ama olmadı veriler 12.1 , 12.2 şeklinde oluyor 12.001 , 12.002 olasını nasıl sağlarım.


Yardımlarınız için şimdiden teşekkürler.

 

[Taruz]

Sayın balmy..

İkinci sorunuz için:

[kodu]&” “& "00" &” “& [sırano] olarak birleştirin sırano nun başına her seferinde iki sıfır koyar..

Bu yöntemin tek dezavantajı; sıra no 15 olduğuna 0015 olarak gözükücek yani basamak sayısı artsada sıfırlar hep iki tane kalacak...

 

[omerceri]

Sn balmy
Tabloda Veri Türü Otomatik Sayı olarak ayarlanmış alana nasıl Giriş maskesi uyguladınız.

 

[balmy]

Sn balmy
Tabloda Veri Türü Otomatik Sayı olarak ayarlanmış alana nasıl Giriş maskesi uyguladınız.

Sayın omerceri aslında yaptığım giriş maskesi değil. Otomatik sayı alanının biçimini üç sıfır "000" olarak düzenlemek.Yanlış ifade etmişim.

 

[balmy]

İkinci sorunuz için:

[kodu]&” “& "00" &” “& [sırano] olarak birleştirin sırano nun başına her seferinde iki sıfır koyar..

Bu yöntemin tek dezavantajı; sıra no 15 olduğuna 0015 olarak gözükücek yani basamak sayısı artsada sıfırlar hep iki tane kalacak...

Sayın Taruz dez avantajı nedeniyle söylediğiniz gibi yapmak uygun değil.Sorun otomatik sayıdan kaynaklanıyor.Sıra numarasını 000 biçimine otomatik olarak verdirip, bir metin alanına attırabilirsem olur diye düşünüyorum. Deneyeceğim.

 

[balmy]

sorularıma cevap verecek birileri yokmu ? şimdi

 

[balmy]

Soru-2
Sorguda Kodu ve sırano alanlarındaki verileri birleştirerek ayrı bir alanda topluyorum.
Yani [kodu]&” “& [sırano] olarak. (sırano otomotik sayı ve giriş maskesi 000 şeklinde sayı 001,002… oluyor) Birleştirme işlemi sırasında sıra no alanındaki 0’ları bir türlü birleştirilmiş alanda gösteremiyorum. Birleşik alnın giriş maskesi özelliğini 00.000 olarak düzenledim ama olmadı veriler 12.1 , 12.2 şeklinde oluyor 12.001 , 12.002 olasını nasıl sağlarım.


Yardımlarınız için şimdiden teşekkürler.

Bu sorumun cevabını başka bir siteden bir arkadaş verdi.Site adı yazmak uygun olurmu bilemediğim için yazmadım.
ama cevabı paylaşmak istedim.

CEVAP:FORMAT([kodu];'00')& " "& Format([sırano];'000')

 

[emcosoft]

Arkadaşlar bu problemi soru 1 deki problemi çözen varmı hiç çok lazım birşey

 

[gulsum1]

cevap

yukarda sorulan soruların hepsinin cevabı içinde
Private Sub Komut17_Click()
Dim Rs As New ADODB.Recordset
Rs.Open "tasinirmal", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Rs.EOF <> True Then
Do
If Rs("kodu") = kodu.Value Then
Rs.Delete
End If
Rs.MoveNext
Loop Until Rs.EOF
End If
For i = 1 To Me.miktarı Step 1
Rs.AddNew
Rs("kodu") = Me.kodu
Rs("miktarı") = 1
Rs("adı") = Me.adı
Rs("sira") = kodu.Value & "." & Format(i, "000")
Rs.Update
Next i
Set Rs = Nothing
Set conn = Nothing
End Sub