Search results

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.

Hiiiiiiii All Dears: i have three tables as in the attached Picture , How to Know (query )for all employees that is not in this shift. i try : SELECT tblEmploees.EmploeeID, tblShiftEmploDetils.EmploeeNo, tblShiftEmploDetils.ShiftNo, tblEmploees.EmploeeName, (SELECT Dupe.EmploeeID FROM...

Ok thes works good , very thanks . i have another subform ("sub2") in that main form and contains a date (data field) , but its recordsource is a table "tblOrders" (Not a query) , i am added an unbound field in that subfrm like "MONTH([DATEFLD])" , and try that code but not works good . please help

Hiiii all dears I have a Main form (unbound) , contains a combobox "Mycmb" its sourceraw: SELECT Month(Format([OrderDate],'mm yyyy')) AS MyMnthNo, Format([OrderDate],"mmmm yyyy") AS MyMnth FROM tblOrders GROUP BY Month(Format([OrderDate],'mm yyyy')), Format([OrderDate],"mmmm yyyy"); and...

Ok ,and very very thanks for your advise. exactly i want a msg when user change any field (not in new record) exactly after change , or a msg that informs user about some changes in some fields . if this code would be one, but change name of the field that will appear in that msg when use with...

how to build a custom MsgBox function and call it in the event of beforeUpdate (or dirty ) event for every control , while leaving me to decided what is the name of control that will appeared in the msgbox . suppose we have a textbox in the form with name :"txtServName" , when call that custom...

I have a form contains : - Some bound textboxs. - Some bound comboboxs. - some unbound textboxs. - some bound (yes/No) fields. Q: How to alert user , if there are any change in any bound fields by a msg (not in new record)? i want a code to alert user with the changed field name , and gives him...

hiiiiii all dears i have main form and a subform i use a code in the sub form in BeforeInsert event as : Dim frm as Form Set frm = Me.Parent If IsNull(frm.[ID]) Then Cancel = True MsgBox "Create a record in the main form first.", vbExclamation...

no i found this function as the best solution to achieve what I want to do. Function Seperate_Digits(T As String) As String Dim i As Integer Dim C As String Dim Which_Letter As String 'T = Text From Query If Len(T & "") = 0 Then Seperate_Digits = ""...