Tablodan tabloya veri aktarma acil yardım LÜTFEN!!!

[gundogdu42]

Form içerisindeki iki adet alt formum var ve bu formlarda farklı tablolar var. ama alan adları hepsi aynı. benim istediğim forma eklediğim bir buton sayesinde üstteki tablodan seçtiğim bir veya birden fazla kayıtları alttaki tabloya aktarmak ve tabiki aktarılan kayıtların üst tablodan silinmesini sağlamak. (kes yapıştır gibi) çok uğraştım ama çözemedim. lütfen yardım.

 

[beab05]

Merhaba;
Fazla vaktim yok ama alttaki kod ile seçili kaydı atabilirsiniz requery ile de altat gösteririsiniz..

DoCmd.RunSQL "INSERT INTO hüyy  SELECT * FROM hüybyz WHERE [*] = [Alt12].Form![*] "

 

[gundogdu42]

hocam öncelikle ilginiz için tşk. bu kodla benim istediğim gibi alta atıyor fakat üst taraftan silmiyor onu nasıl yapabiliriz. Ayrıca birden fazla kayıt seçip atmak da istiyorum

 

[beab05]

Merhaba;

Aşağıdaki kodla yine üstten alıp ve silerek alttaki forma kaydı yerleştiriyor ama birden fazla kayıt seçimi için bence bir onay kutusu ekleyin tabloya ve onaya göre alt forma taşınsın..Böylece bir ya da diledğiniz kadar kaydı daha rahatlıkla taşıyabilirsiniz..

With DoCmd
      .SetWarnings False
      .RunSQL "INSERT INTO hüyy  SELECT * FROM hüybyz  WHERE[*] = [Alt12].Form![*] "
      .RunSQL "DELETE FROM hüybyz WHERE[*] = [Alt12].Form![*] "
      .SetWarnings True
End With
[Alt12].Form.Requery
[Alt13].Form.Requery

 

[Taruz]

Merhaba..

Birden fazla kaydı aynı anda silmeniz içinde öneri benden olsun Kodlar yine sayın beab05’in başka bir çözümünden uyarlama

Üstteki alt forma talonuzda hazır bulunan SİL alanını onay kutusuna ilişkilendirerek dahil edin ve Güncelleştirme Sonrasında Olay Yordamına

Me.Requery

yazın..

Sonrasında silme ve aktarma için eklediğiniz Komut28 düğmesinin Tıklandığında olayına

On Error GoTo [COLOR=indigo]Beab[/COLOR]
[COLOR=black]Dim ws As DAO.Workspace[/COLOR]
[COLOR=black]Dim db As DAO.Database[/COLOR]
[COLOR=black]Dim bInTrans As Boolean[/COLOR]
[COLOR=black]Dim strSql As String[/COLOR]
[COLOR=black]Dim strMsg As String[/COLOR]
[COLOR=black]Set ws = DBEngine(0)[/COLOR]
[COLOR=black]ws.BeginTrans[/COLOR]
[COLOR=black]bInTrans = True[/COLOR]
[COLOR=black]Set db = ws(0)[/COLOR]
[COLOR=black] strSql = "INSERT INTO HÜYY " & _[/COLOR]
[COLOR=black] "SELECT * FROM [HÜYBYZ] WHERE (SİL = True);"[/COLOR]
[COLOR=black]db.Execute strSql, dbFailOnError[/COLOR]
[COLOR=black]strSql = "DELETE FROM [HÜYBYZ] WHERE (SİL = True);"[/COLOR]
[COLOR=black]db.Execute strSql, dbFailOnError[/COLOR]
[COLOR=black]strMsg = "Silinip Aktarılacak " & db.RecordsAffected & " kayıt var.."[/COLOR]
[COLOR=black]If MsgBox(strMsg, vbOKCancel + vbQuestion, "Lütfen Onaylayın") = vbOK Then[/COLOR]
[COLOR=black] ws.CommitTrans[/COLOR]
[COLOR=black] bInTrans = False[/COLOR]
[COLOR=black]End If[/COLOR]
[COLOR=black]Exit_DoArchive:[/COLOR]
[COLOR=black]On Error Resume Next[/COLOR]
[COLOR=black]Set db = Nothing[/COLOR]
[COLOR=black]If bInTrans Then[/COLOR]
[COLOR=black] ws.Rollback[/COLOR]
[COLOR=black]End If[/COLOR]
[COLOR=black]Set ws = Nothing[/COLOR]
[COLOR=black]Me.HÜYBYZ_alt_formu.Form.Requery[/COLOR]
[COLOR=black]Me.Alt13.Form.Requery[/COLOR]
[COLOR=black]Exit Sub[/COLOR]
[COLOR=indigo]Beab[/COLOR][COLOR=black]:[/COLOR]
[COLOR=black]MsgBox Err.Description, vbExclamation, "Archiving failed: Error " & Err.Number[/COLOR]
[COLOR=black]Resume Exit_DoArchive[/COLOR]

yazın.. Referanslardan Microsoft DAO 3.6 Object Library i de ekledinizmi tamamdır.

Sonuç:

Üst formda SİL onay kutusunda seçtiğiniz tüm veriler silinip alttaki altforma taşınıyor..

 

[assenucler]

Rica.

Sn. gundogdu42;

Herkese günaydın. Sizden bir ricam olacak... Sorununuzu çözünce, son durumunu yükler misiniz? Her gün yeni bir şey öğreniyoruz. Bu çalışmadan da hocalarımın sayesinde bir kazancım olsun.

Teşekkürler.

Sevgi ve saygılar.

 

[gundogdu42]

Mrb...
Öncelikle Hocalara Tşk Ederim.
Sorunu Hallettim Sayelerinde.
En Son hali EKtedir.