CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede hardsoft Nybegynder
03. februar 2003 - 14:43 Der er 3 kommentarer

Tjek TextBox for tal...

Hvordan tjekker jeg om en textbox kun indeholder tal (ex. 123) eller om den også indeholde bogstaver (ex 1g255d)

haster - tak!
Avatar billede brobaek Nybegynder
03. februar 2003 - 15:08 #1
Du kan tjekke det efterhånden som der tastes ind i text boxen.

Private Sub txtCPR_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If KeyAscii < 48 Or KeyAscii > 57 Then
      KeyAscii = 0
  End If
End Sub

Mvh
Martin
Avatar billede michaelemanuel Nybegynder
03. februar 2003 - 15:14 #2
Eller du kan gennemløbe den indtastede tekst

Dim IsNotOnlyNumbers As Boolean
For i = 1 to Len(Text1.Text)
  If Asc(Mid(Text1.Text, i, 1)) < 48 Or Asc(Mid(Text1.Text, i, 1)) > 57 Then
    IsNotOnlyNumbers = True
    Exit For
  End If
Next
Avatar billede sjh Nybegynder
03. februar 2003 - 16:27 #3
kan også bruge "IsNumeric()"

Private Sub Text1_Change()
Dim strText As String
  strText = Text1.Text
  If Not IsNumeric(strText) And Len(strText) > 0 Then
    MsgBox "Der må ikke være bogstaver i boksen."
  End If
End Sub
Avatar billede 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.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic 3 25/04/202414:26 28/08/202419:09
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic 0 08/12/202320:00 -
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 22:29 Screenshot-værktøj som gemmer som WebP eller AVIF? Af eurositi i Billedbehandling
I går 20:36 Logning af data Af ABE15 i Excel
I går 19:02 Ændre Meta data JPG filer Af frem-ad i Andet software
I går 14:55 Funktionen opslag Af fkj i Excel
I går 11:57 Fejl: SQL-Sætning , ... ,"SELECT" var ventet Af per2edb i Access
White papers
Flere white papers »


Premium
Teaser billede
Lad nu være med at bruge kræfter på at forsøge at droppe Microsoft: "Det er simpelthen energi brugt forkert"
Læs mere »
BEC fyrer danske medarbejdere: Har brug for at effektivisere
Itm8 fyrer: Opsiger ansatte og reorganiserer
Dansk styrelse søger it-konsulenter til kæmpe-ordrer: Står klar med op til 365 millioner kroner
Se alle »
Computerworld
Teaser billede
Open Source-eksperimentet #2: Farvel Outlook – vi går all in med fri e-mail, kalender og Fritz Kola
Læs mere »
Første AI-angreb uden klik: En fjendtlig e-mail i indbakken udløser Copilot til at stjæle følsomme virksomhedsdata
Test: Dansk Bluetooth-højttaler giver konkurrenterne tæv – og opskriften er ret simpel
Larry Ellison er blevet 165 milliarder kroner rigere på få timer: Er nu pludselig verdens næstrigeste mand
Se alle »
CIO
Teaser billede
Open Source-eksperimentet #2: Farvel Outlook – vi går all in med fri e-mail, kalender og Fritz Kola
Læs mere »
Digitaliseringsministeriet vil droppe Microsoft: Nu reagerer tech-giganten
I weekenden fik Microsoft sparket af Digitaliseringsministeriet – nu følger Kombit trop
21 danske kommuner dropper Microsoft og Google i skolerne: Ny stor softwarepakke er under udvikling
Se alle »
Job & Karriere
Teaser billede
Fungerede ikke: Dropper AI som erstatning for kundeservice-medarbejdere - har nu brug for nye folk
Læs mere »
NNIT har fyret 100 medarbejdere - nedjusterer markant
It-chef og halv it-afdeling fyret i forsikringsselskab på grund af kommentar om potteplante
Har fælles fortid i Devoteam: Nu etablerer disse fire tunge it-profiler nyt dansk konsulenthus - ser et hul i markedet
Se alle »
White paper
Teaser billede
Revolutionér kundeoplevelsen med AI og automatisering
Læs mere »
Tidsbegrænset kampagne: Overvejer du at udskifte eller tilføje printere i din forretning? Vi kan tilbyde én eller flere maskiner gratis
IT i front: Sådan bliver netværk en strategisk driver
Cybersikkerhed 2025: Er din branche blandt de mest udsatte?
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »