Hallo iedereen, ik heb een vraagje over sorteren van cijfers.
Hoe kan ik de nummers of cijfers sorteren in Acces2003 (zie bijlage als voorbeeld)
jullie zouden mij er een groot plezier mee doen,
want ik zelf geraak er niet aan uit om die code te schrijven in een button (zie bijlage als voorbeeld).
Iedereen bedankt voor de mensen die daar op reageren en mij de code kan sturen.
Bedankt bij voorbaat.
 

Bijlagen

Qtex

Beheerder
Forumleiding
Admin
sorry van acces ken ik niets en heb me hier ook nooit in verdiept ..
 

Lana

Niet meer actief
Ik heb me daar ooit wel eens in verdiept, maar uiteindelijk heb ik gekozen voor sql databases i.p.v. access met asl.

Maar wie weet kan ik je nog helpen als ik het voorbeeld heb. Wat je nu geef is een word bestandje waar ik niets aan heb.

Ik moet wel diep in mijn geheugen gaan graven, maar wil het wel proberen.
 
sorteren

sorteren

Hey Lana,
Ik kan het bestand niet versturen, omdat het een mdb bestand is van Acces 2003.
Maar via E-Mail kan ik het wel versturen, maar dan zou ik je E-Mail adres willen weten,
als je wilt natuurlijk(niets moet).
Als je daarmee akkoord gaat heb je hier alvast mijn E-Mail adres en dat is ** Moderator Notice: om je eigen te behoeden van spam werd dit email adres verwijderd ..

Bedankt bij voorbaat.
 
Laatst bewerkt door een moderator:
Bekijk bijlage Lottodb1.rar
Hey Lana,
Hier ben ik dan terug.
Ik heb het bestand verstuurt als RAR bestand, en zo is het gelukt.
En ik hoop dat je daar een beter zicht van krijgt.
Daar moet toch een oplossing voor zijn om het te sorteren,
maar ik heb natuurlijk gemakkelijk praten.
Nogmaals bedankt bij voorbaat.

PS.Wat betreft van mijn E-Mail adres sorry hoor maar dat wist ik niet.
Dat was een zeer slecht idee en bedankt dat jullie het verwijdert hebt.
 

Lana

Niet meer actief
Hey Lana,
Ik kan het bestand niet versturen, omdat het een mdb bestand is van Acces 2003.
Maar via E-Mail kan ik het wel versturen, maar dan zou ik je E-Mail adres willen weten,
als je wilt natuurlijk(niets moet).
Als je daarmee akkoord gaat heb je hier alvast mijn E-Mail adres en dat is ** Moderator Notice: om je eigen te behoeden van spam werd dit email adres verwijderd ..

Bedankt bij voorbaat.
Ja sorry, niet alle bestandsformaten zijn uit veiligheidsoverweging toegestaan op Pctuts. Uiteraard kun je het inpakken met bijvoorbeeld winrar en dan als bijlage meesturen in een bericht.
 

Lana

Niet meer actief
Toch nog even snel gekeken naar dit bestand.

Als ik naar de gebruikte module kijk, mis ik nog iets. Er wordt verwezen naar een library : MouseHook.dll

Wat ik me af vraag is of je dit zelf gemaakt heb of dat dit een onvolledige download is die je werkend probeer te krijgen. Is het laatste het geval, probeer dan eerst het ontbrekende bestand te vinden.

Wat volgens mij ook ontbreekt is een Macro om de sorteerfuntie uit te voeren.


Code:
Public Function MouseWheelOFF(Optional NoSubFormScroll As Boolean = False, Optional GlobalHook As Boolean = False) As Boolean
Dim s As String
Dim blRet As Boolean
Dim AccessThreadID As Long

On Error Resume Next
' Our error string
s = "Sorry...cannot find the MouseHook.dll file" & vbCrLf
s = s & "Please copy the MouseHook.dll file to your Windows System folder or into the same folder as this Access MDB."

' OK Try to load the DLL assuming it is in the Window System folder
hLib = LoadLibrary("MouseHook.dll")
If hLib = 0 Then
    ' See if the DLL is in the same folder as this MDB
    ' CurrentDB works with both A97 and A2K or higher
    hLib = LoadLibrary(CurrentDBDir() & "MouseHook.dll")
    If hLib = 0 Then
        MsgBox s, vbOKOnly, "MISSING MOUSEHOOK.dll FILE"
        MouseWheelOFF = False
        Exit Function
    End If
End If

' Get the ID for this thread
AccessThreadID = GetCurrentThreadId()
' Call our MouseHook function in the MouseHook dll.
' Please not the Optional GlobalHook BOOLEAN parameter
' Several developers asked for the MouseHook to be able to work with
' multiple instances of Access. In order to accomodate this request I
' have modified the function to allow the caller to
' specify a thread specific(this current instance of Access only) or
' a global(all applications) MouseWheel Hook.
' Only use the GlobalHook if you will be running multiple instances of Access!
MouseWheelOFF = StopMouseWheel(Application.hWndAccessApp, AccessThreadID, NoSubFormScroll, GlobalHook)
 
Bekijk bijlage Lottodb1.rarBekijk bijlage MouseHook.rarBekijk bijlage MouseWheel.rar
Hallo Lana
Sorry voor het ongemak, maar dacht dat het gemakkelijker zou geweest zijn om een kleinere versie van te geven.
Ik heb nu het volledige (amateur) programma gegeven met daarbij MouseHook en MouseWheel meer heb ik niet.
Het programma zou nu moeten werken het is te zeggen bij mij werkt het toch prima.
Het zijn afzonderlijke Rar bestanden maar als je ze uitpakt dan horen ze normaal in één en dezelfde map te zitten.
Maar van een Macro om de sorteerfunctie uit te voeren heb ik niet hoor.
En nogmaals sorry voor het ingekort programma dat ik eerst opstuurde,
dacht er goed mee te doen maar blijkbaar is dat niet altijd zo.
Alvast bedankt Lana
 

Mik

Medewerker
Forumleiding
Ik gebruik wel af en toe eens Acces, maar importeer meestal uit Exell. Gebruik dit maar alleen om etiketten te maken.
 

Lana

Niet meer actief
Bekijk bijlage 14438Bekijk bijlage 14439Bekijk bijlage 14440
Hallo Lana
Sorry voor het ongemak, maar dacht dat het gemakkelijker zou geweest zijn om een kleinere versie van te geven.
Ik heb nu het volledige (amateur) programma gegeven met daarbij MouseHook en MouseWheel meer heb ik niet.
Het programma zou nu moeten werken het is te zeggen bij mij werkt het toch prima.
Het zijn afzonderlijke Rar bestanden maar als je ze uitpakt dan horen ze normaal in één en dezelfde map te zitten.
Maar van een Macro om de sorteerfunctie uit te voeren heb ik niet hoor.
En nogmaals sorry voor het ingekort programma dat ik eerst opstuurde,
dacht er goed mee te doen maar blijkbaar is dat niet altijd zo.
Alvast bedankt Lana
Dat is het formulier. Waar heb je de query met tabellen staan. Ik kom verder nergens bij.

Bijvoorbeeld zoiets als bijlage
 

Bijlagen

Lana

Niet meer actief
Dan vrees ik dat ik hier niet zo veel kan betekenen. Mijn access kennis is beperkt.
Mijn kennis bevat meer de database koppellingen maken in ASP sheets, maar ook dat heb ik losgelaten en de keuze gemaakt voor MySQL en PHP
 
Bovenaan Onderaan