Kundedatabase - Ved klik overfør data.

Det er muligt ...

Jeg kommer med et eksempel ...

Kanon;-)

Eksempel :

Private Sub GruppeBoks_AfterUpdate()
Dim strSQL As String
Dim db As DAO.Database

    Set db = CurrentDb()
     
    If GruppeBoks.Value = 3 Then
   
      strSQL = "INSERT INTO Tabel2 ( Kundeid, KundeNavn ) "
      strSQL = strSQL & "SELECT Tabel1.Kundeid, Tabel1.KundeNavn "
      strSQL = strSQL & "FROM Tabel1 "
      strSQL = strSQL & "WHERE (((Tabel1.Kundeid)=[Formularer]![Formular1]![Kundeid]));"

    db.Execute strSQL
   
      strSQL = "Delete Tabel1.Kundeid, "
      strSQL = strSQL & "Tabel1.KundeNavn "
      strSQL = strSQL & "FROM Tabel1 "
      strSQL = strSQL & "WHERE (((Tabel1.Kundeid)=[Formularer]![Formular1]![Kundeid]));"

    db.Execute strSQL
   
    Else
   
    End If
   
End Sub

Er der ikke nem måde hvis nu det er alle data fra tabel1 der skal over i tabel2 hvis value = 3??

Selvfølgelig ... 2 sekunder

Perfekt

Private Sub SletKnap_Click()
Dim strSQL As String
Dim db As DAO.Database

    Set db = CurrentDb()
     
      strSQL = "INSERT INTO Tabel2 ( Kundeid, KundeNavn ) "
      strSQL = strSQL & "SELECT Tabel1.Kundeid, Tabel1.KundeNavn "
      strSQL = strSQL & "FROM Tabel1 "
      strSQL = strSQL & "WHERE (((Tabel1.value)=3));"

    db.Execute strSQL
   
      strSQL = "Delete Tabel1.Kundeid, "
      strSQL = strSQL & "Tabel1.KundeNavn "
      strSQL = strSQL & "FROM Tabel1 "
      strSQL = strSQL & "WHERE (((Tabel1.value)=3));"

    db.Execute strSQL
   
   
End Sub

Fremgangsmåden er du indarbejder en knap på formularen, eventuelt kan du vælge at udføre funktionen ved lukning af formularen.

JAmen i denne kode skal jeg jo alligevel skrive de felter med dertilhørende poster der skal overføres - SELECT tblEmner.EmneId, tblEmner.NationelltVal, tblEmner.InternationelltVal, tblEmner.KundeAnsvarlig, tblEmner.Foretagsnamn, tblEmner.Orgnr, tblEmner.Gatuadress, tblEmner.Postnr, tblEmner.Ort, tblEmner.NACE_KOD, tblEmner.KontaktNamn, tblEmner.Branche, tblEmner.KontaktTelefonnr, tblEmner.Fax, tblEmner.Mobiltelefonnr, tblEmner.Hjemmeside, tblEmner.Phoner, tblEmner.KontaktEmail, tblEmner.Noter, tblEmner.OpkaldStatus, tblEmner.MoedeType, tblEmner.AnsvarligMedarbejder, tblEmner.SidsteOpringning, tblEmner.StatusDato, tblEmner.SidsteStatus, tblEmner.RingIgen, tblEmner.Slet, tblEmner.Prislistenr, tblEmner.Gruppnummer, tblEmner.Direktvalsnummer, tblEmner.Anummer, tblEmner.SaljDatum, tblEmner.VIRKSOMHEDSFORM, tblEmner.felt1, tblEmner.Fornamn, tblEmner.Efternamn, tblEmner.Salg, tblEmner.[Afsluttet og godkendt]
FROM tblEmner;

Der er så mange felter i min tabel der skal flyttes til tabel2 hvis værdien er = 3 - Så er det jeg spøger efter kan man ikke bare lave det sådan at den flytter alle felter og poster for det pågældende emne??

Private Sub SletKnap_Click()
Dim strSQL As String
Dim db As DAO.Database

    Set db = CurrentDb()
     
      strSQL = "INSERT INTO Tabel2 "
      strSQL = strSQL & "SELECT Tabel1.* "
      strSQL = strSQL & "FROM Tabel1 "
      strSQL = strSQL & "WHERE (((Tabel1.value)=3));"

    db.Execute strSQL
   
      strSQL = "Delete * "
      strSQL = strSQL & "FROM Tabel1 "
      strSQL = strSQL & "WHERE (((Tabel1.value)=3));"

    db.Execute strSQL
   
   
