Recent content by arnelgp

you do not need bang (!) there. simply: k = rdsR(b)

change this portion to: .. Do Until .EOF sFile = sPath & .Fields("FileName") ' Construct full file path If sPath <> sFile Then i = i + 1 ' Increment counter for collection key...

If the subform has Link Master/Child Fields, it will work. you have a Collection Object there (that contains the Path+filename), use it on your code to as Attachment: .. For i = 1 To colAttach.Count objMail.Attachments.Add colAttach(i & "") Next

you can test this: Private Sub AttachToCollection() Dim rsAttach As DAO.Recordset2 Dim sPath As String Dim sFile As String Dim i As Integer Dim bm As Variant bm = Null sPath = Environ$("Temp") & "\" Set colAttach = New Collection With...

you can use: =DSum("TotalCost","PurchaseDetails","[PurchaseID] =" & Nz([PurchaseID], 0))

11 is the barcode, "العاب 1000" is the IName. you see table tabl1.

i think you can have Arabic captions, but not arabic control name.

oooppps, i attached the non-working db on post#21.

rename all arabic control names to english. save the form. create new db and import all objects from the old db.

it is has much flickering because the previous code, the cursor is going to new record, therefore access when refresh the form will flicker. the new code is adding through recordsetclone, but do not go to that record (you can go to the new record ofcourse by setting the form's...

the "shaking" is minimized (except some twerking).

maybe 1 table with "AcctType" to input whether "user" or "service".

here, test Form1.

Have you tried it yet: SELECT tblParts.* FROM tblParts WHERE ID NOT IN (SELECT tblParts.ID FROM tblParts WHERE (DCOUNT("1","TBLPARTS","ID=" & [ID] & " AND ISNULL(IDSUPERIOR)=TRUE")>0 AND DCOUNT("1","TBLPARTS","ID=" & [ID] & " AND ISNULL(IDSUPERIOR)=FALSE")>0)); result: ID Name Level...

This is what I get on FB.