Search results

well, i´m running this code in macro that i have in a excel sheet.... don´t seem me that this post could be posted in module/vba checo

hi all, i have a code to delete a row if a cell has a 0(zero) value, this is the code: For i = 1 To 1000 If .Cells(i, "E").Value = 0 Then .EntireRow(i).Delete enf if next what happens it´s that if i had 2 cells with 0, i.e. cell(1E)=0 cell(2E)=0 it...

Hi all, i´m trying send a report by mail as attachement. The problem is that i have to save the report first in a directory and then in the code to send the mail it looks for the attachement in this directory. Have somebody knows how to save the report automatically with the name of a control...

try If IsNull(me.QOH) Or IsNull(me.QAUTH) Or IsEmpty(me.QOH) Or IsEmpty(me.QAUTH) Or (QOH <= 0) Or (QAUTH <= 0) Then i assume that QOH,... are controls and you are running this code in the form with these controls( if not, change the me to foms!<form_name>!control_name)

hi Lenny_821, you may do that with a for cycle for i=0 to <array_lenght> docmd.runsql " insert into <table_name> ([field]) values ( <array_name>(i)) next

hi ray147 in my case, the text box ns_1,ns_2,... exists. you have a text box called BookingType0 ?

it works, tks :)

Hi all, i use this function and it works ok. i try add this code ( red code )to send a attachment with the mail 'Email Details .To = strEmail .Subject = "greetings " & strRecipient .Attachments.Add Source:="C:\test.pdf"...

why you don´t use a table(name,number) and get the output with a query?

tks, sometimes we must stop and requery our brains to get the right way :|

Hi list, I have two combo boxes and if one is blank, i.e. if the combo don´t show any text, and the other shows any text,it runs one query,if not it runs another query. My question is: How do i know if the combo don´t show any text? i already test this code: if ((isnull(combo_name1.value)=true)...

well, i thought that you wanna open a form if the pwd is correct...

It Really WORKS !!! tks a lot checoturco

hi, you can put the form with the login/password on tools->startup, this form has this code: password="123456" word=inputbox("password") if word<>password then msgbox " password incorrect " else docmd.open <main_menu> end if

Hi all, It´s possible change the default printer by vba code? i have a button that when user press, i wanna assign a specific printer for that action and when the report already is printed, i wanna change the default printer for the printer he has before. i run this code but it´s wrong because...

tks Idris, I done as you suggest and i have some things work and others not. All a have in the page header of the report_A doesn´t appear in report_0 ( the report that includes the two subreports). if i open the report_A this things appear. the vba code that i have in the report_a doesn´t...

Hi all, I have two reports that need to be printed together, because i print the reports to a pdf printer. i have a button with this code: stDocName = "report_A" DoCmd.OpenReport stDocName, acNormal stDocName = "report_B" DoCmd.OpenReport stDocName, acNormal of course this print two...

Hi all, I have two reports that need to be printed together, because i print the reports to a pdf printer. i have a button with this code: stDocName = "report_A" DoCmd.OpenReport stDocName, acNormal stDocName = "report_B" DoCmd.OpenReport stDocName, acNormal of course this print two...

Hi all, I don´t know how to do this or if is possible, so this is the question. I have two reports and i wanna the second report continuous the first report number page, i. e. if the first report end on page number 2, the second report must have his first page number start a 3. My second...

szSQL = "SELECT * FROM tblContractprijs WHERE (GroepID=" + str(Groep) + " AND ContractvormID=" + str(Vorm) + ");" i'm not so sure but try this.. szSQL = "SELECT * FROM tblContractprijs WHERE GroepID=" & str(Groep) & " AND ContractvormID=" & str(Vorm) + & ";" both groepID and...