• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Een datum vraag

Status
Niet open voor verdere reacties.
W

Willem Blaas

Gebruiker
Lid geworden
30 aug 2006
Berichten
253
geacht forum


wanneer ik in een formulier met een textbox een datum invul, wat ook de bedoeling is gaat alles prima, maar als ik het veld leeg laat of 00-00-0000 neerzet omdat ik die datum niet zeker weet komt er een foutmelding dat ie daar toch wel graag iets wil hebben.

in de eigenschappen van die textbox zal denk ik iets veranderd moeten worden, alleen wat ?

en wat doe ik met 00-00-0000 ?

ik wil dus dat alles gewoon doorgaat wanneer dit veld leeg blijft

bij voorbaat dank

willem blaas
 
Een voorbeeldbestandje of code praat makkelijker;)

Mvg

Rudi
 
Het gaat niet zo zeer om de eigenschappen van het tekstvak, maar ik zou in de code laten controleren of er een datum is ingevuld in dat tekstvak.
Bijv.:
Code: 
If IsDate(TextBox1.Value) Then

Met vriendelijke groet,


Roncancio
 
Laatst bewerkt:
Roncancio zei:
Het gaat niet zo zeer om de eigenschappen van het tekstvak, maar ik zou in de code laten controleren of er een datum is ingevuld in dat tekstvak.
Bijv.:
Code: 
If IsDate(TextBox1.Value) Then

Met vriendelijke groet,


Roncancio
Klik om te vergroten...
ga ik proberen, je hoort nog
 
Willem Blaas zei:
zal proberen het bestand over te zetten hierheen
Klik om te vergroten...
Option Explicit
Private Sub Cbstop_invoer_Click()
Unload frminkom_inv
Sheets("open").Select
Range("g16").Select
frmcentrum.Show
End Sub

Private Sub Cbverwerken_Click()

Sheets("Leeg").Select
Dim strklant As String
Dim strplaats As String
Dim straanschaf As Date
Dim strnr As String
Dim strdatarep As Date
Dim straantal As String

Sheets("Lijsten").Select

'' waarden lezen
strklant = Txtklant
strplaats = Txtplaats
straanschaf = Txtaanschaf
strnr = Txtnr
strdatarep = Txtdatarep
straantal = txtaantal

