Search results

i want if (the diffrence between the current [Orderdate] and the Max. [Orderdate] (the Nearest [OrderDate] before the current [Orderdate] ) for this employee through the last 7 days) less than (the diffrence between the current [Orderdate] and the Min. [Orderdate] (the Nearest...

i want if (the diffrence between the current [Orderdate] and the Max. [Orderdate] (the Nearest [OrderDate] before the current [Orderdate] ) for this employee through the last 7 days) less than than (the diffrence between the current [Orderdate] and the Min. [Orderdate] (the Nearest...

Ok Sir arnelgp . What is the benefit of CDate () function ? can we dispense CDate() function ?

Sir :arnelgp the code that you write gives me sometimes minus days results , and sometimes msg appears where there are more than 7 days before ( last Employee OrderDate ) . in the attached file (in the previous post) , try to insert any employee in 01/May/2016 (as the first order For this...

if user try to enter an order with orderdate befor the last orderdate for an emploee. please see to this attached file and see for that code :

very thanks mr arnelgp . but i don't want to use Date() (Today date) to compare , i want to use comparision between last orderdate for last Order for this emploee and the OrderDate for the current Order For this Emploee. Example : OrderID= 20120 and OrderDate= 15/ April / 2016 and emploeeID =...

Hiii all i have a MainFrm based on OrdersTbl that contains : -OrderID -OrderDate -EmploeeID every emploee may have more than one order , in the mainFrm (EmploeeID Before Update event), if there are previous Order in the last seven days for this emploee, an alert massage like: "There are an...

ok this attached file without zip.

hiiii all i have a combobox in my subfrm, i want to hiden the selected test from the combobox rowsource in the next record. i used subsquery with "Not Exisits" statement as a rowsource for the combobox. this works good when the default view of subform "data-sheet". but for some reasons i need...

ooooooooh thanks i try this , it works good: Dim strFolderYear As String Dim strFolderMonth As String Dim myFileNx As String Dim lngPK As Long 'change data type if yours is different 'set variable to current record ID lngPK = Me.OrderID Me.Requery 'return form to original record With...

hiiiiiii all i have report need to save it by creating Yearly folders and monthly subfolders. i try to use this code : Private Sub apdfNew1_Click() Dim strFolderYear As String Dim strFolderMonth As String Dim myFileNx As String Dim lngPK As Long 'change data type if yours is different 'set...

i try this code but gives me error 2501 Dim strFolderYear As String Dim strFolderMonth As String Dim myFileNx As String strFolderName = CurrentProject.Path & fails & "\" & Format(Me.OrderDate, "yyyy") & "\" ' folder to save strFolderMonth = strFolderName & Format(Me.OrderDate, "mmmm yyyy")...

i try this code and works good to create year folder only : Dim strFolderName As String Dim myFileNx As String strFolderName = CurrentProject.Path & "\" & fails & "\" & Format(Me.OrderDate, "yyyy") & "\" ' folder to save If Len(Dir(strFolderName, vbDirectory)) = 0 Then MkDir...

i try this code and other wrong : Dim myPath As String Dim myYear As String Dim MyMonth As String Dim myFileN As String myPath = "c:\Users\QSH\Desktop\ultrasonography\myYear\MyMonth" myYear = Format(Me.OrderDate, "yyyy") MyMonth = Format(Me.OrderDate, "mmmm") myFileN = Format(Me.OrderDate...

i try this code , but gives me wrong: Private Sub aPDFCopy1_Click() Dim MyMonth As String Dim myPath As String Dim myFileN As String myPath = "c:\Users\QSH\Desktop\ultrasonography\" If Len(Dir("c:\Users\QSH\Desktop\ultrasonography")) = 0 Then 'subfolder does not exits 'create one VBA.MkDir...

Ok how to use format fun. to format OrderDate firstly to create Year folder and than Inside format OrderDate to create month folder,

please give me that code or an example to create folders and subfolders

please give me the code that could create folders and subfolders

hiiii all dears i have code to save my report to pdf , my report contains a field "OrderDate" , i need to save reports of every year in seperated folder inside the Main Folder (MyPath) by the number of the year and inside every Year folder months folders that contains day folders like: 2015 --...

hiiiii all i have a continous sub form in (ExpiryDate) field ,beforeupdate event i try to get msg, when user enters date before this today date , but it coud not work: i try this code Private Sub ExpiryDate_BeforeUpdate(Cancel As Integer) If Me.ExpiryDate < Date Then If MsgBox("please enter a...