End Sub

"strSQL = strSQL & "WHERE (((Tabel1.value)=3));" - Skal der ikke står rammen?? - JEg laver det med en almindelig afkrydsningsboks i stedet - Den hedder afsluttet når denne er = true skal den den overflytte alle - HVordan ser det så ud? - Håber du vil hjælpe en sidste gang?

Den nævnte fremgangsmåde forudsætter, at værdien ( 3 ) gemmes i tblEmner, vel i feltet [Afsluttet og godkendt]

Dvs.  strSQL = strSQL & "WHERE (((tblEmner.[Afsluttet og godkendt])=3));"

Fuck det virker bare slet ikke for mig - ved ikke helt om vi misforstår hinanden

OBS ! ... har du ref til DAO 3.6 ( i modulkodevindu )

Jeg har en afkrydningsboks der hedder Godkend og afslut når jeg trykker på denne og der er et flue ben skal min post / emne overføres til tabel2;-)

Jeps har ref hertil

Det flueben, sætter du det i tabellen, eller kun på formularen ?

Jeg sætter det i formularen - Men det har en -1 for ja og 0=nej i tabellen - Så jo det optræder begge steder!!

Oplysninger/værdien ( Aldrig ring igen = 3 ) ... hvor gemmes den ?

I opkalfdsstatus - men den skal jeg jo sådan set ikke bruge tl noget hvis det bliver ud fra afkrydningsfeltet!!

Aldrig ring igen gemmes ja i opkaldsstatus - men den skal jeg ikke bruge til noget i denne sammenhæng - DEt er jo afkrydsningsboksen Afslut og godkend der skal afgøre om data skal flyttes..

Jo, når du vælger at lave en total overførsel, hhv. sletning af data fra den ene til den anden tabel, er du nødt til at have værdien 3 som rettesnor for, hvad der skal ske med data.

Dvs. kriteriet er så :

strSQL = strSQL & "WHERE (((tblEmner.opkalfdsstatus)=3));"

jamen så kunne jeg vel bare have - godkend og afslut til at være "-1" - så kan de vel være rettesnor??

Hvis det er det som afgør om data skal gemmes, er dette korrekt ... men det var ikke lige det som du havde i din opgavebeskrivelse ... c",)

sorry - Men den har også ændret sig lidt undervejs - fik jo et par gode ideer da du kom på banen - Nu er spørgsmålet bare hvordan jeg skriver koden når det skal være en afkrydsningsboks!! -

Det afgørende er fortsat, at når du vil overføre flere poster til en anden tabel og efterfølgende slette de samme data fra den oprindeligt, er du nødt til at identificere disse poster, og du har altså nu to muligheder som jeg ser det :

  1. WHERE (((tblEmner.opkalfdsstatus)=3))
  2. WHERE (((tblEmner.[Godkendt og afsluttet])=-1))

Jeg er fuldstændig stået af nu..c",) Jeg vil overflytte flere poster til en tabel og slette dem fra den anden - eller skjule dem hvis dette er muligt!  - Men jeg vil kun gøre det ved en ad gangen. Når den får en kryds i Godkendt og afsluttet skal der ske følgende: Data flyttes til tblemner_afsluttet

Det er meget svære end jeg havde regnet med..

Nu er jeg stået af .....

Er der ikke nem måde hvis nu det er alle data fra tabel1 der skal over i tabel2 hvis value = 3??

Jeg tror vi har snakket helt forbi hinanden på et ret tidligt tidspunkt ....

Har du mulighed for at zippe databasen og maile den til mig : ose@post.dk

Hmm - jeg prøver slev at finde en løsning;-)

Læg et svar og du får point!!

Ikke før vi har fundet en løsning ... c",)

1  Som udgangspunkt ...

tblEmner.opkaldsstatus  ( value = 2 - 4 )
tblEmner.[Godkendt og afsluttet]  ( value = 0 eller -1 )

Findes og gemmmes disse to i tabellen ?

2 Du arbejder med en alternativboks hvor du angiver som du skriver ( 2 - 4 )

I hvilken sammenhæng benyttes Godkendt og afsluttet ???

Er det kombinationen af Aldrig ring igen = 3 og Godkendt og afsluttet du vil have kopieret over i tblEmnerAfsluttet ????

