Just nu i M3-nätverket
Gå till innehåll

MickeF

Medlem
  • Antal inlägg

    145
  • Gick med

  • Senaste besök

  • Vunnit antal dagar

    2

MickeF vann dagen: 21 augusti 2015

MickeF hade det mest gillade innehållet!

Om MickeF

  • Medlemstitel
    Aktiv

Kontaktinformation

  • Hemsida
    http://www.accesskonsult.se
  • Skype
    micke.falk

Profil

  • Kön
    Man
  • Ort
    Stockholm
  1. Ok, två saker du behöver göra: 1) Döp om modulen från "Rensa_Ecl" till t.ex. "Rensa Ecl Modul". (Modulnamn och function-namn får inte vara samma) 2) Sedan byter du ut anropet " DoCmd.OpenModule "Rensa_Ecl" till enbart Rensa_Ecl Sen borde det fungera.
  2. Modulen består av ett antal Function/Sub. Så du vill alltså köra en Sub eller anropa en Function. Private Sub btnOpenObject_Click() ' Visa välkomstmeddelande valkomna "Micke" End Sub Om du har en Sub i Rensa_Ecl som t.ex ser ut så här: Sub valkomna(personnamn AS String) Msgbox "Välkommen " & personnamn End Sub
  3. 1) Öppna egenskaper för en knapp och skapa en händelse "Vid klickning" enligt bilden: 2) Klicka på knappen med dom tre punkterna för att komma till funktionen 3) Ändra funktionen till följande kod Private Sub btnOpenObject_Click() ' Öppna modul i designläge DoCmd.OpenModule "Rensa_Ecl" End Sub
  4. Vad bra att det fungerade Men oj, det var många frågor. Kan tyvärr inte ta mig tid att svara på allt det där. Men denna relaterade FRÅGA: SVAR: - Just i fallet när man när man vill ha tag i min eller max-värde så är det en lösning att i Access dela upp frågan i två olika frågor som du gjorde (Obs detta gäller när man ÄVEN vill ha tag i övriga fält från besiktningstabellen, som kommentarer, namn, pris etc). - Vill du bara ha tag i maxvärdet dock så går det bra att skriva som en enda fråga. - Det går att skriva som en enda fråga men då måste man skriva ren SQL-kod. - Annars fungerar det ofta med endast en fråga. Välkommen Access
  5. Så här: 1) Skapa en fråga som tar fram fordons-ID och maxvärdet i besiktningstabellen. 2) Skapa sedan en annan fråga som länkar tabellen Fordon mot föregående fråga.
  6. Tack den där debug-biten glömde jag ta bort Nu är det redigerat.
  7. Sub SkapaSchema() Dim dataRad%, dataKol%, printRad%, ant% With Sheets(1) dataRad = 2 printRad = 2 ' Alla rader fram till tom cell Do Until IsEmpty(.Cells(dataRad, 1)) dataKol = 3 ' Hämta antal i kolumn C ' Alla kolumner fram till tom cell Do Until IsEmpty(.Cells(dataRad, dataKol)) For ant = 1 To .Cells(dataRad, dataKol) Sheets(2).Cells(printRad, 1) = .Cells(10, 1) ' Datum Sheets(2).Cells(printRad, 2) = .Cells(dataRad, 1) ' Intervall Sheets(2).Cells(printRad, 3) = .Cells(dataRad, 2) ' Min Sheets(2).Cells(printRad, 4) = .Cells(1, dataKol) ' Enhet printRad = printRad + 1 Next dataKol = dataKol + 1 Loop dataRad = dataRad + 1 Loop End With ' Rensa i slutet Do Until IsEmpty(Sheets(2).Cells(printRad, 1)) Sheets(2).Cells(printRad, 1) = Null Sheets(2).Cells(printRad, 2) = Null Sheets(2).Cells(printRad, 3) = Null Sheets(2).Cells(printRad, 4) = Null printRad = printRad + 1 Loop End Sub
  8. Att kopiera information från tre formulär till ett fjärde kan göras på flera olika sätt. Skicka ett PM eller epost så kan vi titta på det tillsammans.
  9. Tyvärr, det går inte att koppla en händelse till postväljaren.
  10. Ett sätt det går att lösa det på med hjälp av SELECT TOP och DMax qry1 : SELECT TOP 1000000 tblTest.* FROM tblTest ORDER BY tblTest.ID; qry2 : SELECT TOP 1000000 tblTest.* FROM tblTest WHERE (((tblTest.ID)>DMax("ID","qry1"))) ORDER BY tblTest.ID; qry3 : SELECT TOP 1000000 tblTest.* FROM tblTest WHERE (((tblTest.ID)>DMax("ID","qry2"))) ORDER BY tblTest.ID; qry4 : SELECT TOP 1000000 tblTest.* FROM tblTest WHERE (((tblTest.ID)>DMax("ID","qry3"))) ORDER BY tblTest.ID; qry5 : SELECT TOP 1000000 tblTest.* FROM tblTest WHERE (((tblTest.ID)>DMax("ID","qry4"))) ORDER BY tblTest.ID; qry6 : SELECT TOP 1000000 tblTest.* FROM tblTest WHERE (((tblTest.ID)>DMax("ID","qry5"))) ORDER BY tblTest.ID; qry7 : SELECT TOP 1000000 tblTest.* FROM tblTest WHERE (((tblTest.ID)>DMax("ID","qry6"))) ORDER BY tblTest.ID; qry8 : SELECT TOP 1000000 tblTest.* FROM tblTest WHERE (((tblTest.ID)>DMax("ID","qry7"))) ORDER BY tblTest.ID;
  11. Tre alternativ: * Om det är ett engångsjobb är det enklast att bara klippa och klistra * Importfunktion i Access * Slutligen finns programkod om du vill ha intelligens i importen
  12. Hur ser tabellen och ev programkod ut nu?
  13. Tyvärr så har jag inte tid att försöka hjälpa dig med detta. För mycket och för svårt att exakt förstå vad du menar.
  14. Är det så att du har produkter som ska levereras med olika intervall? T.ex. Produkt A med leveranskod 1w1 ska levereras varje vecka Produkt B med leveranskod 2w1 ska levereras varannan vecka (antingen v1+3 eller v2+4 beroende på kundens startvecka) Produkt C med leveranskod 4w1 ska levereras var 4:e vecka, alltså v1+5 etc om kunden har startvecka 1 Produkt C med leveranskod 4w1 ska levereras var 4:e vecka, alltså v2+6 etc om kunden har startvecka 2 Produkt C med leveranskod 4w1 ska levereras var 4:e vecka, alltså v3+7 etc om kunden har startvecka 3 Produkt C med leveranskod 4w1 ska levereras var 4:e vecka, alltså v4+8 etc om kunden har startvecka 4 Produkt D med leveranskod 4w2 ska levereras var 4:e vecka start v2, alltså v2+6 etc om kunden har startvecka 1 Produkt D med leveranskod 4w2 ska levereras var 4:e vecka start v2, alltså v3+7 etc om kunden har startvecka 2 Produkt D med leveranskod 4w2 ska levereras var 4:e vecka start v2, alltså v4+8 etc om kunden har startvecka 3 Produkt D med leveranskod 4w2 ska levereras var 4:e vecka start v2, alltså v5+9 etc om kunden har startvecka 4
  15. Kan du förklara tydligare vad du menar! och kontrollera att utdata vecka 2 verkligen stämmer samt ge utdata när nuvarande vecka är 1, 3, 4 och 5
×
×
  • Skapa nytt...