Thread: Problem in my loop

Hello everyone,

I'm having a difficulty in the following condition:


'------------------------ Check only one field is filled ----------------- ---


If NumAudit = "" And DriverName = "" Or NumAudit <> "" And DriverName <> "" Then
MsgBox ( "Please do not fill a single field!")

'- Empty Fields ------
NumAudit.Clear
NomPilote.Clear

Else
MsgBox ( "Ok")
End If

I want to spend the next instruction only if one of the 2 field is filled.

Thank you for your help

just put one or exclusive:

If NumAudit <> "" xor DriverName <> "" then.

In this case, only if one of the two fields is completed, it will pass through the loop.

I modified the macro with xor:

If NumAudit = "" And DriverName = "" Xor NumAudit <> "" And DriverName <> "" Then
MsgBox ( "Please do not fill a single field!")

'- Empty Fields ------
NumAudit.Clear
NomPilote.Clear


Else
MsgBox ( "Ok")
End If

Call Select_Auditeur

But if for example I filled the fields or that 2 is empty when it passes mm to the next instruction.

Thank you

You do not need to do all that, the simple condition NumAudit <> "" xor DriverName <> "" enough, basically it will give you:

Code:

1.	If NumAudit <> "" xor DriverName <> "" then
2.	MsgBox ( "Please do not fill a single field!")
3.	
4.	'- Empty Fields ------
5.	NumAudit.Clear
6.	NomPilote.Clear
7.	
8.	
9.	Else
10.	MsgBox ( "Ok")
11.	End If
12.	
13.	Call Select_Auditeur