Permalänk
Medlem

Löneprogram hjälp

Håller på ska börja med ett litet projekt för räkning av löner, tänkte använda mig av Visual Basic samt så småningom Access.
Är inte så inne på programmering överhuvudtaget, men tänkte lära mig lite under projektets gång..
Just nu har jag bara gjort det visuella klart i en windows form, med diverse labels och textboxar mestadels, men behöver lite vägledning för koden!

En enkel fråga till att börja med. Har 2st textboxar som man fyller i antal timmar och timpenning, sedan ska den tredje textboxen (read-only) visa summan av det. Alltså txtbox1 * txtbox2 = txtbox 3. Vad blir koden?

Visa signatur

i7 920 @ 4.4 Ghz - HT On | HD5870 | Vertex SSD | Thermochill 120.4 - Heatkiller 3.0 - EK5870 | Silverstone TJ07
TJ07 WeeMaan Edition :D

Permalänk

Är det inte bättre om du använder excel?

Permalänk
Medlem
Skrivet av kagstrom2100:

Är det inte bättre om du använder excel?

Jag gjorde en excelmall som använts flitig några år där den räknar ut allt själv efter man skrivit in datan, men tänkte utveckla detta lite mera.
Tanken är att när jag är klar så ska alla uppgifter lagras automatiskt i en databas, personaluppgifter, alla löneutbetalningar, timlistor m.m och sedan ska man i programmet enkelt kunna lägga till anställda, sedan välja vilken anställd lönen ska vara till (och då skall dennes information automatiskt fyllas i), fylla i timmar m.m och sedan räknar programmet ut lönen och sparar den i databasen. (alternativ för utskrift m.m skall givetvis finnas)
Har massa ideer men svårt att förverkliga dom just nu bara, gått några programmeringskurser i VB men glömt bort allt. :\

Edit: Här finns den: http://uploading.com/files/6ad47f41/L%25C3%25B6nemall.xlsx/

Visa signatur

i7 920 @ 4.4 Ghz - HT On | HD5870 | Vertex SSD | Thermochill 120.4 - Heatkiller 3.0 - EK5870 | Silverstone TJ07
TJ07 WeeMaan Edition :D

Permalänk
Medlem

Ok, om jag skapar en button fungerar det med följande kod:

Citat:

Dim num1, num2, product As Single
num1 = TextBox3.Text
num2 = TextBox2.Text
product = num1 * num2
MaskedTextBox1.Text = product

Men hur får jag den att automatiskt generera värdet utan att behöva klicka?

Visa signatur

i7 920 @ 4.4 Ghz - HT On | HD5870 | Vertex SSD | Thermochill 120.4 - Heatkiller 3.0 - EK5870 | Silverstone TJ07
TJ07 WeeMaan Edition :D

Permalänk
Medlem

Private Sub TextBox3_Change()
MaskedTextBox1.Text = TextBox2.Text * TextBox3.Text
End Sub

Private Sub TextBox2_Change()
MaskedTextBox1.Text = TextBox2.Text * TextBox3.Text
End Sub

Visa signatur

ʕ•͡ᴥ•ʔ

Permalänk
Medlem

varför inte dra på stort å köra med visma lön?? allt klappat å klart fast själva grejjen kanske var å programera

Visa signatur

Fractal Design Define S | ASUS ROG STRIX Z270H GAMING | i7 7700k @ 4.8GHz | Noctua NH-D15 | Corsair 16GB DDR4 3000Mhz CL15 Vengeance | ASUS GeForce GTX 1080 8GB ROG STRIX DC3 Gaming | OCZ SSD Vertex3 120GB | Intel 330 120GB | Seagate Desktop 3TB | EVGA Supernova G2 750W | Acer Predator XB271HUBMIPRZ | Optoma Uhd60 + Kingpin 90" | Denon Avr-X3600H | Dali Zensor 5 x2 | Dali Oberon on-wall x2 | Dali Zensor Vokal | Aragon Alto4wall x4| XTZ 99 W12.16 |

Permalänk
Medlem
Skrivet av nsky|sct:

Private Sub TextBox3_Change()
MaskedTextBox1.Text = TextBox2.Text * TextBox3.Text
End Sub

