Udvikleren.dk - Seneste [visual] 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...!?

Gem billede fra picturebox og listbox/textbox

Fri, 29 Jan 2016 19:11:50 GMT

Jeg er i gang med at lave et lille simpelt program i visual basic(2015) hvor det er muligt at loade billeder ind for derefter at indtaste nogle data i textbokse og listbokse, derefter skal billedet gemmes med listbokse og textboksenes indhold, uden scrollbokse og knapper,

Er det muligt med noget kode?

Det er en ven som ikke vil bruge tid p� at lave det i et tegneprogram, han �nsker at det skal v�re s� enkelt som muligt. Hvis i er i tvivl om hvad jeg mener, s� s�g p� google p� qcl kort, s� dukker der en masse op omkring emnet.

Han snakker i amat�r-radio, og der uploader man noget der kaldes qcl kort, som fort�ller hvem man er og hvilken frekvens der er snakket p�.

Her er hvordan min kode ser ud :
Public Class Form1
Private Sub AfslutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AfslutToolStripMenuItem.Click
Application.Exit()
End Sub

Private Sub HentBillederToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HentBillederToolStripMenuItem.Click
OpenFileDialog1.ShowDialog()
End Sub

Private Sub GemBillederToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GemBillederToolStripMenuItem.Click
SaveFileDialog1.ShowDialog()
End Sub

Private Sub SaveFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
PictureBox1.Image.Save(SaveFileDialog1.FileName + ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
End Sub

Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
PictureBox1.ImageLocation = OpenFileDialog1.FileName()
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
End Sub

Private Sub OmToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OmToolStripMenuItem.Click
'Display the About dialog box
Using objAbout As New AboutBox1
objAbout.ShowDialog(Me)
End Using
End Sub
End Class

Er ikke kommet n�rmere p� at have fundet svaret p� nettet.

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..

For mange forms ved brug af usercontrol

Thu, 26 Apr 2012 10:47:13 GMT

Hejsa.
Jeg er netop startet med at l�re ASP.NET, men jeg sidder allerede med en fejl jeg ikke umiddelbart kan gennemskue.
N�r jeg laver en form p� min Default.aspx side, f�r jeg fejlen "En side kan kun indeholde �n Form-kode p� serverside.", som jeg har fundet ud af sker fordi at det b�de er en form p� Default.aspx siden, samt en p� login usercontrollen. Hvordan kan jeg fikse d�t?

Jeg har 3 filer.
Masterpage:

HTML kode

 <%@ Master Language="C#" AutoEventWireup="true" CodeBehind="Com.master.cs" Inherits="community.Com" %>
 <%@ Register Src="~/userControls/Login.ascx" TagName="Login" TagPrefix="community" %>
 
 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
 <html xmlns="http://www.w3.org/1999/xhtml">
 <head runat="server">
     <title></title>
     <link href="Styles/style.css" rel="stylesheet" type="text/css" />
     <asp:ContentPlaceHolder ID="head" runat="server">
     </asp:ContentPlaceHolder>
 </head>
 <body>
 <div id="top">
     <div id="container">
         <div id="logo">
         </div>
         <div id="menu">
             <a href="#"><div class="menupunkt_aktiv_f" align="center">Hello</div></a>
         </div>
     </div>
 </div>
 
 <div id="content">
     <asp:ContentPlaceHolder ID="Indhold" runat="server">
         
     </asp:ContentPlaceHolder>
 </div>
 
 <div id="bottom" align="center">
     <asp:ContentPlaceHolder ID="Community" runat="server">
         <community:Login runat="server" />
     </asp:ContentPlaceHolder>
 </div>
 
 <div id="copy" align="center">Copyright 2012 - Folderen</div>
 
 </body>
 </html>

Default.aspx:

HTML kode

 <%@ Page Title="" Language="C#" MasterPageFile="~/Com.Master" AutoEventWireup="true" CodeBehind="Default.aspx.cs" Inherits="community.Default" %>
 <asp:Content ID="Content1" ContentPlaceHolderID="head" runat="server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Indhold" runat="server">
 
 
 
     <form id="form1" runat="server">
     <p>
         <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
     </p>
     </form>
 
 
 
 </asp:Content>

Og s� min Login usercontrol:

HTML kode

 <%@ Control Language="C#" AutoEventWireup="true" CodeBehind="Login.ascx.cs" Inherits="community.userControls.Login" %>
 
 <form ID="login" runat="server">
 <table class="style1" align="center">
     <tr>
         <td class="style5">
             Brugernavn:</td>
         <td class="style3">
             <asp:TextBox ID="txtUserName" runat="server"></asp:TextBox>
         </td>
         <td class="style2">
             Kodeord:</td>
         <td class="style4">
             <asp:TextBox ID="txtPassword" runat="server"></asp:TextBox>
         </td>
         <td>
             <asp:Button ID="btnLogin" runat="server" Text="Login" 
                  />
         </td>
     </tr>
 </table>
 </form>

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?

MS Visual C++: Mangler vindue

Sun, 19 Feb 2012 08:50:29 GMT

K�re udviklere,

Jeg har igen et problem med mit MS Visual C++ 2010 Express. F�r hen, der havde jeg et vindue i venstre side hvor jeg kunne browse igennem filerne i mit projekt. Men det er forsvundet. Jeg kan heller ikke rigtig tilg� mine projekter. Den loader dem slet ikke.

S�dan her ser det ud n�r jeg pr�ver at �bne min .sln fil:
http://desmond.imageshack.us/Himg856/scaled.php?server=856&filename=err1a.jpg&res=medium

Er der nogle der har en l�sning p� dette?
Sp�rg endelig hvis i vil have mere forklaret .

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

Tutorials

Fri, 30 Dec 2011 21:26:02 GMT

Hej

Nogen der kander nogle gode steder hvor man kan l�re og blive god til at programmere i C# i visual studio, som nybegynder?

Nybegynder C++ vs Visual basic

Fri, 19 Aug 2011 16:15:14 GMT

Hej

Skal til og i gang med at l�re at programmer i enten C++ eller VB jeg skal lave nogle programmer som kan l�se data fra eeprom og microcontroller via serial port senere hen USB Hvilke program er bedst c++ eller vb n�r jeg skal arbjde med bit, hex tal, xor, and, or, rotere left, rotere right. Har programmeret assembler i 8 �r men har ingen erfaring med hverken c++ eller vb er der nogle begr�nsniger i VB n�r jeg udlukke skal arbejde med hex tal osv.

MVH

Nicolas

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.

Nybegynder-sp�rgsm�l ang�ende SharePoint 2010 Foundation

Thu, 17 Mar 2011 11:27:09 GMT

Dog ikke samme sp�rgsm�l som til at starte med, men pr�ver igen, nedenunder......