I used this code But having some issues with it When I add a new contact in "New Contact" and show "Contact List", the record is not showing, but when I add a second contact in New Contact, the first contact is showing in the contact list Like if I added a third contact then two contacts are showing in the contact list My last added contact is not showing Please Help Code: /*************************************************** Menu: Gateway Of Tally → Quotation Menu ***************************************************/ [#Menu: Gateway Of Tally] Add : Item : Quotation : Menu : QuotationMenu [Menu: QuotationMenu] Add : Item : Contact List : Alter : Contact Entry Add : Item : New Contact : Alter : My New Contact /*************************************************** CONTACT LIST REPORT ****************************************************/ [Report: Contact Entry] Form : Contact Entry Object : Company [Form: Contact Entry] Part : FormSubTitle, ContactListPart Width : 60 Height : 50 Background : @@SV_CHEQUE Local : Field : Form SubTitle : Info : $$LocaleString:"CONTACT ENTRY" Local : Field : Form SubTitle : Color : LeafGreen Local : Field : Form SubTitle : Style : Large Serif Bold [Part: ContactListPart] Lines : CONTACTTitle, CONTACTSalesman Repeat : CONTACTSalesman : SalesmanNameCollection Scroll : Vertical Height : 90% Screen [Line: CONTACTTitle] Fields : CONTACTContactNameFld, CONTACTContactMobFld, CONTACTContactEmailFld Border : Thick Bottom [Field: CONTACTContactNameFld] Use : Name Field Set as : "Contact Name" Width : 20% Screen Color : Yellow Read Only : Yes Skip : Yes Style : Large Bold Align : Center Background: Blue Border : Thin Right [Field: CONTACTContactMobFld] Use : Name Field Set as : "Contact No." Width : 10% Screen Color : Yellow Read Only : Yes Skip : Yes Style : Large Bold Align : Center Background: Blue Border : Thin Right [Field: CONTACTContactEmailFld] Use : Name Field Set as : "E - Mail" Width : 20% Screen Color : Yellow Read Only : Yes Skip : Yes Style : Large Bold Align : Center Background: Blue Border : Thin Right [Line: CONTACTSalesman] Fields : CONTACTSalemanName, CONTACTSalemanMob, CONTACTSalemanEmail Border : Thin Box [Field: CONTACTSalemanName] Use : Short Name Field Storage : CONTACTSalemanNamea Width : 20% Screen Border : Thin Box [Field: CONTACTSalemanMob] Use : Short Name Field Storage : CONTACTSalemanMobb Width : 10% Screen Style : Normal Bold Border : Thin Box [Field: CONTACTSalemanEmail] Use : Short Name Field Storage : CONTACTSalemanEmailc Width : 20% Screen Style : Normal Case : Lower Case Color : Blue /*************************************************** SYSTEM UDFs ***************************************************/ [System: UDF] mydbcontactsalesmand : Aggregate : 10997 CONTACTSalemanNamea : String : 11201 CONTACTSalemanMobb : String : 11302 CONTACTSalemanEmailc : String : 11303 /*************************************************** COLLECTION ***************************************************/ [Collection: SalesmanNameCollection] Type : mydbcontactsalesmand : Company Childof : ##SVCurrentCompany Fetch : *, *.* /*************************************************** NEW CONTACT FORM ***************************************************/ [Report: My New Contact] Form : My New Contact Title : $$LocaleString:"New Contact" Object: Company [Form: My New Contact] Background : Light Ochre Yellow Height : 40% page Width : 60% page Part : SalemanNamePart, SalemanMobPart, SalemanEmailPart On: Form Accept : Yes : Call : updatemycontlist On: Form Accept : Yes : Form Accept [Part: SalemanNamePart] Line: SalemanNameLine [Line: SalemanNameLine] Left Field : Medium Prompt Right Field : InputSalemanName Local : Field : Medium Prompt : Set as : "Salesman Name:" Local : Field : Medium Prompt : Space Left : 2 Local : Field : Medium Prompt : Background : Blue Local : Field : Medium Prompt : Color : White Local : Field : Medium Prompt : Border : Thin Box Pink [Field: InputSalemanName] Use : Name Field Background: Deep Grey Color : Yellow Width : @@Longwidth Full Width: Yes Modifies : SalemanName Set as : "" Border : Thin Box Pink [Part: SalemanMobPart] Line: SalemanMobLine [Line: SalemanMobLine] Left Field : Medium Prompt Right Field : InputSalemanMob Local : Field : Medium Prompt : Set as : "Salesman Mob:" Local : Field : Medium Prompt : Space Left : 2 Local : Field : Medium Prompt : Background : Blue Local : Field : Medium Prompt : Color : White Local : Field : Medium Prompt : Border : Thin Box Pink [Field: InputSalemanMob] Use : Name Field Background: Deep Grey Color : Yellow Width : @@Longwidth Full Width: Yes Modifies : SalemanMob Set as : "" Border : Thin Box Pink [Part: SalemanEmailPart] Line: SalemanEmailLine [Line: SalemanEmailLine] Left Field : Medium Prompt Right Field : InputSalemanEmail Local : Field : Medium Prompt : Set as : "Salesman Email:" Local : Field : Medium Prompt : Space Left : 2 Local : Field : Medium Prompt : Background : Blue Local : Field : Medium Prompt : Color : White Local : Field : Medium Prompt : Border : Thin Box Pink [Field: InputSalemanEmail] Use : Name Field Background: Deep Grey Color : Yellow Width : @@Longwidth Full Width: Yes Modifies : SalemanEmail Set as : "" Border : Thin Box Pink /*************************************************** VARIABLES ***************************************************/ [System: Variables] SalemanName : "" SalemanMob : "" SalemanEmail : "" [Variable: SalemanName] Type: String [Variable: SalemanMob] Type: String [Variable: SalemanEmail] Type: String /*************************************************** FUNCTION TO SAVE CONTACT ***************************************************/ [Function: updatemycontlist] 01: Insert Collection Object : mydbcontactsalesmand 02: Set Target : SalesmanNameCollection 03: Set Value : CONTACTSalemanNamea : ##SalemanName 04: Set Value : CONTACTSalemanMobb : ##SalemanMob 05: Set Value : CONTACTSalemanEmailc : ##SalemanEmail 06: Set Target : ..