Private Sub TextBox2_Change()
MaskedTextBox1.Text = TextBox2.Text * TextBox3.Text
End Sub

Tack! Dock får jag det inte att fungera.. Hmm

Skrivet av sokar:

varför inte dra på stort å köra med visma lön?? allt klappat å klart fast själva grejjen kanske var å programera

Grejen är att jag har mycket tid just nu och tänkte lära mig lite programmering, och bästa sättet att lära sig är väl att helt enkelt börja med något projekt och se vart det leder.

Visa signatur

i7 920 @ 4.4 Ghz - HT On | HD5870 | Vertex SSD | Thermochill 120.4 - Heatkiller 3.0 - EK5870 | Silverstone TJ07
TJ07 WeeMaan Edition :D

Permalänk
Medlem
Skrivet av WeeMaan:

Tack! Dock får jag det inte att fungera.. Hmm

Vad får du för felmeddelande?

Visa signatur

ʕ•͡ᴥ•ʔ

Permalänk
Medlem
Skrivet av WeeMaan:

Grejen är att jag har mycket tid just nu och tänkte lära mig lite programmering, och bästa sättet att lära sig är väl att helt enkelt börja med något projekt och se vart det leder.

Helt rätt! På jobbet hade vi tidigare stämpelklockor (1800-tal, jag vet) och varje måndag skulle man omvandla tiderna från förra veckans kort till timmar med en decimal enligt en något invecklad procedur samt summera, fylla i ett excelblad med olika projektkoder och hur mycket tid man lagt på respektive projekt, skriva ut och lämna till chefen. Jag tröttnade rätt snabbt på det där och drog igång Visual Studio. Hade aldrig gjort något med .net före det, men C# såg ju enkelt ut tänkte jag. Det slutade med en färdig applikation som automatiserade hela processen så att man bara behövde knappa in tiderna för att generera excelbladet och skicka det till skrivaren.
Lite senare togs stämpelklockorna bort och ersattes med en webbaserad tidrapportering. Då gjorde jag om programmet så att det blev en browser som parsade all html-kod som togs emot från servern innan den renderades, och så fixade jag så att chefen får skriva ut alla inkomna excelblad själv istället (en person som går till skrivaren är mindre tidsödande än att alla ska springa dit vars en gång). Funkar kalas, alla använder det nu och jag hade kul samtidigt som jag lärde mig massor under tiden.

Permalänk
Medlem
Skrivet av nsky|sct:

Vad får du för felmeddelande?

Inget alls, men det kommer inte fram något tal i maskedtextboxen.
Nu copy pasta jag in det bara, kanske jag behöver ändra något mera?

Visa signatur

i7 920 @ 4.4 Ghz - HT On | HD5870 | Vertex SSD | Thermochill 120.4 - Heatkiller 3.0 - EK5870 | Silverstone TJ07
TJ07 WeeMaan Edition :D

Permalänk
Skrivet av WeeMaan:

Inget alls, men det kommer inte fram något tal i maskedtextboxen.
Nu copy pasta jag in det bara, kanske jag behöver ändra något mera?

