Recent content by alaric

thank you guys following did the job Dim dtDateNow, dtDatum As Date dtDateNow = Date Dim strWhereCondition As String dtDatum = DateAdd("d", dtDateNow, "-" & gbtBetaalTermijn) strWhereCondition = "[Betaald] = 0 AND [DatumBetAangemaakt] < #" & dtDatum & "#"...

Hi, Im confused about the results a report is showing. I open the report with a filter; Dim strWhereCondition As String Dim dtDatum As Date dtDatum = Date - gbtBetaalTermijn strWhereCondition = "Betaald = 0 AND DatumBetAangemaakt < #" & dtDatum & "#" DoCmd.OpenReport...

Hi I have a form where the user can Add new students; when finished the user clicks on SAVE, the programm asks the question "add a new student" From here 2 options; users clicks NO; the record got saved (this works fine) but when the user clicks YES; (the form textboxes clear) and you add a...

thx, strInhoud = Nz(Me.Controls(strText), "") did the job! Al

Hi im trying to figure out whats best to make my Cancel button aktive. CAncel can only be used if something is really changed (otherwise access gives me an error) So i thought of following: count all fields an if it the number changes... aktivate the cancel button so far I have Dim...

thx, for as far as my knowledge goes, you are right about the color changes , but what about the first postion? the form as an ADD student form and I would like the cursor(always) to start at the leftmost postion in the textbox. Now you click on any postion in a textbox and start typing. thx Al

Hi, I have a form with lots of textboxes. I dont want to write the same code for all of the textboxes, when the user enters the field. Me.txtboxABC.SelStart = 0 me.txtboxABC.backcolor=10092543 when the user leaves the field me.txtboxABC.backcolor=-2147483643 So, I think i just...

Thank you both! it works Al

Hi, I want to build my counter to count like above number sequence? doubling the previous value how to do this in vba? any hint or tips thx in advance Al

I found the solution: the right way was: .Fields("Uitstraling1") = Me.Controls("txtPunt" & X + 0).Value thanks for putting me in the right direction!! You really helped me. thx again still want to know what "CLng" does :o Al

oke I did change it and it goes 1 rule further; now it stops at; .Fields("Uitstraling1") = "Me.txtPunt" & X + 0 is my syntax wrong? when I try to write a field with the value on my form in txtpunt1 txtpunt2 etc. or is it wrong the way I try to add a value to my variable and attach it...

thx guys I chaged my code to: SaveIt InschrijfId, X as soon as i walk through the code (F8) I get (hoovering the mouse over the value) following values: inschrijfid = "774" X = 1 this looks strange to me. shouldnt the 774 also not between the ""? because Im going to write records The...

thx Ken I tried but with no luck: get the message: compile error: expected: = ideas Al

Hi, I have trouble passing my calculated values to my function. Every time I get the message Type Mismatch: this is the code I have: Dim X As Byte Dim InschrijfId As String Dim Cnt4 As Byte 'berekening van STARTnummer lezen van txtPunt velden (start: 1(1-8), 9(9-16), 17(17-24), 25(25-33) etc...

thank you all for helping me out! Its working! I att a screeshot, wich (hopefully) gives more clarity. txtStudent = txtCursist (in Dutch) and are the yellow fields in the screen. when doubleclick on the listbox (downleft) or click cmdmove, the selected item has to move to the first empty...