Avatar billede naeif Nybegynder
14. maj 2003 - 14:13 Der er 13 kommentarer og
1 løsning

En form, der søger og udtrækker data

Jeg har en db med to tabeller - Der er en en-til-mange relation tabellerne imellem.- og en tilhørende formular (hoved- og underformular). Data indsættes i tabellerne via denne formular.

Jeg vil gerne lave en formular, der søger efter en tidligere tastede formular og åbner den for små justeringer. Efter disse ændringer skal den så gemmes som en ny formular med en ny nøgle værdi, dvs de indhentede data skal ikke slettes.
Eks.: Når en kunde bestiller en ny speciferet produkt, skal der søges efter et produkt, der ligner den (brugeren kender nummeret på det produkt der skal findes), ændres dens råvarer og gemmes med et nyt produkt nr.

Hvordan gør man det? 

MVH
Ahmad
Avatar billede vraa Nybegynder
14. maj 2003 - 14:24 #1
Træk data ud således:

strSQL = "SELECT * FROM foersteTabel LEFT JOIN andenTabel ON foersteTabel.ID=andenTabel.ID WHERE (foersteTabel.produktID LIKE '" & soegekriterie & "')"

og opdater således

strSQL1 = "INSERT INTO foersteTabel(kollenne1,kollenne2,kollenne3) values('" & kolonne1Tekst & "', '" & kolonne2Tekst & "', '" & kolonne3Tekst & "')"

strSQL2 = "INSERT INTO andenTabel(kollenne1,kollenne2,kollenne3) values('" & kolonne1Tekst & "', '" & kolonne2Tekst & "', '" & kolonne3Tekst & "')"
Avatar billede naeif Nybegynder
14. maj 2003 - 14:37 #2
Hej vraa!

Der skal være en ikon på skrivebordet - der kan kaldes "Åbn form" - når man trykker på den kommer en dialog box, som spørger efter produkt nr. Hvis man nu laver en makro, hvad skal der stå i "WHERE-betingelsen"?

Brugern har ingen IT-baggrund og jeg er nybegynder i Access.

MVH
Ahmad
Avatar billede juks Novice
14. maj 2003 - 18:39 #3
Dim rst As DAO.Recordset, strCriteria As String
    strCriteria = "[INIT] Like '*" & InputBox("produktnavn") & "*'"

    Set rst = Me.RecordsetClone
    rst.FindFirst strCriteria
    If rst.NoMatch Then
        MsgBox "Ingen poster fundet..."
    Else
        'Me.Bookmark = rst.Bookmark
        Me.Bookmark = rst.Bookmark
        Dim bkmrk As Variant
        bkmrk = Me.Bookmark
        DoCmd.Requery
        Me.Bookmark = bkmrk
       
    End If
Avatar billede naeif Nybegynder
15. maj 2003 - 08:45 #4
Hej junks!

Kan man skrive sådan en program kode i access?
Det brugeren kan søge efter er varenr, og jeg tænkte på en formular eller makro eller begge dele i access, som kan løse opgaven.

MVH
Ahmad
Avatar billede juks Novice
15. maj 2003 - 12:26 #5
jamen hvorfor afviser du mit svar...
det kan bruges det skal ind i on_open har du mulighed for at sende databasen
Avatar billede juks Novice
15. maj 2003 - 12:27 #6
ellers skal du lave en formular med et felt også en forspørgelse der har det felt som kritere
Avatar billede naeif Nybegynder
15. maj 2003 - 15:29 #7
Hej igen

Jeg kender ikke "on_open", hvordan virker den? Er det noget i access?
Jeg har en formular, od den har mange felter, også søge feltet (varenr), det er forespørgslen jeg har problemer med!

Sålænge jeg ikke har noget brugbar afviser jeg svaret, ellers bliver problemet jo ikke løst.
Avatar billede juks Novice
15. maj 2003 - 16:17 #8
JA MEN HVIS DU BLIVER VED MED AT AFVISE MINE KOREKTE SVAR GIDER JEG IKKE HJÆLPE DIG.
DU KAN SENDE DEN TIL JHC-IT@MAIL.DK
Avatar billede juks Novice
18. maj 2003 - 21:10 #9
?????????????
Avatar billede juks Novice
02. juni 2003 - 15:54 #10
det er fordi du ikke har referencen ado med husk at tilføje den prøv at sende databasen til mig
Avatar billede naeif Nybegynder
02. juni 2003 - 16:04 #11
Kan du ikke nøjes med northwind?
Avatar billede juks Novice
02. juni 2003 - 16:14 #12
den skal du ikke sende den har jeg :-)...
min kode virker du skal bare have tilføjet referencen ado
Avatar billede naeif Nybegynder
02. juni 2003 - 16:21 #13
Send mig det du har lavet, så kan jeg se hvilken reference du snakker om og hvordan man tilføjer den.
Avatar billede naeif Nybegynder
02. juni 2003 - 16:22 #14
Jeg er nød til at smutte nu, vi fortsætter imorgen.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester