Recent content by Niranjeen

Wow, that's a lot of redo. I'll get back on Sunday afternoon. Thanks again.

Here attached is the Table structure.

Thanks for your input. Yes, there is more to what is said here. The database hold an awful amount of information on projects with activities and milestones. The projects have many activities and activities have many milestones, up until here it's doable. The monkey ranch here is each...

The Data1 and Data2 repeat in many cases, but Data3 and Data4 are more or less unique. Consider each row is a record. Data1, Data2 & Data3 are text while Data4 is a number

Thank you so much "arnelgp". It worked well.

Thanks Baldy, Might have to make my question tailored to my requirement: Each Tab on the same form should pick a record corresponding to the QtrID. So saying I did use the tab index identifier, but not able to bring in a corresponding recordset. If my understanding is right, Forms can work...

Hi, Please can you provide me to slove a filter of records on each tab control. A form has four tab controls, when each Tab is clicked or selected, a filter should be applied on the recordset from a single table on QtrID(number), and each tab is filtered as 1, 2,3 &4 of the record repersenting...

I have a table with a set of fields that repeat in some record, and , other field have unique data on it. I would like to find a way on the Forms to display(data entry locked) the Repeating data and list each of the unique data as separate textboxes. Can somebody please help me find an easy...

Thank you, I have got it working, didn't think of two loops. Thank you again.

Thanks for your response, I could use this concept to store ascii value to the char, right?

I am lost, that doesn't help me. The exit from FOR Loop is only NEXT? Is there a possibility to use while loop in this scenario?

Yeah, then I need to counter check if the Len() condition is met before the "x=x+1" statement. Goodone, thanks I am close to it now.

Well this is the where iam now. Public Function DC(Strg As String) Dim uStrg As String Dim strLen As Integer Dim ChVal As Integer Dim tSum As Integer Dim x As Integer uStrg = ucase(Strg) tSum = 0 x = 0 For x = 1 To Len(uStrg)...