Hello all, I have a MS Access database. There are several employees who uses that database everyday. But when someone opens it, it locks for other user to open the database. How can I share the database between all the users at the same time? Can someone let me know ASAP. THANKS Bashar Amin Sr. Software Engineer

Thank you. It solves the problem but does not need "as Requirements" for the Redim statement. I have another question. If you do not know the size at a time and I want to create the Requirement object dynamicly, do I need the Redim statement? Bashar Amin Sr. Software Engineer

Hello there, I have a Requirement class. I wanted to instantiate a number of objects of the same class. So I created a array of Requirement object. Here is what I had: dim req() as Requirements Private sub CreateRequirements(num as Integer) for i as integer=0 to num req(i) = new Requirements next end sub Above code gives an error like "Object reference not set to an instance of an object". Can someone help me out? Thank you, Bashar Amin Sr. Software Engineer

Hello there, I am trying to perse a word document by reading the style property of each paragraphs. Here is what I have so far: dim myDoc as new Document dim pp as Paragraph dim str as String myDoc = CType(GetObject("test.doc"), Document) for each kk in myDoc.Paragraphs if Mid(kk.Style.ToString(),1,12) = "requirement" Then str = kk.Range.Text SaveData(str) end if next kk "requirement" is a name of style I have created in the test document. In short how I can read the stylename for the paragraph? Can anyone please let me know what is wrong with this code. Bashar Amin Sr. Software Engineer -- modified at 16:15 Thursday 20th April, 2006

Jon, Good thinking. Here is what I have my code now: Dim num as Integer num = Me.Item_Number strSQL = "UPDATE [Action Item Table] SET [Action Item Table].ysnActionAssigned = -1 " & _ "WHERE [Item Number] = " & num & ";" CurrentDB.Execute strSQL I was still getting a "Type Mismatch" error if I check for error. I comment out the error check as it was updating the [Action Item Table]. Thank's for your help. Bashar Amin Sr. Software Engineer

Mike, Thank you for you valuable suggestion. Debug.print is a good way to troubleshoot software bug. I am still getting the "Type mismatch" error but it is updating the table. So I comment out the error check part for now. Bashar Amin Sr. Software Engineer

Yes. It is like a local variable in the same function. Bashar Amin Sr. Software Engineer

CurrentDB.Execute strSQL When executing the SQL command. Bashar Amin Sr. Software Engineer

Hello everyone, I have been working with VBA code in MS Access 2003. I have a Command button which sends an email and then update the column of a table. Here is what I have... DoCmd.SendObject, , acForMatTXT, strWho, , , strSubject, strText, -1 strSQL = "UPDATE [Action Item Table] SET ysnActionAssigned = -1 " & _ "Where [Action Item Number] = " Me.Action_Item_Number & ";" On Error GoTo Err_Execute CurrentDB.Execute strSQL on Error GoTo 0 Err_Execute: ' Here I display error message in a message box I am getting an error of "Type mismatch". Can someone tell me what is going wrong. Thank you. Bashar Amin Sr. Software Engineer