rusti Nybegynder
06. december 2006 - 15:10 Der er 1 kommentar og
1 løsning

hjælp til print i visual basic

Hej jeg skal printe en lønseddel og samtidig gemme nogle ting i min database ud fra om de eksistere i forvejen. min kode ser ud som følgende.

Private Sub cmdprint_Click()
 
    Dim Dato1 As String
 
    ViewPro1.PrintDialog = 1
    ViewPro1.PrintPages 1, ViewPro1.TotalPages
   
    Dato1 = Adodc4.Recordset!Datofra
   
    If txtStartdato = Dato1 And Indkørte <= 0 Then
    'MsgBox "den valgte månede og førernr eksistere allerede.", vbExclamation + vbOKOnly, "Fejl"
    Else
    Adodc4.Recordset.AddNew
    Adodc4.Recordset!Datofra = txtStartdato
    Adodc4.Recordset!Datotil = txtSlutdato
    '(Date)
    Adodc4.Recordset!Førernr = Førernr
    Adodc4.Recordset!Løn = Beløb6
    Adodc4.Recordset!Pensionchauffør = Beløb9
    Adodc4.Recordset!Pensionvognmand = Beløb38
    Adodc4.Recordset!AMBA = Beløb15
    Adodc4.Recordset!Skat = Beløb19
    Adodc4.Recordset!Feriepenge = Beløb24
    Adodc4.Recordset!PensionchaufførFerie = Beløb26
    Adodc4.Recordset!PensionvognmandFerie = Beløb41
    Adodc4.Recordset!AMBAFerie = Beløb28
    Adodc4.Recordset!SkatFerie = Beløb35
    Adodc4.Recordset!Feriekonto = Beløb36
    Adodc4.Recordset!ATP = Beløb10
    Adodc4.Recordset.Update
    End If

End Sub

Det den så skal er at den skal kigge i databasen og se om den valgte dato og det valgte førernr er i databasen under samme linie og er datoen og førernr det skal den kun printe lønseddlen og ikke gemme nogle data.
rusti Nybegynder
06. december 2006 - 15:16 #1
undskyld der er lige en fejl i koden...

Dato1 = Adodc4.Recordset!Datofra
Førernr1 = Adodc4.Recordset!Førernr
If txtStartdato = Dato1 And Førernr = combFørernr And Indkørte <= 0 Then
rusti Nybegynder
06. december 2006 - 15:31 #2
problemet er løst så spørgsmålet lukkes igen
Ny bruger Nybegynder

Din løsning...

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.

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
NNIT-selskabet Scales efter nedlukning af svenske og norske selskaber: De store vækstmuligheder ligger i Danmark
Interview: I løbet af 2020 har det NNIT-ejede Scales lukket sine datterselskaber i Norge og Sverige. I stedet fokuserer ERP-selskabet udelukkende på Danmark de næste par år, forklarer, forklarer CEO Hasse Bergman. Se her, hvorfor selskabet har afviklet de to nordiske enheder.
Computerworld
Sundhed.dk er klar med vaccinepas: Sådan finder du det
Regeringen har sendt et digitalt coronapas i udbud, men allerede nu kan du få adgang til et digitalt vaccinepas, der dokumenterer din vaccinationsstatus.
CIO
Har du rost din mellemleder i dag? Snart er de uddøde - og det er et tab
Computerworld mener: Mellemledere lever livet farligt: Topledelsen får konstant ideer med skiftende hold i virkeligheden, og moden går mod flade agile organisationer. Men mellemlederen er en overset hverdagens helt med et kæmpe ansvar. Her er min hyldest til den ofte latterliggjorte mellemleder.
Job & Karriere
"Vi var nødt til at sige til dem, at I er nødt til at sende ham hjem nu, for han begynder at knække"
"Vi var nødt til at sige til dem, at I er nødt til at sende ham hjem nu, for han begynder at knække"
White paper
Data fra 45.000 virksomheder: Sådan lykkes den digital transformation
Digital transformation medfører gennemgribende forandringer og lykkes kun, hvis du får kunder og medarbejdere med på vognen. Denne hvidbog fra Zendesk konkluderer på data fra 45.000 virksomheder, hvornår processen lykkes – og hvornår den ikke gør.