Recent content by Stefanw

problem thanks for your reply again, ruralguy... but it still won't work. I am finding out where the problem is. now I am just trying to let work this: If IsNull(entity1) Then Me!test = "1 is empty" lijst.Visible = False Else With Me.lijst .RowSourceType =...

list "lijst" is the name of the combobox. I want to insert automatically into the combobox "lijst" the 5 entity's. But if there if only 1 entity filled, then i have a combobox with just 1 entity. And if there are 2 entity's filled, then i have a combobox with 2 entity's, and so on.... i use...

ok if only entity 1 is filled and entity 2 till 5 are empty: ElseIf Len(entity2 & "") = 0 Then Set lst2 = Me!lijst With lst2 .RowSourceType = "Value List" .AddItem entity1 .ColumnCount = 1 End With And if only entity1 and 2 are filled, and entity 3 till 5 are empty...

doesn't work Nope, isn't working at all now. Please help me with this one, thanks a lot: Private Sub Form_Load() Dim strMsg As String Dim entity1 As String Dim entity2 As String Dim entity3 As String Dim entity4 As String Dim entity5 As String Dim test1 As String entity1 =...

Hi guys, I'm stuck in this one. I want to view some textboxes in my form, and add them into a listbox, but I need to take care of empty textboxes. This is the code I currently use, but it only works if all textboxes are filled. Thanks in advance... Private Sub Form_Load() Dim strMsg As...

It works:) the only thing now is if for example entity5 is empty it gives the following error: Invalid use of Null is there some trick for avoiding this problem?! thanks again.

Hi Jimma, Gives compile error: Argument not optional I changed like you suggested the code into: -------- With lst1 .RowSourceType = "Value List" .AddItem = entity1 .AddItem = entity2 .AddItem = entity3 .AddItem = entity4 .AddItem = entity5 .ColumnCount = 1 End With...

Hi I'm struggling with this one. I want the data from some fields entered on my form appear in a listbox. The following code isn't working at the moment. What's wrong?!?!:confused: --------------------------- Private Sub Form_Load() Dim lst1 As ListBox Dim strMsg As String Dim entity1 As...

thanks thanks!! It worked... Stefan

Hi, I am trying to send a value to my report from a form. In the report I have a unbound textbox called "contact". On my form I have a combobox called "cbocontact". When i am trying to open my report by pressing the button, the value doesn't appear into my report. What's wrong...

solution?! Yes, i am doing the sum in the detail section, there isn't a way to get it all worked? And yes, I need some coding to avoid errors with the null fields. Please any help???

I want to sum some values in my report, but it gives me an error: You entered an expression that has no value. Option Compare Database Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) Dim runsum As Integer runsum = Me.quantity1 + Me.quantity2 + Me.quantity3 + Me.quantity4 +...

Hi, I want to appear the last 2 digits of the year. for example "07". Now I am trying this with datepart, but it gives me an error, while opening my report. what's wrong?? Thanks year = DatePart("yy", date) this one works: Year = DatePart("yyyy", date) but it gives me the full year (2007)

Hi guys, I want a button on my form that prints data into a table. My code doesn't seem to work. Someone knows a solution?? Thanks!! Private Sub invoice_Click() Dim no As Integer Dim amount As String no = clientno.Value amount = amount.Value DoCmd.RunSQL ("INSERT INTO invoice ([no]...

thanks a lot