Arkiv af kategorien 'Ikke kategoriseret'
Søndag 4 marts, 2012 |
I dette eksempel vil jeg vise dig, hvordan du gør en søgning på flere ord, i et felt i en formular.
Den kode, der anvendes i dette eksempel er nyttigt til at udføre mere avancerede søgninger.
1 til at oprette tabellen
- Opret tabellen "tbldados" med følgende felter: id (Autonummerering) / Data (tekst)
2 Opret formen "Form1"
- Opret form ved hjælp af guiden og vælge tbldados som en datakilde, skal du vælge "Tabel" til formularen skema.
- Så gå til den form design og oprette et tekstfelt selvstændig, i form sidefoden, opkaldt txtpesquisa.
- Opret en knap på ejendommen og sætte følgende kode:
"************************************************* *************
"Udarbejdet af Jose Martins
'Site: www.accessexemplos.com
'Date: 2011/09/22
'BEMÆRK: Du må ikke fjerne denne overskrift. Respekter forfatter af koden.
"************************************************* **************
On Error GoTo Err_Comando8_Click
Dim ord () som String
Dim x As Integer
Dim strSQL As String
Dim strWhere As String
ord = Split (Me.txtpesquisa, "")
For x = 0 Til UBound (ord)
strWhere = strWhere & "data som '*" & ord (x) & "*" eller "
Næste X
strWhere = Venstre $ (strWhere, Len (strWhere) - 3)
strSQL = "SELECT * FROM tbldados hvor" & strWhere & "ORDER BY [data]"
Me.RecordSource = strSQL
Exit_Comando8_Click:
Exit Sub
Err_Comando8_Click:
MsgBox Err.Description
Resume Exit_Comando8_Click
Hvad koden gør, dybest set, er at skabe en række sammensat af ordene i txtpesquisa, der registreres gennem rummene. Efter en cyklus er skabt til at søge efter alle de indtastede ord i txtpesquisa.
3. Test
- Indtast data og derefter skrive det eller de ord, som vi finder i tekstfeltet (txtpesquisa), skal du klikke på knappen og for at kontrollere resultaterne.
Nedenfor er linket til dowenlod eksempel: FORSKELLIGE Søgeord
Posted in Ikke kategoriseret | No Comments »
Lørdag 6 august, 2011 |
I dag har jeg tilføjet Google Button Plus +1. Dette er en anden måde at annoncere stillingerne. Hvis du ikke har inviteret til Google Plus efterlade en kommentar med din e-mail-adresse for at sende invitationen.
Posted in Ikke kategoriseret | 13 kommentarer »
Onsdag 13 juli, 2011 |
Dette er en meget simpel database, der tjener til at styre udgifter i hverdagen.
Hovedmenu
På billedet kan man se hovedmenuen meget enkel og funktionel. På toppen kan vi se det år, hvor vi arbejder.
Års arbejde
For at ændre års arbejde på knappen for at vælge år og åbne form (fig. 2), skrive det år, vi ønsker.
Udgifter
Udgifter på knappen åbne form (fig. 3) for indtastning af data. Ved siden af den kategori, vi har et '+' knappen for at tilføje kategorier og underkategorier har den ene side af '+' knappen for at tilføje underkategorier (ved at klikke på de underkategorier, hvis du ikke har valgt cetegoria giver fejl og beder om at vælge den kategori . Hvis du har valgt den kategori, det åbner formularen kategorier i den valgte kategori).
Inden vi kan vælge en leverandør på listen, og hvis der er han spørger, om du ønsker at tilføje.
Kategorier
Denne form (figur 4) bruges til at styre (indsætte / ændre / slette / søgning) kategorier og deres underkategorier.
Leverandører
Denne form bruges til at styre (indsætte / ændre / slette / søgning) navnene på leverandørerne.
Rapporter
Klik på denne knap åbner menuen (billedet 5) rapporterer, hvor vi kan vælge fire forskellige typer af rapporter:
- Omkostninger for indeværende år (Fig. 6) viser en rapport med den kategori, underkategori, og den samlede værdi pr måned i år, vi arbejder. Det viser også de samlede udgifter pr måned og alt af underkategori.
Denne rapport indeholder et diagram for underkategori, der viser den månedlige udvikling i hver underkategori. Denne graf er ikke min egen, det pågældende modul har forfatterens oplysninger, herunder:
"Forfatter: Philippe Bonnardel (baseret på en idé om Edward Tufte)
- Omkostninger pr år (billede 7): viser en formular med udgifterne efter kategori i et givet år. Vi kan vælge året for udgifter, forudsat at der er en udgift registreret i det pågældende år for at se grafen. Når du dobbeltklikker på den kategori åbner den årlige rapport fra underkategorier, der har samme format. Når du dobbeltklikker på åbner detaljer i underkategori (Fig. 8) omkostningerne i denne underkategori.
Detail
- Udgifter per måned: svarende til udgifterne per år, men her kan vi vælge det år og måned, du ønsker.
- Udgifter af leverandøren viser en formular med pris pr leverandør i et givet år, og dens graf. I denne rapport kan vi kun vælge det år du ønsker at se.
Årlig Sammenligning
Viser udviklingen i udgifterne i de sidste 10 år. Viser værdierne for år og viser en graf.
Jeg afventer kommentarer fra denne database, men jeg vil føje funktionalitet til eksempel som evnen til at udskrive rapporter.
Download eksempel: UDGIFTER
Posted in Ikke kategoriseret | 12 kommentarer »
Lørdag, marts 26, 2011 |
Denne ajourføring af salget ændringer var som følger:
Sætte virksomhedens image i den rapport, som ikke blev vist.
Omarbejdning trykning aspekt af salg og placering af "produkt", der ikke var på tryk.
Placering af bordet IVa og totaler.
Oprettelse af de danner notering daglige salg, hvor vi kan se alle salg på dagen, og en liste efter type betaling.
Ændring af kode for at indsætte billedet af firmaets logo. Fordi billedet er knyttet til 'localfoto ", som er den sti på disken, hvor billedet, hvis billedet ikke er på stedet gav fejl og ikke åbne blanketten" virksomhedens data ". Så jeg satte en rutine, som kontrollerer fejl opstår, og i så fald skjuler billedet og forlader den funktion ikke at give fejl. Dybest set tilbage til den oprindelige tilstand, som om det ikke havde billede.
Ændret i form og udskrive rapporten af salget.
Leverandører - formularen blev oprettet for leverandører. Når du indtaster et nyt køb, og leverandøren ikke eksisterer, spurgt, om du ønsker at tilføje. Hvis det er tilfældet åbner formularen "Leverandører" for at indtaste data.
Shopping - Hvis artiklerne ikke eksisterer, spurgt, om du vil indsætte.
Download: Sales System
Tak til at teste og kommentere, at forbedre systemet.
Posted in Ikke kategoriseret | 10 kommentarer »
Lørdag 12 marts, 2011 |
I tilfælde af husly dyr og sådan salgssystem har en form, hvor vi kan sætte et billede. Efter at have brugt denne kode jeg fandt, at da billedet er knyttet til 'localfoto ", som er den sti på disken, hvor billedet, hvis billedet ikke er på stedet gav fejl og ikke åbne formularen. Så jeg satte en rutine, som kontrollerer fejl opstår, og i så fald skjuler billedet og forlader den funktion ikke at give fejl. Dybest set tilbage til den oprindelige tilstand, som om det ikke havde billede.
I næste indlæg vil jeg sætte den næste opdatering af salgssystem, hvor vi kan se arbejde koden. Men vi kan lave en test, der er at sætte salgssystem i en anden mappe, og se hvad der sker, når vi åbner i form af virksomhedens data.
Koden opdateres som følger:
'Www.accessexemplos.com
'Jose Martins
'2011-02 til 28
On Error GoTo Err_mostraimagem
Hvis IsNull (Me.Localfoto) = False Derefter
Me.FOTO.Picture = Me.Localfoto
FOTO.Visible = True
SEMFOTO.Visible = False
Else
Me.FOTO.Picture = ""
SEMFOTO.Visible = True
FOTO.Visible = False
End If
Exit_mostraimagem:
Exit Sub
Err_mostraimagem:
Vælg Case Err.Number
Case 2220 "ikke kan se billedet
FOTO.Visible = False
SEMFOTO.Visible = True
Resume Exit_mostraimagem:
Case Else 'Anden fejl.
MsgBox Err.Number & "" & Err.Description
Resume Exit_mostraimagem:
Afslut Vælg
Posted in Ikke kategoriseret | No Comments »
Lørdag 12 marts, 2011 |
For en bruger, når du indtaster data altid skrive med versaler bare sætte følgende kode i feltegenskaberne i tilfælde ', når du trykker på' (OnKeyPress):
KeyAscii = Asc (ucase (Chr (KeyAscii)))
hvor KeyAscii vil modtage en ny ASCII-kode
chr = viser ASCII-tegnkode
Funktionen 'asc': Returnerer et heltal, der repræsenterer koden (ASCII) tegnet svarende til det første bogstav i en streng.
Ucase Funktion: Konverterer en streng til store bogstaver.
Chr. funktion: det viser karakter af ASCII-kode
At konvertere til små bogstaver bare ændre ucase LCase af:
KeyAscii = Asc (LCase (Chr (KeyAscii)))
Posted in Ikke kategoriseret | No Comments »
Lørdag 30 oktober, 2010 |
Jeg har bemærket, at nogle læsere sende den samme besked flere gange, fordi de tror, at den første ikke blev indgivet korrekt.
Hvis det er første gang at kommentere, dette budskab skal godkendes, som også godkender som egnede til at kommentere.
Dette er en beskyttelse mod SPAM, ikke beskeder synes at have noget at gøre med bloggen.
Så efter at sende den første besked, har bare at vente, indtil det er godkendt, og derefter de næste beskeder vises nu automatisk.
Stadig mørklagt 252 spam-meddelelser ...
Posted in Ikke kategoriseret | 8 kommentarer »
Lørdag Oktober 23, 2010 |
Som det blev sagt i forrige besked, jeg har ændret det sted, hvor de filer til download.
Fra nu til huse i tjeneste BOX.NET , hvor mindst ikke længere behøver at vente, til overførslen og har ingen reklamer.
Du har stadig nødt til at opdatere nogle links, som i næste uge vil blive afsluttet. Også sætte et link i menuen af bloggen "Downloads", som forbinder til den mappe på BOX.NET hvor alle de filer tilgængelige for download.
Eventuelle spørgsmål eller finde den ændrede fil, tak for at informere mig.
Posted in Ikke kategoriseret | 2 Comments »
Onsdag, august 19, 2009 |
Idag vil jeg vise, hvordan du opretter en menulinje, skridt for skridt, for at give en mere professionel og giver blot adgang til løsninger, som virkelig betyder noget for slutbrugeren af et projekt i Access.
I slutningen vil vi have en menubjælke, der ligner billedet nedenfor.
1 - Gå til menuen og vælg 'tilpas'. Følgende menu vises:
2 - Vælg fanebladet 'Værktøjslinjer' og vælg 'Ny', og indtast det navn, du ønsker at give til værktøjslinjen, jeg valgte "menu". Klik på OK, og vises på værktøjslinjen, som vil arbejde, som for nu har ingen valgmuligheder.
3 - Med den valgte værktøjslinjen klik på 'Egenskaber' og følgende menu vises:
4 - Skift 'Type' til 'Toolbar', og klik derefter på Luk.
5 - Klik på 'kommandoer' og på listen til venstre, der hedder 'kategorier' vælge 'ny menu ", som bør være i sidste position. Klik derefter på boksen til højre 'kommandoer' og træk "ny menu" op på vores menulinjen som eksemplificeret af billedet nedenfor.
Drag 'nye menu' op på vores menulinjen, de tidspunkter, der kræves med antallet af menuer, som vi har brug for i dette eksempel vil jeg trække tre gange for at lave to menuer og undermenuer. For at gøre en undermenu skal du blot trække 'ny menu i en menu. Bemærk: Antallet af menuer kan ændres senere, kan du tilføje eller falde med, som du har brug for.
6 - Hvis du klikker på højre knap på musen på toppen af "ny menu" af vores værktøjslinjen og ændre navnet som ønsket. I det eksempel, jeg valgte 'kunder' for 1. og leverandører 'for 2nd.
7 - Lad os nu sætte menuer i former, som vi ønsker at åbne. Klik på 'Kommandoer' og vælg kategorien "Alle former 'og på højre side vil vise alle eksisterende form i det aktuelle projekt. Klik på den formular, du ønsker, og trækker på værktøjslinjen. I det eksempel jeg har valgt forskellige former og rapporter og også mulighed for EXIT (for at lukke Access). På dette tidspunkt kan vi vælge, hvad vi ønsker, at vores værktøjslinje åbner du bare nødt til at vælge, hvad vi ønsker i de kategorier, tabeller, formularer, rapporter, forespørgsler, Access action menuer, der vises som menulinjen som standard osv.).
8 - Når du har valgt alt, hvad du vil have på vores menulinjen, kan du klikke på hver enkelt med højre museknap for at se de egenskaber, der kan ændre. Se billedet nedenfor.
'Reset' - tjener til at sætte en punkt på dagsordenen var oprindeligt, før du ændrer navnet på billedet, mv.
'Slet' - slette et menupunkt
'Navn' - for at ændre navnet på menupunktet. Her kan vi også sætte genvej til dette punkt ved hjælp af tegnet, før det bogstav, du vil bruge som en genvej. For eksempel er det Afslut indstilling som standard allerede godt & Afslut menuen vises bogstavet »r« understregede, at fortæller os, at når du bruger ALT-tasten + R kører Exit menupunkt. I det eksempel jeg har valgt at åbne Kunder og klient med genvejen ALT + C.
'Kopier / indsæt / reset / redigere / ændre på knappen billedet "- disse kommandoer bruges til at arbejde præcis det billede, vi ønsker at se ud for hvert element. Vi kan kopiere og indsætte billedet til anvendelse i en anden post, gendanne det originale billede, redigere billedet og gøre et ikon editor (pixel for pixel) eller vælge et billede til rådighed på menuen ændringen.
Så kan vi også vælge det aspekt af emnet, dvs hvis vi ønsker kun tekst eller tekst og billede.
"Start en gruppe" - tjener til at adskille elementer ved vandret stang, eller oprette grupper af poster.
"Link tilskud" - at tildele et link til enten en URL eller et objekt i databasen.
'Egenskaber' - viser alle egenskaberne for elementet.
9 - Nu da vi har menulinjen vi klar til at sætte på plads. For at gøre dette klik på luk-knappen og trække vores menu til toppen af skærmen, indtil du indsætter den, hvor baren er standard Access.
10 - for at starte for at åbne databasen er nødt til at give instruktion til at åbne, når du starter Access. Lad 'Tools' og 'Start' og 'Menu Bar' vælge navnet på vores menu i dette eksempel "menu".
11 - For at ændre billeder af hver menupunkter, vi kan bruge en anden måde er at indsætte et billede i samme form og kopi til elementet. Der er:
- Opret en formular i form af struktur
- Gå til menuen Indsæt og vælge det billede
- Vælg et billede og tryk enter
- Vælg det billede, og med højre museknap vælg Kopier
- Gå til menuen Funktioner og vælge muligheden for at tilpasse
- Klik på den højre knap på musen på den post, du ønsker at ændre billedet og vælg Sæt ind knapflade.
- Klik på Luk og tæt adgang
- Start database for at se resultatet
VIGTIGT: Ved udskiftning af menulinjen, menuen forsvinder i Access-databasen, er det gjort. For at lave ændringer i, er det nødvendigt at starte databasen SKIFT-tasten nede.
Min menu ser sådan ud:
Download: Menu Bar
Posted in Ikke kategoriseret | 9 kommentarer »
Onsdag, maj 20, 2009 |
Vi kan forhindre en rapport, åben, hvis ingen data at vise, og til dette bruger vi to former afhængigt af den version af Access:
1 - Alle versioner af Access
Placer koden nedenfor egenskaber rapporten, hvis "Aktivering af forb.
Brug begivenhed Enabling (Aktivér) Rapport:
Private Sub Report_Activate ()
Hvis DCOUNT ("*", Me.RecordSource) = 0 Så
MsgBox "Ingen poster at vise" vbDefaultButton1, "Fejl!"
AcReport DoCmd.Close, "rapport navn"
End If
End Sub
2 - Fra version 7 (Access 95) blev tilføjet event ', hvis ingen data', så kan vi urilizar følgende kode:
Private Sub Report_NoData (Cancel As Integer)
MsgBox "Ingen data i rapporten.", VbInformation, "Fejl!"
Annuller = True
End Sub
Hvis du vil se kører downloade eksempel: Undgå åbning rapport
Posted in Ikke kategoriseret | 13 kommentarer »
