Search results

Thank you so much I want to make it easier for the user to observe changes .

thanks i try that but gives error (Db connection) i use Access 2007. if possible to give some changes in my example .

if bossible i want the code to return: (if the form contains subforms) The name of the form in which the changes or additions happend.

this is like i want , try to change code in subform to Parent.Audit_Trail Me

i some times need to use that code in Forms (that not contains Subforms ) , and if i have a form with sub forms i need to returns changes in the main form for all the main form and the subforms .

it gives error not in that function the error line is here: Private Sub Form_BeforeUpdate(Cancel As Integer) Parent.Audit_Trail Me End Sub

Very thanks Is there a method to change code to work with Main Forms and Sub Forms?

Ok Very thanks , i try that but gives error 2465

hiii all dears I have three forms , - FrmA his recordsource is tbl1 - FrmB his recordsource is tbl2 - FrmC his recordsource is tbl2 FrmA is the Main Form FrmB is sub form inside FrmA FrmC is sub form inside FrmB and i have this code to return Changes in the forms: Public Function...

Very thanks , I have a Continuous form , the labe in the Form Header and the Control in the Form Details .how to connect them ? or to makes that code to returns the label that is in the form header ?

Ok but if any of the controls lack a label .... I try this : MyForm!AuditTrail = MyForm!tbAuditTrail & vbCrLf & Nz(ctl.Controls(0).Caption,ctl.name) & ": Changed From: " & ctl.OldValue & ", To: " & ctl.Value but stay gives error

i try this : Nz(ctl.Controls(0).Caption, ctl.Name) but it stay gives error .... ????

Hiii all Dears i have a code that makes user changes in every table . i uses a special Names for my fields , for that i uses captions always. the code returns names of fields that changs , i want it to returns the caption of the field . Is that possible ? My code like this : Public...

i try that but there are a small blank showed between the textboxs (i not want ) , and the textboxs values couldn't centerd as in the photo 1 .

Hiii All dears i have a report that has : OrderID (Long) , OrderDate (Date/Time), CustmName (Text) , CustDetails (Memo) how to makes all the textboxs expanded like CustDetails (Memo). i try to do that but fails. this is the photo of that report : photo2 i want it like this : Photo1

Dim vItem As Variant Dim strSet As String Dim i As Long Dim strSQL As String Dim strSQL1 As String Dim varItm As Variant strSet = "" 'make sure a selection has been made If Me.DeleteList.ItemsSelected.Count = 0 Then MsgBox "Please Select At least one...

i try that but not works good .

i have a Query , i try to convert it to VBA string but fails. this is my query " SELECT concatenate1("SELECT tblEmploees.EmploeeName FROM tblEmploees INNER JOIN tblShiftEmploDetils ON tblEmploees.EmploeeID = tblShiftEmploDetils.EmploeeNo WHERE (((tblShiftEmploDetils.DetailID) in(" & strSet &...

Very thanks , this is exactly what i want.

this is my db. i use Dupe and Dupe1 as alias names.