NEMT: Slå post op i ACCESS med LISTBOX

Du kunne fx. gøre således:

Private Sub List1_Click()
Connection
    SQL = "SELECT * FROM kunder WHERE Firmanavn ='" & List1.Text & "'"
    Set rs = Conn.Execute(SQL)
        txtNoter.Text = rs("Noter")
        txtID.Text = rs("ID")
    For i = 0 To 8
        Text2(i).Text = rs(i)
    Next
Conn.Close
End Sub

//>Rune

Hmmmmmm......

Er det ikke dig der hjalp mig sidste gang???

Den kommer nemlig med fejl, og stopper med at markerer linien "Connection" GUL....

*G* jov... :o)

Men det er jo fordi du skal lave en funktion der hedder Connection!

Private Sub List1_Click()
    Dim Conn As New Connection
    Dim rs As Recordset
    Dim strSQL As String
   
  Function Connection()
      Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\DB.mdb"
  End Function
    SQL = "SELECT * FROM kunder WHERE Firmanavn ='" & List1.Text & "'"
    Set rs = Conn.Execute(SQL)
        txtNoter.Text = rs("Noter")
        txtID.Text = rs("ID")
    For i = 0 To 8
        Text2(i).Text = rs(i)
    Next
Conn.Close
End Sub

//>Rune

Jamen der connection du mener jeg skal lave der, er den ikke allerede lavet??? Den HAR jo fingerne nede i min database!!!

Jeg kan nemlig ikke få det til at virke!!!!

HELP!!!

Hmm er det det program jeg lavede til dig du vil have det her til at virke i?

//>Rune

Jeps!!!!

Hvor så efter at den har listet alle den forskellige firmaer som man har søgt under.... så klikker man bare lige på firmaet... og vupti... så skal den hoppe til den!!!!

Hvor skal den hoppe til den henne? Hmm har du ikke ICQ eller Messenger, for så finder vi lige hurtigt ud af det over der istedet for det her, det går for langsomt!

//>Rune

Option Explicit

Dim objConn As New Connection
Dim objRs As Recordset
Dim strSQL As String
Dim strKeyword As String

Private Sub cmdSearch_Click()
    List1.Clear
    strKeyword = txtSearch.Text
    objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\data.mdb"
            strSQL = "SELECT adresse, by, postnummer, land, kontaktperson, telefon, fax, email FROM kunde WHERE"
            strSQL = strSQL & " (adresse LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (by LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (postnummer LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (land LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (kontaktperson LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (telefon LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (fax LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (email LIKE '%" & strKeyword & "%')"
        Set objRs = objConn.Execute(strSQL)
           
            While Not objRs.EOF
                List1.AddItem "" & objRs("telefon") & ""
            objRs.MoveNext
            Wend
        Set objRs = Nothing
    objConn.Close
End Sub

Private Sub Form_Load()
    objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\data.mdb"
        strSQL = "SELECT * FROM kunde"
        Set objRs = objConn.Execute(strSQL)
   
            adresse.Text = objRs("adresse")
            'adresse2.Text = objRs("adresse2") 'fjern mellemrumet i databasen, ved adresse 2!
            by.Text = objRs("by")
            postnummer.Text = objRs("postnummer")
            land.Text = objRs("land")
            person.Text = objRs("kontaktperson")
            telefon.Text = objRs("telefon")
            fax.Text = objRs("fax")
            email.Text = objRs("email")
        Set objRs = Nothing
    objConn.Close
End Sub

Private Sub List1_Click()
    objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\data.mdb"
        strSQL = "SELECT * FROM kunde WHERE telefon ='" & List1.Text & "'"
        Set objRs = objConn.Execute(strSQL)
            by.Text = objRs("by")
            postnummer.Text = objRs("postnummer")
            land.Text = objRs("land")
            person.Text = objRs("kontaktperson")
            telefon.Text = objRs("telefon")
            fax.Text = objRs("fax")
            email.Text = objRs("email")
        Set objRs = Nothing
    objConn.Close
End Sub

Så skulle den være i vinke... ;o)

//>Rune

Nej det har desværrer ikke......

Det jeg gerne vil er at den skal hoppe hen til den kunde som man vælger i listen.....
Ved at man klikker på kunden i det søge felt du oprettede.....

Ligesom at bladre fre/tilbage... bare at den skal gå direkte til kunden og vise alle de informationer kunden har...

Her er den kode du skrev efter at jeg passede din ind....MEN
Det virker ikke rigtigt... den går istå HER og gir fejlen:

"Run-time errer '94':
Invalid use of Null

Når jeg så trykker på debug, markerer den dette her:

postnr.Text = objRs("postnr")

Hvad er det gal??

Det er fordi posten postnr. er tom!

//>Rune

Prøv at skrive On Error Resume Next i løkken!

//>Rune

Hmmmmmm.......

Hvor er det liiiige at løkken ligger??

:oD fair nok... sorry.

Option Explicit

Dim objConn As New Connection
Dim objRs As Recordset
Dim strSQL As String
Dim strKeyword As String

Private Sub cmdSearch_Click()
    List1.Clear
    strKeyword = txtSearch.Text
    objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\data.mdb"
            strSQL = "SELECT adresse, by, postnummer, land, kontaktperson, telefon, fax, email FROM kunde WHERE"
            strSQL = strSQL & " (adresse LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (by LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (postnummer LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (land LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (kontaktperson LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (telefon LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (fax LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (email LIKE '%" & strKeyword & "%')"
        Set objRs = objConn.Execute(strSQL)
           
            While Not objRs.EOF
              On Error Resume Next
                List1.AddItem "" & objRs("telefon") & ""
            objRs.MoveNext
            Wend
        Set objRs = Nothing
    objConn.Close
End Sub

Private Sub Form_Load()
    objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\data.mdb"
        strSQL = "SELECT * FROM kunde"
        Set objRs = objConn.Execute(strSQL)
   
            adresse.Text = objRs("adresse")
            'adresse2.Text = objRs("adresse2") 'fjern mellemrumet i databasen, ved adresse 2!
            by.Text = objRs("by")
            postnummer.Text = objRs("postnummer")
            land.Text = objRs("land")
            person.Text = objRs("kontaktperson")
            telefon.Text = objRs("telefon")
            fax.Text = objRs("fax")
            email.Text = objRs("email")
        Set objRs = Nothing
    objConn.Close
End Sub

Private Sub List1_Click()
    objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\data.mdb"
        strSQL = "SELECT * FROM kunde WHERE telefon ='" & List1.Text & "'"
        Set objRs = objConn.Execute(strSQL)
            by.Text = objRs("by")
            postnummer.Text = objRs("postnummer")
            land.Text = objRs("land")
            person.Text = objRs("kontaktperson")
            telefon.Text = objRs("telefon")
            fax.Text = objRs("fax")
            email.Text = objRs("email")
        Set objRs = Nothing
    objConn.Close
End Sub

//>Rune

En løkke er en For, While eller Do sætning!

//>Rune

Hmmmmm....... jeg ville lave en extra databse connection med den indbyggede database connector.....

Nu går den istå ved den linie:
---------------------------------------------------------------------------
Set objRs = objConn.Execute(strSQL)
---------------------------------------------------------------------------

Og siger:
Run-time error '-2147217904 (80040e10)':
[Microsoft][ODBC Microsoft Access-driver] der er for få parametre. Der var ventet 3.

Er denne funktion her forkert???
----------------------------------------------------------------------------
Private Sub cmdSearch_Click()
    List1.Clear
    strKeyword = txtSearch.Text
    objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\data.mdb"
            strSQL = "SELECT konto, navn, Adresse1, adresse2, by, postnr, land, landekode, telefon, kortnummer, fax, homepage, kontaktperson, email, direkte_tlf_mobil, notatfelt_vedr_kontaktpersoner, notatfelt_vedr_priser_rabtter, oem_agent_søster_oa, formål, notatfelt_vedr_formål, sendt_katalog, julekort, sælger FROM kunder WHERE"
           
            strSQL = strSQL & " (konto LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (navn LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (Adresse1 LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (Adresse2 LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (by LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (postnr LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (land LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (landekode LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (telefon LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (kortnummer LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (fax LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (homepage LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (kontaktperson LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (email LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (direkte_tlf_mobil LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (notatfelt_vedr_kontaktpersoner LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (notatfelt_vedr_priser_rabatter LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (OEM_agent_søster_oa LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (formål LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (notatfelt_vedr_formål LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (sendt_katalog LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (julekort LIKE '%" & strKeyword & "%')"
            strSQL = strSQL & " OR (sælger LIKE '%" & strKeyword & "%')"
        Set objRs = objConn.Execute(strSQL)
           
            While Not objRs.EOF
                List1.AddItem "" & objRs("navn") & ""
            objRs.MoveNext
            Wend
        Set objRs = Nothing
    objConn.Close
