arkadaşlar merhaba,
veritabanımdaki bir tabloda oi, bina kodu ve daire_no isimli
kolonlar bulunmaktadır.
kodu A1 olan bina da 10 adet daire,
kodu A2 olan bina da da 5 adet daire bulunmaktadır.
yapmak istediğim her bina koduna göre 1 den başlayan numara almalarını sağlamak.
örneğin A1 kodlu bina için daire no kolonuna 1, 2, 3....10,
A2 kodlu bina için 1, 2, 3....5 şeklinde.
bunun için nasıl bir sorgu yapabiliriz?

örneğinizi eklerseniz daha hızlı çözüm bulabilirsiniz.

Sn Emre061;
Private Sub daire_no_AfterUpdate()
On Error GoTo Erc
If Me.NewRecord Or Isr = 1 Then
Me.daire_no = CLng(DMax("[daire_no]", "TabloAdi", "[bina kodu]='" & Me[daire_no] & "' And Not IsNull([daire_no])")) + 1
DoCmd.RunCommand acCmdSaveRecord
End If
Exit Sub
Erc:
Me.daire_no= 1
Resume Next
End Sub
ile yapilabilir.

(27-05-2014, 17:06)dsezgin83260 demiş ki: Sn Emre061;
Private Sub daire_no_AfterUpdate()
On Error GoTo Erc
If Me.NewRecord Or Isr = 1 Then
Me.daire_no = CLng(DMax("[daire_no]", "TabloAdi", "[bina kodu]='" & Me[daire_no] & "' And Not IsNull([daire_no])")) + 1
DoCmd.RunCommand acCmdSaveRecord
End If
Exit Sub
Erc:
Me.daire_no= 1
Resume Next
End Sub
ile yapilabilir.

Kardeşim herhangi bir formum yok bu kodu direkt sql olarak mı yazacağız update sorgusuna

Kardeşim SQL ile asagida ki gibi asilabilir.
SELECT TabloAdi.oi, (SELECT count(b.[Bina No] & b.oi) From TabloAdi as b Where ((b.[Bina No])=TabloAdi.[Bina No]) And b.oi<=TabloAdi.[oi]) AS Dno INTO GecTbl FROM TabloAdi ORDER BY TabloAdi.oi
sorusu ile GecTbl tablosunu uretir.
UPDATE TabloAdi INNER JOIN GecTbl ON TabloAdi.oi = GecTbl.oi SET TabloAdi.daire_no = [Dno];
guncelleme sorusu ile daire no verdirilebilir. oi alaninin sirali alan oldugunu varsaydim.
Tablo veri isleme icin form tasarlama halinde ise bir onceki yontemi kullanabilirsiniz.

(27-05-2014, 18:41)dsezgin83260 demiş ki: Kardeşim SQL ile asagida ki gibi asilabilir.
SELECT TabloAdi.oi, (SELECT count(b.[Bina No] & b.oi) From TabloAdi as b Where ((b.[Bina No])=TabloAdi.[Bina No]) And b.oi<=TabloAdi.[oi]) AS Dno INTO GecTbl FROM TabloAdi ORDER BY TabloAdi.oi
sorusu ile GecTbl tablosunu uretir.
UPDATE TabloAdi INNER JOIN GecTbl ON TabloAdi.oi = GecTbl.oi SET TabloAdi.daire_no = [Dno];
guncelleme sorusu ile daire no verdirilebilir. oi alaninin sirali alan oldugunu varsaydim.
Tablo veri isleme icin form tasarlama halinde ise bir onceki yontemi kullanabilirsiniz.

teşekkürler