Search results

A simple function can be written to meet your need. I am giving one. Call this function when u want the required date after five working days Public Function AddDate() As Date Dim StartDate As Date, Count As Byte MyDate = Date Count = 0 Do While Count < 5 MyDate = MyDate + 1 Select...

Let me check it later

Sure it can be done. There are various methods to do this. If the second form is a subform of the first it is rather easy. Don't bother, it can be done if it is an independent form too. Can't explain more without knowing the user interface and other details. Attach your mdb file to get the...

Add two lines of code one before and the other after your Do Command statement as below Application.SetOption "Confirm Action Queries", False DoCmd.RunSQL Sql Application.SetOption "Confirm Action Queries", True

Check your mailbox to get the 4th version. It includes sub series ranking. Thanks a lot for the experience given by your project .........Bye

I hope you have discarded the first two mail attachments and using the 3rd one. Still I dont know from which country you are

I have returned your databse with the coding needed for the task Best wishes

Hi friend I have done the coding for you. Testing is only remaining. Unfortunately I am away from home for few days for some duties. I can do any more works for you only after 26th July. The database you supplied is not with sufficient data for testing. In the meantime you can supply a database...

Where is your attachmant?

I dont think that your problem is a difficult one. But the way you present it makes it difficult to understand. If you want to get a solution you can attach a database with a few records, and a brief discription about what you really want. I can help you with codes in it

You can write a Public Fuction to convert your string to title case. You can call it anywhere in your project to convert a string to title case. If you can not write it yourself, please feel free to ask. I can give it for you. I think it is better helping to fish than giving fish

Your posting did not give sufficient information to for the exact answer. However try the following and if not working please come with more details IsDate([Transactions].BirthDate) = True And [Transactions].BirthDate > #01/01/1900# ...

Understand the difference between 'Null' and 'Null String'. Null can not be used with a relational operator like >, <, =, <> etc. There is nothing in Null and hence it can not be compared. So rewite the statement as below Private Sub txtSURICCode_GotFocus() If IsNull(txtSURICCode) = True Then...

Specifically say what is your need. Do you want to ensure that only one combo box is selected before the user clicks the command button to make report? What is the job of your text boxes? Put clear questions here. If not you will not get replies.

Bob is still telling what I did not mean. Please see what I said clearly. "..........Only thing the code need to work is to give the names of the controls (........) as specified in the code............" I reapeat; the code will work irrespective of the field name. it may be diiferent or same...

It is the control name I used. It is not my fault that u did not make controls with that name. Make six controls (say text boxes) with names GainAmp1, GainAmp2.......GainAmp6 and a command button on the form. On the OnClick event of the command button paste my code. Then say whether it will work...

I don't understand what bob says. It is not a good practice to post without reading the original post. I think he meant the values of 'ControlSource' and 'Name' of the textbox control. If so I am sure that my code will work when they are alike or different, or bound or unbound. Still I dont...

Look into the code I have rewritten for you. I don't understand what for the + symbol you used. Assuming it as your attempt to concatenate, I rewrite the code Dim strField As String For Z = 1 To 6 strField = "GainAmp" & Trim(Str$(Z)) Me.Controls(strField).Enabled = True Next Z

You may be using bound forms. If it is a bound form your action will either append as a new record or change the value in the existing record as the case may be. I dont understand what is the relevance of the 'Save' button then. Use unbound form and write code to populate the values from the table

Let us conclude Why should we bother for a line of code for setting an object variable to Nothing. It is a good practice as well. Let us do it where ever necessary. I did the arguments only to highlight the concepts of scope and lifetime of variables to those who are unaware of this, not to bob