Search results

Dear Friends I am trying to make dynamic query. I have a sub saying strSQL1="Select * from qryProduct1" strSQL2="Select * from qryProduct2" strSQL3="Select * from qryProduct3" for t=1 to 3 strSQL0=strSQL & t do something next t But when I run it, it does not know the resulted strSQL0...

Dear John thanks for you quick response. Do you have or can you refer me an example file/ article about it?? Thanks again in advance.

Dear Friends I have built my form with 4 layer of subforms with my MS Access 2010. Say I have a field, called "text2", in 2nd Subform "subFrm2". In 3rd subform "SubFrm3", I have an field, called "text3" which is also a combo box. My question::: I want to make the drop down of "text3"...

Dear John Thanks for your quick reply. I have check it. I think it is correct. In my form, it works well in "AllowEdits" and "AllowDeletions". But for "AllowAdditions", although the "txtUserName" and "txtStaff" are equal, new records row does not appear in the subform. Thanks again.

Dear Friends:) I have a subform, the content of which will be manipulated conditionally. If in the main form, the txtUserName and the txtStaff are equal, the content in the subform can be edit, delete and add new record. I used the following code to do this. All works well. but the problem is...

Thank you for your prompt response. It work well. Thanks again. Best:) :)

Dear friends I have a form with a sub-form in my front end database. In the form I have a field which notes the Person who enter the form. Another field I have is Person who is logging in. Question: if the person who created the record is equal to the Person who is logging in, the fields in...

Dear Friends Can somebody help me write a function with VBA for the following if statement. Changes: IIf(([OldCat])="","Start", IIf([OldRegimen]=[NewRegimen],"Same",:) IIf([OldRegimen]<>[NewRegimen] And [OldCat]=[NewCat], "Substitute","Switch"))) Thanks in advance!:)

Dear Friends I have a form with 4 Unbound Text box. After entering a value in the first Unbound Text box, I want the rest 3 unbound text box to copy the same value from the first unbound text box. Thanks in advanced. Sai:)

The problem is, it does not choose the correct "Cheque" type depend on "Currencys". It keeps on printing using the "USDChues" when I want it to print in "MMKCheques". This is the question number 1, I want to solve. Another question is, how do I create a report field not to be printed via...

Dear Friends I am buiding a form to print cheques. In my office, we use 2 currency; USDollar and MMK(Local Currency). Because the size of the 2 cheques are different, I have created 2 reports. In my form, I also have a field for these2 currency. In clicking the Print button, the print...

Dear Friend Sorry for double posting. I have try the following post. Private Sub Export_to_Excel_Click() Dim curDatabase As DAO.Database Dim QueryName As String Dim qryDef As DAO.QueryDef Dim strSelect As String Set curDatabase = CurrentDb QueryName = "" strQueryName = QueryName...

Dear folks In the place of “Table Name” below, I have put the name of one of my sql table. DoCmd.TransferSpreadsheet acExport, , "qF01", "D:\Stock.xls", True, "Form01" I want to know whether I could put the sql string like “Select * from qF01”. Thanks in advance.

:)Dear folks In the place of “Table Name” below, I have put the name of one of my sql table. DoCmd.TransferSpreadsheet acExport, , "qF01", "D:\Stock.xls", True, "Form01" I want to know whether I could put the sql string like “Select * from qF01”. Thanks in advance.:)

Thanks I have solved it with your suggestion.:) Thanks to all our altruistic friend.

Dear Friends Thank you for your quick response. When you execute it, did the Period and 1stDate resulted in "000DTCMain" change according to 6monthly, Quarterly, Monthly or so on? Thanks again!

Sorry for I can not send the original file. In stead I am attaching the similar file. It has the same structure. I will choose same value in both field of "00ReportedPeriod", then excute it. Thanks in advanced.

Yes. I do have it.

The error message is: Run-time error '3265': Item not found in this collection.

Dear Friends Can somebody varify the following code for me? It works in MS Access 2003, but not in 2010. It ask me to debug at line Set qryDef = CurrentDb.QueryDefs(strQueryName) Thanks:) Option Compare Database Private Sub Command2_Click() Dim strCrit As String Dim strCritNO As...