Search results for query: *

-edit- offcouse the msgbox(i) should be replaced for something like Forms(i).close but the value i is nog increasing. The first message box says there are 4 forms open.

Hello, tried to search the forum but no threads found. Is there a way to close all the open forms? HAve tried something like this: Dim i As Integer MsgBox (Forms.Count) For i = 0 To i = Forms.Count MsgBox (i) Next i but it didn't work like I expected to. Thanks a lot!

Thanks! works great.... //offtopic What is an effective way to decrease the amount in database2? Is there somekinde of WHERE IN LIST([items]) command that I can use? Or should I query my database per row.....While Not l_rsTmp.EOF For i = 1 To l_rsTmp.Fields.Count 'is it something...

aaaah.... my l_rsTmp.Fields.Count is per field/column I have also walk through the rows probably... or not?

Hello, I have a query that get results from my database. Database 1 +------------------------------------+ | ID | OrderId | Name | AMOUT | Type | +------------------------------------+ I have another database with the total items in stock Database 2 +---------------------------+ | ID | Name...

Already find an answer at my question: Maybe someone can use it :) Instead of executing own query use Access's standard code (I would not wanted to get te warnings): 'Disable warnings :D DoCmd.SetWarnings False 'Default access delete row DoCmd.DoMenuItem acFormBar...

heya I have a subform with the products from my table. Next to each row there is a little button. Onclick that button results that the following code will be executed:Private Sub Knop14_Click() On Error GoTo Err_Knop14_Click Dim strSQL As String Dim l_cmdTmp As New ADODB.Command...

Anyone?? [pc2]

Never mind.... My problem was that there was a macro executed at button click to open the form 'FactuurInvoeren'... Can happen if my friends create a form :P Thanks for the suggestions

heya I have a subform with the products from my table. Next to each row there is a little button. Onclick that button the following code will be executed:Private Sub btnDelete_Click() On Error GoTo Err_btnDelete_Click 'Dim some vars Dim strSQL As String Dim l_cmdTmp As New...

Still having the problem The function close is being reached because a msgbox is showed.

k, done, tnx

Hello, My Title is clear enough I hope ^o^ This is my piece of code: Private Sub Form_Open(Cancel As Integer) If IsNull([factuur_datum]) Then 'null Else Dim value As Integer value = MsgBox("Date = Null", vbOKCancel) If value = 2 Then...

Hello, My Title is clear enough I hope ^o^ This is my piece of code: Private Sub Form_Open(Cancel As Integer) If IsNull([factuur_datum]) Then 'null Else Dim value As Integer value = MsgBox("Date = Null", vbOKCancel) If value = 2 Then...

GREAT! The solution for my problem was to insert public gfLogin as Boolean into the module. Tried this before only without the public. Thanks for the quick reply ;)

Heya, Is there any way to access a variable in a form where the variable is not created? This is my layout (simply explained): mainform: Dim bLogin As Boolean loginform: MsgBox bLogin (result: empty msgbox) The mainform is being closed after loginform has been opened. Is there anyway...

Tnx :) needed some pieces of this code :) My extremly simple login method: Option Compare Database Private Sub Knop4_Click() On Error GoTo Err_Knop4_Click Dim strSQL As String Dim l_cmdTmp As New ADODB.Command Dim l_rsTmp As ADODB.Recordset l_sConnect =...

Allright :) here 's my code now Sub autoadd() ' ' autoadd Macro ' Macro opgenomen op 23-11-2004 door E. Holman ' 'If BuildKeyCode(wdKeyControl, _ 'wdKeyShift, wdKeyTab) = 777 Then 'MsgBox "Shift tab ingedrukt", vbCritical 'End If ActiveDocument.Unprotect...

Arrr.... can't edit posts. It doesn't work. When I don't fill in anything the macro crashes. I can fill in a number (tried that). Is there a way to count all the fields and decrease that with 3?

Well.... my field has no name... Is that no problem? Thanks again ;)