Vi er ret langt omkring c",)

Når opkaldsstatus som er alternativer har værdien:

Afsluttet uden salg = 5

Afsluttet med salg = 2

Aldrig ring igen = 3

skal de flyttes over i TblEmnerafsluttet -

Dog vil jeg også gerne have en løsning hvor hvis der er et kryds i i Godkendt og afsluttet ( som ikke er en alternativboks, men en afkrydsningsboks) - hvis denne ertrue skal data flyttes til TblEmner afsluttet - SÅ har jeg nemlig to løsninger at vælge imellem..

Hej

Såfremt du ikke har fået en endelig løsning - så har jeg et alternativ:

Indsæt en knap (Kopier & Slet) i formularen. Når denne knap aktiveres vil den, den pågældende post i den underliggende tabel bliver kopieret til den anden tabel. Herefter vil posten blive slettet.

Du kan herved selv bestemme, hvornår en post skal kopieres & slettes.

Alle felter - uanset antal vil blive kopieret.

I koden skal der blot indsættes navnet på de to tabeller, nøglefeltets navn i formularen samt nøglefeltets feltnr. i tabellen.

Giv signal, hvis du er interesseret i at få koden.

MVH

Meget interessret i at få koden!!

Du har endnu ikke lagt et svar - så du kan jo ikke få point!!

Her er koden: linien, hvor du skal tilpasse navne m.v. er markeret med <<<<<< som kommentar.

Option Compare Database
Option Explicit
Dim sletning As Boolean, id
Private Sub Form_Open(Cancel As Integer)    'Ved åbning af formularen
    sletning = False
End Sub
Private Sub Kommandoknap124_Click()          '<<<<<< Slet knappen's hændelse
    sletning = True
Rem =============
    id = [kortnr]                            '<<<<<< formularfeltet's navn for nøglefeltet *)
Rem =============
End Sub
Private Sub Form_Current()                  'Når posten aktiveres - undersøges om der skal ske sletning af forrige
    If sletning = True Then
        slet
    End If
    sletning = False
End Sub
Private Sub slet()
Rem =============================
Const tabel1 = "stamdata"                    '<<<<<< primære tabel
Const tabel2 = "kopi af stamdata"            '<<<<<< tabel for slettede data
Const idfeltnr = 0                          '<<<<<< nøglefeltets *) plads i den primære tabel - 1. felt = 0
Rem =============================

Dim dbx As Database, stam, Kopi, aktuellepost, f
     
    Set dbx = CurrentDb
    Set Kopi = dbx.OpenRecordset(tabel2)
    Set stam = dbx.OpenRecordset(tabel1)
         
    If findAktuelle(stam, id, idfeltnr) = True Then
        With Kopi
            .AddNew
            For Each f In dbx.TableDefs(tabel1).Fields
                .Fields(f.Name).Value = stam.Fields(f.Name).Value
            Next f
            .Update
        End With
   
        stam.Delete
    End If
End Sub
Private Function findAktuelle(stam, id, feltNr) 'find posten i den primære tabel
Dim f
    For f = 1 To stam.RecordCount
        With stam
            If .Fields(feltNr) = id Then
                findAktuelle = True
                Exit Function
            End If
            .MoveNext
        End With
    Next f
    findAktuelle = False
End Function



MVH

Hmm nu er jeg jo ikke super god til det her - men jeg prøver den lige og så vender jeg tilbage

Jeg kan ikke få en skid til at virke - øv

Supertekt - du kunne vel ikke lave et par eksempeler - både et med alternativbokse, kommandoknap, og afkrydningsboks - så er du sku en guttermand og så sende det på en mail til mariacand@webspeed.dk - jeg vil godet give dig nogle flere point!! :-)

Hej maria.cand

Har du fået noget til at fungere?

MVH

Hejsa supertekst... Jeg sidder altså med samme spm som Maria.. var det muligt at du kunne sende de eksempler til mig også.. jeg syns hellerikke jeg kan HITTE u a d!! :( Jeg vil selvfølgelig også gerne give nogle points for d..
Med venlig hilsen
th
på forhånd takker... min email er= ts"a"net4you.bg

THNXXXX a 1.000.000!! :=) vil du have lidt poits eller en kold fad ved lejlighed? :=)

Selv tak - der kan måske være lidt langt for en fad at nå¨til Skive - så et par points er vel nemmere.

MVH