Search results

you add this code in a Module or on your Form. The code will Remove the Form/Table/Query reference from your filter: ' Copilot Function RemoveWordBeforeDot(sText As String) As String Dim regex As Object Set regex = CreateObject("VBScript.RegExp") With regex .Pattern =...

if you are using a Form and the form is a Single Form, you can set the format on the current event of the form (not tested): Private Sub Form_Current() Dim fmt As String fmt="@" SELECT CASE True CASE [theTextbox] = 0 fmt="-" Case [theTextbox] >=1 Or [theTextbox] <= -1 fmt= "#" Case...

you can also try this code: Private Sub Refresh_Click() With Currentdb.OpenRecordset("SELECT TOP 1 * FROM tbl_MainRecords Order By ID DESC;") If Not .EOF Then OperatorName = !OperatorName Plant = !Plant Recipe = !Recipe End If .Close End With End Sub

i found a code that does not require reference to Microsoft Form 2.0 Object. The code comes from: https://stackoverflow.com/questions/14219455/excel-vba-code-to-copy-a-specific-string-to-clipboard/60896244#60896244 Function Clipboard$(Optional s$) Dim v: v = s 'Cast to variant for 64-bit...

can you distinguish the difference between the Red frame name and the one on the form design. they are not the same.

you should also Change the Font so it will match the Hyperlink font displayed on the Form.

You can also use API to put the text from your variable into the Clipboard. Copy/paste in a Module: ' CHATGPT #If VBA7 Then Private Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long Private Declare PtrSafe Function CloseClipboard Lib "user32" () As...

is this what you have in mind?

did you check the name of the Form? I don't see same name on the Navigation Panel.

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).