15-02-2018, 15:32
Bu yapıda bir kodlama hazırladım.. Sanırım amacınıza uygun.. Test edersiniz..
Visual Basic
- Dim rs As ADODB.Recordset
- Set rs = New ADODB.Recordset
- CurrentDb.Execute "delete from temp"
- CurrentDb.Execute "insert into temp select * from srg_AktifZimmet"
-
-
-
- rs.Open "temp", CurrentProject.Connection, 1, 3
- rs.MoveFirst
-
- Do Until rs.EOF
-
- grp = rs("grup")
- mktr = DLookup("miktar", "tbl_IhaleMiktar", "grup=" & grp)
- kalan = CInt(mktr) - DCount("*", "srg_AktifZimmet", "grup=" & grp)
-
- For i = 0 To kalan
- If DCount("*", "temp", "grup=" & grp) < mktr Then
-
- With DoCmd
- .SetWarnings 0
- .RunSQL "INSERT INTO temp ( GrupSira, Grup ) SELECT " & i + 1 & ", " & grp
- .SetWarnings -1
- End With
- End If
- Next
- rs.MoveNext
- Loop
- rs.Close
-
-
- ''''
- rs.Open "select * from temp where GrupSira is null", CurrentProject.Connection, 1, 3
- rs.MoveFirst
-
- Do Until rs.EOF
-
- grp = rs("grup")
- dd = Nz(DMax("GrupSira", "temp", "grup=" & rs("grup")), 1)
- rs("GrupSira") = dd + 1
- rs.MoveNext
- Loop
- rs.Close
- Requery
Bulunamayan yerleri bulmak için önce kaybolmak gerekir.
SORU SORMA KILAVUZU
Giriş | Sormadan Önce | İlgili Forumu dikkatlice seçin | Anlamlı ve duruma uygun konu başlıkları kullanın | Anlamsız soru cümleleri kurmayın | Açık, dilbilgisi kurallarına uygun ve sözdizimlerine dikkate ederek yazın | Sorunuz sizin için çok acil olsa bile, çok acil diye yazmayın | Sorununuz hakkında tam ve aydınlatıcı iletiler yazın | Amacınızı belirtin | Problemin belirtilerini tanımlayın, kendi tahminlerinizi değil | Sorunuz hakkında açık olun | Nezaket asla yaralamaz ve bazen oldukça yararlıdır | Boyut her şey değildir! | Kabalıkla ilgilenmek | Cevabı E-Posta ile istemeyin | İnsanlardan özel mesajla cevap vermelerini istemeyin | Eğer cevabı anlamadıysanız | Şayet bir cevap alamazsanız | Sorununuz çözüldükten sonra küçük bir not ile bildirin | Sorulmaması gereken türde sorular | İyi ve kötü sorular
Sorulara nasıl doğru düzgün cevap verilir
Kaptan Hector Barbossa
SORU SORMA KILAVUZU
Giriş | Sormadan Önce | İlgili Forumu dikkatlice seçin | Anlamlı ve duruma uygun konu başlıkları kullanın | Anlamsız soru cümleleri kurmayın | Açık, dilbilgisi kurallarına uygun ve sözdizimlerine dikkate ederek yazın | Sorunuz sizin için çok acil olsa bile, çok acil diye yazmayın | Sorununuz hakkında tam ve aydınlatıcı iletiler yazın | Amacınızı belirtin | Problemin belirtilerini tanımlayın, kendi tahminlerinizi değil | Sorunuz hakkında açık olun | Nezaket asla yaralamaz ve bazen oldukça yararlıdır | Boyut her şey değildir! | Kabalıkla ilgilenmek | Cevabı E-Posta ile istemeyin | İnsanlardan özel mesajla cevap vermelerini istemeyin | Eğer cevabı anlamadıysanız | Şayet bir cevap alamazsanız | Sorununuz çözüldükten sonra küçük bir not ile bildirin | Sorulmaması gereken türde sorular | İyi ve kötü sorular
Sorulara nasıl doğru düzgün cevap verilir