Nu kan jag inte VB (skriver endast C#) men måste du inte parsea texten till en int?

Visa signatur

Asus Striker II Extreme / XFX Geforce GTX 280 / Q9450 @ 3.6GHz/ TRUE Noctua 120/ 4x1GB Corsair TWIN3X2048-1333C9DHX / X25-M G2 80gb Velociraptor / Win 7 Ultimate x64/ Antec P190

MovieDatabase

Permalänk
Medlem
Skrivet av KurreKula:

Nu kan jag inte VB (skriver endast C#) men måste du inte parsea texten till en int?

Vad innebär det i kodväg?

Visa signatur

i7 920 @ 4.4 Ghz - HT On | HD5870 | Vertex SSD | Thermochill 120.4 - Heatkiller 3.0 - EK5870 | Silverstone TJ07
TJ07 WeeMaan Edition :D

Permalänk
Medlem
Citat:

Private Sub timmar2_textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timmar2.TextChanged

timmar3.Text = timmar1.Text * timmar2.Text

End Sub

Ok, det fungerar lite nu iaf. Allt går bra sålänge man skriver i först box1 och sedan box2, men ändrar man box1 efteråt så ändras inte resultatet i box3.
Det går framåt, om än väldigt sakta.

Visa signatur

i7 920 @ 4.4 Ghz - HT On | HD5870 | Vertex SSD | Thermochill 120.4 - Heatkiller 3.0 - EK5870 | Silverstone TJ07
TJ07 WeeMaan Edition :D

Permalänk
Medlem
Skrivet av veggie_d:

Helt rätt! På jobbet hade vi tidigare stämpelklockor (1800-tal, jag vet) och varje måndag skulle man omvandla tiderna från förra veckans kort till timmar med en decimal enligt en något invecklad procedur samt summera, fylla i ett excelblad med olika projektkoder och hur mycket tid man lagt på respektive projekt, skriva ut och lämna till chefen. Jag tröttnade rätt snabbt på det där och drog igång Visual Studio. Hade aldrig gjort något med .net före det, men C# såg ju enkelt ut tänkte jag. Det slutade med en färdig applikation som automatiserade hela processen så att man bara behövde knappa in tiderna för att generera excelbladet och skicka det till skrivaren.
Lite senare togs stämpelklockorna bort och ersattes med en webbaserad tidrapportering. Då gjorde jag om programmet så att det blev en browser som parsade all html-kod som togs emot från servern innan den renderades, och så fixade jag så att chefen får skriva ut alla inkomna excelblad själv istället (en person som går till skrivaren är mindre tidsödande än att alla ska springa dit vars en gång). Funkar kalas, alla använder det nu och jag hade kul samtidigt som jag lärde mig massor under tiden.

Bra jobbat!
Det gäller att vara lite kreativ bara så kan man spara många arbetstimmar i onödan!

Visa signatur

i7 920 @ 4.4 Ghz - HT On | HD5870 | Vertex SSD | Thermochill 120.4 - Heatkiller 3.0 - EK5870 | Silverstone TJ07
TJ07 WeeMaan Edition :D

Permalänk
Medlem
Citat:

Private Sub timmar1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles timmar1.KeyPress

Dim allowedChars As String = "0123456789"

If allowedChars.IndexOf(e.KeyChar) = -1 Then

e.Handled = True

End If

End Sub

Private Sub timmar2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles timmar2.KeyPress

Dim allowedChars As String = "0123456789"

If allowedChars.IndexOf(e.KeyChar) = -1 Then

e.Handled = True

End If

End Sub

Private Sub timmar2_textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timmar2.TextChanged

timmar3.Text = timmar1.Text * timmar2.Text

End Sub

Nu kan man bara skriva in nummer.. Bara det problemet att jag måste ordna så box3 uppdateras om man ändrar box1 kvar nu.

Visa signatur

i7 920 @ 4.4 Ghz - HT On | HD5870 | Vertex SSD | Thermochill 120.4 - Heatkiller 3.0 - EK5870 | Silverstone TJ07
TJ07 WeeMaan Edition :D

Permalänk
Medlem

Jag kan rekommendera dig macro scheduler om du vill gå in på automatiseringar. http://www.mjtnet.com/
Själv programmerar jag i C++ med QT i vanliga fall, men använder även macro scheduler som "prototyp-tillverknings-platform". Det går helt enkelt med andra ord väldigt fort att få igång något i detta. Dessutom stödjer den visual basic utöver sina egna kommandon, som kanske passar dig
Hur som helt, lycka till och hoppas chefen uppskattar dig like a boss

Permalänk
Medlem
Skrivet av SolidReactor:

Jag kan rekommendera dig macro scheduler om du vill gå in på automatiseringar. http://www.mjtnet.com/
Själv programmerar jag i C++ med QT i vanliga fall, men använder även macro scheduler som "prototyp-tillverknings-platform". Det går helt enkelt med andra ord väldigt fort att få igång något i detta. Dessutom stödjer den visual basic utöver sina egna kommandon, som kanske passar dig
Hur som helt, lycka till och hoppas chefen uppskattar dig like a boss

Ska kolla in det, tror dock att jag fortsätter med VB då det är ganska intressant att lära sig. Tack för förslaget dock.
Verkar betydligt enklare om man gör en button som räknar ut allt på samma gång, håller på testar det lite nu.

Har 3 rader; Timmar, Övertidstimmar 50% och Övertidstimmar 100% med 3 kolumner; antal timmar, euro per timme, totalt i euro.
Såhär ser koden ut nu.

Private Sub timmar1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles timmar1.KeyPress Dim allowedChars As String = "0123456789," If e.KeyChar <> ControlChars.Back Then If allowedChars.IndexOf(e.KeyChar) = -1 Then MsgBox("endast siffror") e.Handled = True End If End If End Sub Private Sub timmar2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles timmar2.KeyPress Dim allowedChars As String = "0123456789," If e.KeyChar <> ControlChars.Back Then If allowedChars.IndexOf(e.KeyChar) = -1 Then MsgBox("endast siffror") e.Handled = True End If End If End Sub Private Sub timmar501_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles timmar501.KeyPress Dim allowedChars As String = "0123456789," If e.KeyChar <> ControlChars.Back Then If allowedChars.IndexOf(e.KeyChar) = -1 Then MsgBox("endast siffror") e.Handled = True End If End If End Sub Private Sub timmar1001_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles timmar1001.KeyPress Dim allowedChars As String = "0123456789," If e.KeyChar <> ControlChars.Back Then If allowedChars.IndexOf(e.KeyChar) = -1 Then MsgBox("endast siffror") e.Handled = True End If End If End Sub Private Sub btncalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalc.Click timmar3.Text = timmar2.Text * timmar1.Text timmar502.Text = timmar2.Text * 1.5 timmar1002.Text = timmar2.Text * 2 timmar503.Text = timmar501.Text * timmar502.Text timmar1003.Text = timmar1001.Text * timmar1002.Text End Sub

Verkar fungera bra.. Fortsätter arbetet...

Lade till nettolön, semesterersättning och brutto.

netto.Text = timmar3.Text + +timmar503.Text + +timmar1003.Text semester.Text = netto.Text * 0.125 brutto.Text = netto.Text + +semester.Text

Nu kommer dock en lite svårare uträkning, "withholding tax". Återkommer om (när?) jag får problem.

Visa signatur

i7 920 @ 4.4 Ghz - HT On | HD5870 | Vertex SSD | Thermochill 120.4 - Heatkiller 3.0 - EK5870 | Silverstone TJ07
TJ07 WeeMaan Edition :D

Permalänk
Medlem

Har nu ordnat "witholding tax" också. Måsta skapa 3 textboxar till; grundprocent, tillägsprocent och inkomstgräns.
Uträkningen är som följer:

If (brutto.Text > inkomst.Text) Then skatt.Text = Val(inkomst.Text * grund1.Text) + (brutto.Text - inkomst.Text) * tillag1.Text If (brutto.Text <= inkomst.Text) Then skatt.Text = brutto.Text * grund1.Text

Problemet är bara att grund- och tillägsprocenten så måste man fylla i t.ex 0,3 istället för 30, tips på hur man åtgärdar det?

Visa signatur

i7 920 @ 4.4 Ghz - HT On | HD5870 | Vertex SSD | Thermochill 120.4 - Heatkiller 3.0 - EK5870 | Silverstone TJ07
TJ07 WeeMaan Edition :D

Permalänk
Medlem
Skrivet av WeeMaan:

Har nu ordnat "witholding tax" också. Måsta skapa 3 textboxar till; grundprocent, tillägsprocent och inkomstgräns.
Uträkningen är som följer:

If (brutto.Text > inkomst.Text) Then skatt.Text = Val(inkomst.Text * grund1.Text) + (brutto.Text - inkomst.Text) * tillag1.Text If (brutto.Text <= inkomst.Text) Then skatt.Text = brutto.Text * grund1.Text

Problemet är bara att grund- och tillägsprocenten så måste man fylla i t.ex 0,3 istället för 30, tips på hur man åtgärdar det?

dela på 100?

Permalänk
Medlem
Skrivet av swesen:

dela på 10?

Jepp, kom på en liknande lösning ganska snabbt. Tack Lade dock till "* 0.01" i raderna.
Fixat pensionsavgift och arbetslöshetspremie också..

If (brutto.Text > inkomst.Text) Then skatt.Text = Val(inkomst.Text * grund1.Text * 0.01) + (brutto.Text - inkomst.Text) * tillag1.Text * 0.01 If (brutto.Text <= inkomst.Text) Then skatt.Text = brutto.Text * grund1.Text * 0.01 txtpension.Text = numpension.Value * 0.01 * brutto.Text txtpremie.Text = numpremie.Value * 0.01 * brutto.Text

Visa signatur

i7 920 @ 4.4 Ghz - HT On | HD5870 | Vertex SSD | Thermochill 120.4 - Heatkiller 3.0 - EK5870 | Silverstone TJ07
TJ07 WeeMaan Edition :D

Permalänk
Medlem

En fråga!

Boxen "Utbetalas" ska ta Bruttolönen minus diverse saker, men om vissa fält är tomma så buggar den ur så jag måste få den att ignorera dom isåfall.

Ex:

utbetalas.Text = brutto.Text - skatt.Text - txtpension.Text - txtpremie.Text - forskott.Text - hyra.Text

forskott och hyra kan vara tomma. Förslag?

Visa signatur

i7 920 @ 4.4 Ghz - HT On | HD5870 | Vertex SSD | Thermochill 120.4 - Heatkiller 3.0 - EK5870 | Silverstone TJ07
TJ07 WeeMaan Edition :D

Permalänk
Medlem

Okej, nu fungerar alla uträkningar iallafall. Lite småjusteringar kvar (som förra frågan t.ex).

Liten demonstration
http://www.youtube.com/watch?v=uETRYuwzXOw&feature=youtu.be

Koden:

Private Sub btncalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalc.Click timmar3.Text = timmar2.Text * timmar1.Text timmar502.Text = timmar2.Text * 1.5 timmar1002.Text = timmar2.Text * 2 timmar503.Text = timmar501.Text * timmar502.Text timmar1003.Text = timmar1001.Text * timmar1002.Text netto.Text = timmar3.Text + +timmar503.Text + +timmar1003.Text semester.Text = netto.Text * 0.125 brutto.Text = netto.Text + +semester.Text If (brutto.Text > inkomst.Text) Then skatt.Text = Val(inkomst.Text * grund1.Text * 0.01) + (brutto.Text - inkomst.Text) * tillag1.Text * 0.01 If (brutto.Text <= inkomst.Text) Then skatt.Text = brutto.Text * grund1.Text * 0.01 txtpension.Text = numpension.Value * 0.01 * brutto.Text txtpremie.Text = numpremie.Value * 0.01 * brutto.Text utbetalas.Text = brutto.Text - skatt.Text - txtpension.Text - txtpremie.Text - forskott.Text - hyra.Text txtsocial.Text = numsocial.Value * 0.01 * brutto.Text End Sub

Visa signatur

i7 920 @ 4.4 Ghz - HT On | HD5870 | Vertex SSD | Thermochill 120.4 - Heatkiller 3.0 - EK5870 | Silverstone TJ07
TJ07 WeeMaan Edition :D

Permalänk
Medlem
Skrivet av WeeMaan:

En fråga!

Boxen "Utbetalas" ska ta Bruttolönen minus diverse saker, men om vissa fält är tomma så buggar den ur så jag måste få den att ignorera dom isåfall.

Ex:

utbetalas.Text = brutto.Text - skatt.Text - txtpension.Text - txtpremie.Text - forskott.Text - hyra.Text

forskott och hyra kan vara tomma. Förslag?

Beror väl på man kan göra på olika sätt. Nybörjarsättet är väl helt enkelt att köra en "if"-sats som kollar om en textbox är tom och om den är tom så sätt textboxnamnet.text="0".

Sedan finns det ju effektivare sätt men om man inte är på avancerad nivå skulle jag rekommendera ovan.

Nu vet jag ju inte om detta är rent internt eller om du tänkt tjäna en hacka på det så jag avslöjar inte så mycket utan du får googla och testa. Kanske även för att du ska lära dig mer i processen...

Visa signatur

Fulburken:
| I9 9900K
| Gigabyte Aorus Z390 AORUS MASTER
| Asus RTX 3090 Strix OC

Permalänk
Medlem
Skrivet av WeeMaan:

En fråga!

Boxen "Utbetalas" ska ta Bruttolönen minus diverse saker, men om vissa fält är tomma så buggar den ur så jag måste få den att ignorera dom isåfall.

Ex:

utbetalas.Text = brutto.Text - skatt.Text - txtpension.Text - txtpremie.Text - forskott.Text - hyra.Text

forskott och hyra kan vara tomma. Förslag?

isnummerick(textboxnamn.text) något sånt kan man kanske använda?

Permalänk
Medlem
Skrivet av Tickles:

Beror väl på man kan göra på olika sätt. Nybörjarsättet är väl helt enkelt att köra en "if"-sats som kollar om en textbox är tom och om den är tom så sätt textboxnamnet.text="0".

Sedan finns det ju effektivare sätt men om man inte är på avancerad nivå skulle jag rekommendera ovan.

Nu vet jag ju inte om detta är rent internt eller om du tänkt tjäna en hacka på det så jag avslöjar inte så mycket utan du får googla och testa. Kanske även för att du ska lära dig mer i processen...

Skrivet av swesen:

isnummerick(textboxnamn.text) något sånt kan man kanske använda?

Tack för förslagen, ska se om jag lyckas få ihop något.
Programmet är till familjeföretaget och vinsten utdelas endast i mindre arbetstimmar när någon (jag?) ska räkna lönerna.
Fast främst är det för att jag vill lära mig att programmera och detta verkade vara ett lämpligt sätt att göra det på.

Edit: Enkel IF sats fungerade bra.

If hyra.Text = "" Then hyra.Text = "0"

Visa signatur

i7 920 @ 4.4 Ghz - HT On | HD5870 | Vertex SSD | Thermochill 120.4 - Heatkiller 3.0 - EK5870 | Silverstone TJ07
TJ07 WeeMaan Edition :D

Permalänk
Medlem

Någon som har förslag på hur man får textboxarna (eller masked textbox) att bara visa 2 decimaler?

Visa signatur

i7 920 @ 4.4 Ghz - HT On | HD5870 | Vertex SSD | Thermochill 120.4 - Heatkiller 3.0 - EK5870 | Silverstone TJ07
TJ07 WeeMaan Edition :D

Permalänk

Ett alternativ är att göra hela löneprogrammet i MS Access med hjälp av visual basis applikation. Det är i princip samma språk. Ska du göra mycket databasarbete, så tror jag denna lösning blir enklare och pålitligare. Du har även tillgång till bra funktioner som rapportutdrag m.m. Helst ska man dock undvika så mycket kod som man kan, vilket inte är det lättaste.
*edit*
Du kanske menade detta? Jag tolkade som att du ifrån VB skulle göra databaskopplingar.

Skrivet av WeeMaan:

Någon som har förslag på hur man får textboxarna (eller masked textbox) att bara visa 2 decimaler?

Formatera värdet innan det presenteras i textboxen. I VBA office miljön så har man tillgång till inpustmask, vilket du också borde ha. Om du är ute efter att begränsa input av information till en textbox.

Visa signatur

[Core i7-3930K med 32GB ram, 2*256GB SSD] & [Core i7 3770K med 16 GB RAM, 256GB SSD] som tillsammans har ett [HD 5850 1GB] och 3st 24".

Permalänk
Medlem
Skrivet av bud_bundy:

Ett alternativ är att göra hela löneprogrammet i MS Access med hjälp av visual basis applikation. Det är i princip samma språk. Ska du göra mycket databasarbete, så tror jag denna lösning blir enklare och pålitligare. Du har även tillgång till bra funktioner som rapportutdrag m.m. Helst ska man dock undvika så mycket kod som man kan, vilket inte är det lättaste.
*edit*
Du kanske menade detta? Jag tolkade som att du ifrån VB skulle göra databaskopplingar.

Formatera värdet innan det presenteras i textboxen. I VBA office miljön så har man tillgång till inpustmask, vilket du också borde ha. Om du är ute efter att begränsa input av information.

Access ska jag definitivt kolla närmare på, jag har nog tänkt ha all information i en databas i access och kopplat till VB men har inte kommit mig för att börja kolla på det ännu bara. Måste börja leka lite i access imorn så jag kommer igång, gått kurs i det med men minns inte mycket..
För helt klart att det är det bästa alternativet för all information skall endå sparas nånstans, och jag har bra mycket mera funderingar på själva programmet också än vad jag gjort hittills men har inte kunskapen att förverkliga det ännu bara.
Eller menade du att göra allt i access?

Angående formateringen så har jag testat att lägga lite olika saker i "Mask" fältet i MaskedTextBox egenskaperna men det har inte fungerat riktigt.
Försökt googla också men hittar inte riktigt någon lösning.. Att bara använda formatering blir ju inte heller optimalt då 1,229 skulle bli 1,2 istället för att avrunda om jag inte missförstått.

Nu ska jag ha lite filmkväll med Lynda.com Access essential training..

Visa signatur

i7 920 @ 4.4 Ghz - HT On | HD5870 | Vertex SSD | Thermochill 120.4 - Heatkiller 3.0 - EK5870 | Silverstone TJ07
TJ07 WeeMaan Edition :D

Permalänk
Skrivet av WeeMaan:

Access ska jag definitivt kolla närmare på, jag har nog tänkt ha all information i en databas i access och kopplat till VB men har inte kommit mig för att börja kolla på det ännu bara. Måste börja leka lite i access imorn så jag kommer igång, gått kurs i det med men minns inte mycket..
För helt klart att det är det bästa alternativet för all information skall endå sparas nånstans, och jag har bra mycket mera funderingar på själva programmet också än vad jag gjort hittills men har inte kunskapen att förverkliga det ännu bara.
Eller menade du att göra allt i access?

Angående formateringen så har jag testat att lägga lite olika saker i "Mask" fältet i MaskedTextBox egenskaperna men det har inte fungerat riktigt.
Försökt googla också men hittar inte riktigt någon lösning.. Att bara använda formatering blir ju inte heller optimalt då 1,229 skulle bli 1,2 istället för att avrunda om jag inte missförstått.

Nu ska jag ha lite filmkväll med Lynda.com Access essential training..

Ja jag menar precis allt i access. Det enda applikationsbegränsningen som finns vad man kan göra i access är i princip de prestandakrav man ställer, visst gränssnittet är inte det bästa och börjar man blanda in för mycket activeX komponenter får man problem med både stabilitet och kompilatet. (databasen klarar bara av 2GB data, men det går att köra med enbart referenser)
För din applikation så ser jag ingen mening med att att blanda in något annat än access.

Skrivet av WeeMaan:

Nu ska jag ha lite filmkväll med Lynda.com Access essential training..

Ja den är verkligen bra.

Det man upptäcker snabbt är att access inte är så himla enkelt, men ska man göra en större databasapplikation med diverse utdrag, inmatningsformulär etc så får man mycket hjälp. Dessutom är många av funktionerna väl beprövade och man vet att de fungerar. Förutom detta så är det enklare för en ny person att lägga till nya finesser.

Angående ditt problem, så pratar du om utdata så formatera utdatan innan den skickas till textboxen.

Visa signatur

[Core i7-3930K med 32GB ram, 2*256GB SSD] & [Core i7 3770K med 16 GB RAM, 256GB SSD] som tillsammans har ett [HD 5850 1GB] och 3st 24".

Permalänk
Medlem

Håller på testar föra över data från textbox till Excel, men har lite problem med att få det att spara efteråt.
Någon som vet hur jag ska få den att spara en kopia till en mapp och avsluta excel när jag klickar på button2?

Imports Excel = Microsoft.Office.Interop.Excel Class form1 Dim MsExcel As Excel.Application Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MsExcel = CreateObject("Excel.Application") End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsExcel.Workbooks.Add() MsExcel.Range("A1").Value = TextBox1.Text MsExcel.Visible = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End Sub End Class

Visa signatur

i7 920 @ 4.4 Ghz - HT On | HD5870 | Vertex SSD | Thermochill 120.4 - Heatkiller 3.0 - EK5870 | Silverstone TJ07
TJ07 WeeMaan Edition :D