Search results

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

this is exactly what i'm need ? very thanks for your advice

i can't understand ? please step by step.

hiiii dears how to insert (add ) a code to all code events in my db. i want to add error handling code to all events that is contain code in my db. this code as allenbrowne explain in http://allenbrowne.com/ser-23a.html i want every time insert this code to change (Somename) to the event...

Where and how ?

all dears hiiiii i have a listbox to add emploee to a table using code. i want to remove the emploee that i select ,from the add emploee list. (filter in add emploee list "lstEmployees" ) .

very thanks i want to stores them in the form of the exponent.

hiiii i have a textbox (Text) i need to store exponential numbers in it . Is it possible and how? is not Like: 4.0-10.0 ×10^3 /µl

ok that's good but if [PublicName] and [ScientificName] fields in query not in Table . this give wrong

all dears hiiii i have a table contains some fields: [FirstStage] [SecondStage] [SceintificName] [PublicName] i want to combine them in Query as: CombinedField:[FirstStage]&" , "&[SecondStage]&" , "&[SceintificName]&" , "&[PublicName] Sometimes, one of the fields that i want to combine...

Please see to Delete Button in every form. i have a massage for every record delete in every Form

in this function code: Option Compare Database Option Explicit Public gstrReason As String Public Function Delete_Rec(MyForm As Form, UniqID_Field As String, UniqID As String) On Error GoTo Err_Delete_Rec MyForm.AllowEdits = True MyForm.AllowDeletions = True If MsgBox("Are...