Udvikleren.dk - Seneste [basic] forum tr�de

problem med programmering i acces

Thu, 02 Mar 2017 12:54:51 GMT

jeg har opdateret min MS Acces fra 2010 udgaven til 2016. Jeg har en fugledatabase, som jeg registrerer fugleobservationer i. En af funktionerne er at jeg i min formular for en fugleart kan se hvorn�r jeg har set arten f�rste gang i �ret og sidste gang i �ret, baseret p� data tilbage fra 1971.

Jeg har ikke selv udf�rt programmeringen og er derfor p� Herrens Mark!

Programmeringen ser ud som f�lger:

Public Function ObsDt(varOp As String, varArt As String, Optional varLokalitet As String, Optional varMonth As String)
'Bruges til at returnere observationsdato pr. art.
'varOp angiver Max elle min dato
'varArt angiver fuglearten (art-ID)
'varlokalitet angiver lokaliteten (optional)
'varMonth angiver outputformat for m�ned (Blank for MM, S for MMM, L for MMMM (optional)

Dim db As Database
Dim rs
Dim varSql As String 'SQL-strengen der skal kalde obsdatoen
Dim varMmdd As String 'Resultatet fra SQL-kaldet
Dim varMm As Integer 'M�nednummer til at finde m�nedsnavnet
Dim MmShort As Variant 'Korte m�nedsnavne
Dim MmLong As Variant 'Lange m�nedsnavne

'Konstanter
MmShort = Array("jan", "feb", "mar", "apr", "maj", "jun", "jul", "aug", "sep", "okt", "nov", "dec")
MmLong = Array("januar", "februar", "marts", "april", "maj", "juni", "juli", "august", "september", "oktober", "november", "december")

If varLokalitet <> "" Then
varSql = "SELECT " & varOp & "(Right('00' & Month([ObsDato]),2) & Right('00' & Day([obsdato]),2)) FROM FUGLE WHERE Art = " & varArt & " AND lokalitet = " & varLokalitet & " GROUP BY FUGLE.Art"
Else
varSql = "SELECT " & varOp & "(Right('00' & Month([ObsDato]),2) & Right('00' & Day([obsdato]),2)) FROM FUGLE WHERE Art = " & varArt & " GROUP BY FUGLE.Art"
End If

Set db = CurrentDb
Set rs = db.OpenRecordset(varSql)

If rs.BOF And rs.EOF = True Then
'Hvis ikke sql-kaldet returnerer nogle r�kker
ObsDt = "ikke observeret"
Else
'Find laveste mmdd
varMmdd = rs.Fields(0)
'Find m�ned i �nsket outputformat
If varMonth = "S" Then 'short month
varMm = Left(varMmdd, 2) - 1
ObsDt = Right(varMmdd, 2) & ". " & MmShort(varMm)
ElseIf varMonth = "L" Then 'long month
varMm = Left(varMmdd, 2) - 1
ObsDt = Right(varMmdd, 2) & ". " & MmLong(varMm)
Else 'number af month
ObsDt = Right(varMmdd, 2) & "." & Left(varMmdd, 2)
End If

End If

rs.Close
Set db = Nothing
Set rs = Nothing

End Function

ER der nogen der kan hj�lpe????????

F� tekst fra DataView til valgfri TextBox.

Tue, 28 Feb 2017 01:39:49 GMT

Den er helt gal. Og jeg er g�et i bagl�s..!
Sagen er den at der er 50 stk. TextBox og 1 stk. DataGridView.
Nu skal jeg v�lge en TextBox (en hvilken som helst af dem) og inds�tte data fra DataGridView i den valgte TextBox. Derefter skal jeg kunne v�lge en ny TextBox (igen valgfri) og inds�tte tekst fra DataGridView i den.. Og igen og igen..
Jeg har pr�vet mange ting, og kikket efter 'Snippets' rundt omkring p� nettet..! Og her er jeg s�.. H�ber der er en derude der har nogle ideer, s� jeg kan komme videre...!?

VB Ingen comma efter divider textbox

Sat, 24 Aug 2013 21:23:17 GMT

Hej IT venner..

Jeg er ny til VB, og er st�dt ind i et lille problem..

Jeg har en 2 tekstboxe, hvor den ene har en v�rdi, og hvor den anden tekstbox skal dividere og vise det tal. Problemet er s� at n�r jeg bruger den her kode:

VBDotNet kode

 VALUE_1 = (VALUE_2 / 2).ToString("0.00")

, S� skulle jeg gerne f� resultatet, f.eks: "25.01", men i stedet f�r jeg det her resultat: "2501".

S�, kan i hj�lpe mig? Det ville v�re sk�nt..

- Emil..

Visual basic s� det virker som et progra,

Fri, 06 Apr 2012 15:49:08 GMT

Hej

Jeg har lige lavet et "program" p� Visual Basic.

S� her er mit sp�rgsm�l:

kan �bne programmet uden at �bne Visual Basic, s� man gemmer det som et rigtigt program, man kan �bne, og s� jeg bare kan l�gge det over p� et USB stik, og s�tte det i en anden computer, uden at bruge Visual Basic. men som et rigtigt program?

er det mulig`T?

Visual Basic 2010 - Hex kode

Wed, 04 Jan 2012 03:31:37 GMT

Har et lille problem, jeg har en textbox hvor man skal skrive en hex kode, alts� s� man f�r en hex farve kode.

Ligesom s�dan en her: "ffcc00"

og s� den hex kode man skriver skal laves om til en farve, i vises i en farve boks.

Har pr�vet lidt selv her:

VBDotNet kode

 Private Sub HexToColor_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HexToColor.TextChanged
         Dim HexToRgb As Color = System.Drawing.ColorTranslator.FromHtml(HexToColor.Text)
         ColorBox.BackColor = HexToRgb
     End Sub
 End Class

Visual Basic - Max Textbox V�rdi

Fri, 25 Mar 2011 11:19:15 GMT

Hej allesamme.. Jeg er rimelig ny til Visual Basic, men er rigtig l�renem n�r det kommer til generalt IT, og koder..

Jeg er rendt ind i et problem, nok lidt nemmere hvis i ser hvad jeg har lavet:

Private Sub o1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles o1.MouseDown

If e.Button = Windows.Forms.MouseButtons.Right Then
so1.Text = Val(so1.Text) + 1

End If

Har en button, og n�r jeg trykker p� den, plusser den 1 til i tekstboxen. Men jeg vil gerne have den til, at n�r jeg har trykket 3 gange p� den knap, alts� n�r v�rdien er 3, kan den ikke komme h�jere op. Hvordan g�r man lige det? Har godt nok ledt mange steder p� nettet, dog uden at finde nogen l�sning.

Mange tak p� forh�nd.