''=================================================================================
Sheets("lijsten").Select
Cells.Find(What:="####", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Selection.EntireRow.Insert
ActiveCell.Offset(0, 2).Range("A1").Select

ActiveCell.FormulaR1C1 = strklant
Selection.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = strplaats
Selection.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = straanschaf
Selection.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = strnr
Selection.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = strdatarep

Unload frminkom_inv

Selection.Offset(0, -5).Select

'' ==========================================
Sheets("aantal").Select
Range("a2").Select
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = strklant
Range("b2").Select
ActiveCell.FormulaR1C1 = straantal
Range("a2").Select
'' ==========================================
Sheets("leeg").Select
frmcode_01.Show

End Sub
Private Sub txtaantal_Change()
End Sub
Private Sub Txtklant_Change()
End Sub
Private Sub Txtplaats_Change()
End Sub
Private Sub Txtaanschaf_Change()
End Sub
Private Sub Txtnr_Change()
End Sub
Private Sub Txtdatarep_Change()
End Sub
Private Sub UserForm_Initialize()

''==================================
'' om de datum neer te laten zetten
Txtdatarep.Value = Date
''==================================

Sheets("leeg").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

het gaat dus om txtaanschaf, die wil ik leeg kunnen laten
 
Gebruik de suggestie van Roncancio en elimineer tevens de Select's uit de code.

Graag ook
Code: 
 tags gebruiken op het forum. (het # icoontje).

Wigi
 
Wigi zei:
Gebruik de suggestie van Roncancio en elimineer tevens de Select's uit de code.

Graag ook
Code: 
 tags gebruiken op het forum. (het # icoontje).

Wigi[/QUOTE]bedankt voor t meedenken, maar ??????????  sorry
Klik om te vergroten...
 
Roncancio zei:
Vanwaar de vraagtekens?
Wat is er niet duidelijk?

Met vriendelijke groet,


Roncancio
Klik om te vergroten...

als goedwillende amateur weet ik nog niet waar ik die code die aangereikt werd moet plaatsen. heb een paar vragen geleden de code neergezet over wat het gaat mss heeft u daar iets aan om me verder te helpen.

met vr gr willem blaas
 
Willem Blaas zei:
als goedwillende amateur weet ik nog niet waar ik die code die aangereikt werd moet plaatsen. heb een paar vragen geleden de code neergezet over wat het gaat mss heeft u daar iets aan om me verder te helpen.

met vr gr willem blaas
Klik om te vergroten...

Kan je een voorbeeld bestand (zonder gevoelige informatie) bijsluiten?
Een voorzichtige schatting is dat zeker 2/3 van de code verwijderd kan worden.

Met vriendelijke groet,


Roncancio
 
Roncancio zei:
Kan je een voorbeeld bestand (zonder gevoelige informatie) bijsluiten?
Een voorzichtige schatting is dat zeker 2/3 van de code verwijderd kan worden.

Met vriendelijke groet,


Roncancio
Klik om te vergroten...

wil wel maar is 400 kb groot ?? met zippen nog te groot
 
Roncancio zei:
Het gaat volgens mij vooral om het werkblad Lijsten.
Eventueel kan je het naar mijn account sturen.

Met vriendelijke groet,


Roncancio
Klik om te vergroten...





Private Sub Cbverwerken_Click()

Sheets("Leeg").Select
Dim strklant As String
Dim strplaats As String
Dim straanschaf As Date
Dim strnr As String
Dim strdatarep As Date
Dim straantal As String

Sheets("Lijsten").Select

'' waarden lezen
strklant = Txtklant
strplaats = Txtplaats
straanschaf = Txtaanschaf
strnr = Txtnr
strdatarep = Txtdatarep
straantal = txtaantal

''=================================================================================
Sheets("lijsten").Select
Cells.Find(What:="####", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Selection.EntireRow.Insert
ActiveCell.Offset(0, 2).Range("A1").Select

ActiveCell.FormulaR1C1 = strklant
Selection.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = strplaats
Selection.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = straanschaf
Selection.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = strnr
Selection.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = strdatarep

Unload frminkom_inv

Selection.Offset(0, -5).Select

'' ==========================================
Sheets("aantal").Select
Range("a2").Select
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = strklant
Range("b2").Select
ActiveCell.FormulaR1C1 = straantal
Range("a2").Select
'' ==========================================
Sheets("leeg").Select
frmcode_01.Show

End Sub
Private Sub txtaantal_Change()
End Sub
Private Sub Txtklant_Change()
End Sub
Private Sub Txtplaats_Change()
End Sub
Private Sub Txtaanschaf_Change()
End Sub
Private Sub Txtnr_Change()
End Sub
Private Sub Txtdatarep_Change()
End Sub
Private Sub UserForm_Initialize()

''==================================
'' om de datum neer te laten zetten
Txtdatarep.Value = Date
''==================================

Sheets("leeg").Select
End Sub
 
Het ging mij eerlijk gezegd om het werkblad.:)
De code heb ik al.

Met vriendelijke groet,


Roncancio
 
mag ik het hele bestand ergens heen sturen ? werkblad lijsten is alleen een blad waar de gegevens worden neergezet dus eigenlijk weinig aan te zien, maar ik weet niet alles mss he

groet willem
 
Willem

Hierbij nog eens de vraag om code op het forum tussen code tags te plaatsen.

Hoe doe je dit?

  1. Klik op dit icoontje #. Er staat dan iets als:
    Code: 
    [ /CODE] zonder spatie.
[*]In het midden daarvan plak je de code die je kopieert in VBA. Dus ná ] en vóór [
[/LIST]

Wigi
 
nu ik weet hoe het moet zal ik er aan denken als ik t niet vergeet

bedankt

gr willem
 
Willem Blaas zei:
verder geen reactie meer gekregen van het forum, beetje jammer, maar toch bedankt zover
Klik om te vergroten...

Het is wel handig om als je een tijdje niets gehoord heeft, een berichtje op de topic te plaatsen zodat het weer onder de aandacht is.
We zijn allen vrijwilligers met de beste bedoelingen, maar soms schiet een topic er doorheen.
Als je (nog) wilt, kan je het bestand naar mij mailen zodat ik kan kijken wat er aangepast moet worden.

Met vriendelijke groet,


Roncancio
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan