21. maj 2000 - 15:26Der er
11 kommentarer og 1 løsning
Kald Access med søgning
Er der nogen der ved hvordan jeg åbne access direkte med en søgning?
Eksempel:
Jeg har en database MineVenner.db den indeholder forskellige felter. Den indeholder forskellige felter, bl.a. fødselsdato og mobilnummer. Kan jeg kalde Access på en sådan måde at den søger på dato Lidt a la Access MineVenner.db -søg dato=15/5.
Endnu bedre kan jeg kalde access så den giver mig mobilnummeret hvis jeg giver den fødselsdatoen. - Sådan at jeg kan lave et lille program der automatisk sender en SMS besked til dem der har fødselsdag :-))
AI bliver først for alvor en del af arbejdet, når teknologien integreres i den måde, vi arbejder på. At have adgang til AI betyder ikke nødvendigvis, at medarbejderne er klar til at bruge den.
Du kan lave det i asp, men det kræver at databasen ligger på en server og du søger on-line og at serveren understøtter asp og at du har acces i office-2000 og at serveren understøtter dette osse.
Hvis du f.eks. kaldte access med telefonnummeret'en på en record du vil have vist: MSAccess.exe MineVenner.mdb /cmd 21212121
Og lægger følgende event ind på åbningsformularen: Private Sub Form_Load() If Command() <> "" Then Me.Filter = "Tlf= '" & Command() & "'" Me.FilterOn = True End If End If
Vil recorden med telefonnummer 21212121 blive vist.
Du lægger events ind på en formular ved at åbne dformularen i design mode, vælge egenskaber (evt. via højreklik), vælge fanen Events (eller hvad det nu er den hedder på Dansk), og finde On Form Load (Dansk: "Ved Åbning" eller sådan noget), og trykke på den lille knap med de 3 punktummer til højre for indtastningsfeltet. Dette vil åbne VBA modulet bag formularen. Alt hvad du skriver heri skal være VB kode, så der er en del du skal lære.
Starop formularen vælges ved at på databasevinduet højreklikke et eler andet sted på den grå kant udenfor listen over objekter, vælge Startup, og i kombinationsboksen vælge den ønskede formular. Som du kan forstå, har jeg kun en Engelsk Access, så jeg ved ikke præcis hvad menupunktet hedder.
I min kode skrev jeg: Me.Filter = "Tlf= '" & Command() & "'"
Den linie går ud fra at du har et tekst felt der hedder Tlf. Har du rettet det til navnet på feltet i din tabel? Er det et tekstfelt? Ellers skal du fjerne "plingerne" (') fra udtrykket.
Angående Events: Når du laver en onload event, så laver den selv koden:
Private Sub Form_Load()
End Sub
og stiller cursoren så du kan begynde indtastningen at koden, og det er helt korrekt kode. Sub hører sammen med End Sub. At jeg i min kode har kommet til at skrive "End If" istedet for "End Sub" viser bare at ingen er fuldkommen... ;) Undskyld forvirringen.
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.