End Sub
-------------------------------------------------------------------------

Hmmmmm.......... jeg har fundet ud af at det er når jeg overskrider 10 punkter at søge efter!!!

Kan man ikke søge på mere end 10 afgangen???

Jov sagtens! -Fejlen kommer pga. du har et talfelt som du har sat ' og ' rundt om, det må du ikke.. -kunne det ikek være telefon, kortnummer, fax, direkte_tlf_mobil? -fjern ' og ' rundt om dem og prøv så igen!

//>Rune

Ok........ men jeg tror faktisk at den virker som den skal nu.....

Men kan du ikke lige sige mig, kan man åbne en ny form ved tryk på en knap, hvor den åbner PÅ den post som man er på, på hovedformularen? Det er fordi at jeg har ALT formange oplysninger til at de kan være på en form!!!

Hvorfor er det at den ikke gemmer de ændring jeg laver i VB 6.0 programmet??

Hvis du gider hjælpe mig med de sidste ting her, så smider jeg lige 20 point oveni!!!

Du åbner et andet vindu via en commandbotton sådan her:

    Dim strFrmFil As New frmFilnavn
    Load strFrmFil
    strFrmFil.Show , Me

også selvfølgelige skrive den i din commandbutton_onclick() sub ;o)

Hvad mener du med at den ikke gemmer de ændringer du laver i VB 6.0?

//>Rune

Hvis jeg nu åbner databasen i VB 6.0, laver en eller anden ændring og lukker programmet...... Når jeg så åbner programmet igen så er ændringerne der ikke mere!!!

Og hvordan skal man hæfte en "checkbox" til en database???

Jamen husker du at kompliere dit dokument?

//>Rune

Kompliere??? Hmmmm.... hvad og hvordan gør man så det????

File -> Make projektnavn.exe

//>Rune

Nåååårhhh.... du mener... Compile... ja ja... ikke noget der...Den laver ligeså fint mit exe program!!!

Åbner jeg den så og skriver et eller andet i et felt... lukker programmet og åbner den igen.... tjaaa... så er det bare væk!!!

Ahhh er det selvesete dit kode program??? -hvor skulle jeg vide det fra lol!

Hmm ok, kan jeg ik' lige prøve at se din SQL update eller insert statement?

-BTW, så hedder det kompliere på dansk ;o)

//>Rune

Skal jeg sende hele programmet til dig eller hvad mener du??

Hmm ja det kan du godt... -men sæt lige poinzne op så...!

rune@medions.dk

//>Rune

Så er der lige smidt 20 point mere oveni!!!!!

Har du fundet ud af noget????

Ups, har vidst glemt at kigge på det.. Kigger lige på det nu... ;o)

//>Rune

domino1977> Hmm jeg kan ik' rigtig se hvad det er den skal gemme! -Vil du ik' prøve at ringe til mig her i aften, og så forklare mig hvad det er det skal så vi kan finde ud af det?=!

Tlf. 22272287

//>Rune

Nu sender jeg den lige igen.... både som access 2000 og 97...... prøv så bare at kør programmet.... lav en eller anden ændring, luk programmet og åben den igen....

ÆNDRINGEN er IKKE set!!!!!!!!!!

Hvaså... har du fundet ud af noget????

Jeg kan træffes iaften på Messenger....... kan du ikke lige hjælpe mig der???

Pppplease

Hmm jo, skal lige se om jeg kan være der...

//>Rune

Jeg har faktisk selv fundet ud af det nu!!!!!

Sååå.... du får bare de 60 point her og så er denne sag LUKKET

Hmm fair nok... Jeg har desvære ikke haft tid til at kigge på det, sorry :-(

Thx 4 poinz

//>Rune