Recent content by usman948

Thanks to all for help.. my DB works as I needed with suggestion from you guys, My parent form have list view which is related to subform (in datasheetview) and current record will be locked when checked Editlock field (yes/no) and cannot be unlocked again when after record change.. ok it works...

Thanks Mihail for help and tips in VBA programming, Actually I have very little/No knowledge of program like VBA... Just learning and do most of the work by trial and error method.. I do agree that .. there must be a solution for un-locking with lot of VBA programming as u said but for me it...

Thanks Mihial for help.. I have final complete code here and it works well for record locking.. Private Sub Form_Current() Me.Form.AllowEdits = Not Me.Editlock Me.Form.AllowDeletions = Not Me.Editlock End Sub ------------------------------------------------- Private Sub...

Thanks guys.. I have added this code to subform.. Private Sub Form_Current() If Me.Editlock = True Then Me.Form.AllowDeletions = False Me.Form.AllowEdits = False Else Me.Form.AllowAdditions = True Me.Form.AllowDeletions = True Me.Form.AllowEdits = True...

Thanks for reply. My main form having a list view of works which is linked to sub-form in datasheet view having many fields/rows with details and billing and also one yes/no check box field (edit lock), when i checked yes, entire record/row should be locked so that nobody can edit any field of...

Hi.. Sorry that after long period i came to form for help and hope that I will get the same. I have made database of billing with many important fields. I want to lock the entire record so that others cant edit that record. I have added field name edit lock with yes/no., when i check the edit...

Dear JHB.. Your correction in code is working absolutely fine as I wanted ie both in indian & US format... Thank you very much for all of your help.. Now I am happy to announce that this thread is now closed and my problem is well answered in this forum with all help from experts like you...

Thanks for reply and As u said i have copied & pasted in the form.. & it really worked as i wanted.. it is of great help to me and motivated me to develop further.. Thanks lot.. Also Please reply if there is any solution to my post no#13 of this thread.. thanks in advance...

I am entering daily attendance of an employee in attendate column and it will provide rate of wages in wagerate column.. it is working fine.. Thanks to your code.. 1) Next I wanted that after one entry of record it should go to next record for entry for same employee in subform datasheet. 2) and...

Dear JHB... I also wanted to have requery & go to new record after entry of attendate.. I have added to your code Private Sub cboday_AfterUpdate() Dim dbs As dao.Database, rst As Recordset Set dbs = CurrentDb Set rst = dbs.OpenRecordset("SELECT TOP 1 WAGE " _ & "FROM ((EMPLOYEE INNER...

The code u have supplied is perfectly working fine on my PC, but it is having one small glitch.. there is nothing wrong with the code but with date format. When running on my office PC, it was showing wrong wagerate and zero etc .. on review thoroughly I came to know that it is due to date...

Dear JHB.... Thanx and DB working as I wanted, really its great help.. as i have no knowledge about vba, i faced much difficulty in this and u have seen my DB and written code for me.. thanx lot.. further, if faced any vba issue in future i will ask for your help..

Thanks Adam.. u have given good point.. yeah by this way I can get help and i will learn also instead of ready made provide by somebody.. thanx again.. well I tried this code.. Private Sub cboday_AfterUpdate() Dim varMax As Currency varMax = DLookup("wage", "labourwage", "lbid = " &...

Thanks for reply.. it seems u have not seen my database as u may be having old access.. well let me clear.. I have tables - 1. employee (name, designation etc), 2. attend (emplID, attendate, wagerate) 3. Desig (desigID,desig,talbourtype) 4. labourwage(lbid, wage, wagedate) 5. labour( lbid...

Pl help me to solve the problem..